Waarden opslaan in ander bestand.

[DEWCAP]

Hallo,

Ik zou graag het volgende willen bekomen.

Ik heb 2 excell bestand:
1. Overzicht offertes
2. Offerte (dit is een sjabloon)

Wanneer het sjabloon wordt geopend, kan de offerte geprint worden en opgeslagen.

Ik wil nu het volgende bekomen maar ik kom er niet uit.

1. Bij het openen van een nieuwe "Offerte", moet het offertenummer reeds ingevuld zijn.
Het offertenummer zou moeten berekend worden door naar het bestand "Overzicht offertes" te gaan, te kijken wat het laatste offertenummer is en daarbij +1 te doen.

2. Nadat op de knop Save gedrukt wordt, zouden de waarden van cel G9 en cel D20 (en het offertenummer) uit bestand "Offerte" gekopieerd moeten worden naar bestand "Overzicht offertes". Dit op de eerst volgende lege rij natuurlijk.

Ik weet dat het niet niks in dat ik vraag. Maar ik denk dat het wel mogelijk moet zijn?

Ik plaats de 2 genoemde bestanden in bijlage.

Alvast bedankt om een kijkje te nemen.

Kevin

 

[DEWCAP]

Niemand dat hiervoor een oplossing heeft?

 

[Roncancio]

Niemand dat hiervoor een oplossing heeft?

Dat wel maar niet iedereen heeft Excel 2007.
Hoe dan ook. Hier is het resultaat.

Oh ja, vergeet niet de padverwijzing in de code aan te passen.

Met vriendelijke groet,


Roncancio

 

[DEWCAP]

Hi Roncancio,

Dit werkt perfect. Mag ik je nog 2 aanpassingen vragen?

1. Is het mogelijk om in "Offerte" ook een knop "Nieuw" te hebben, zodat ik niet steeds het bestand moet sluiten en openen?
2. Is het ook mogelijk, wanneer ik "Offerte" open, om de focus ook op "Offerte" te leggen? Want wanneer ik nu "Offerte" open, krijg ik steeds het bestand "Overzicht Offertes", welke in de achtergrond moet blijven.

Bedankt!!
Kevin

 

[Roncancio]

Hi Roncancio,

Dit werkt perfect. Mag ik je nog 2 aanpassingen vragen?

1. Is het mogelijk om in "Offerte" ook een knop "Nieuw" te hebben, zodat ik niet steeds het bestand moet sluiten en openen?
2. Is het ook mogelijk, wanneer ik "Offerte" open, om de focus ook op "Offerte" te leggen? Want wanneer ik nu "Offerte" open, krijg ik steeds het bestand "Overzicht Offertes", welke in de achtergrond moet blijven.

Bedankt!!
Kevin

Dat is zo gebeurd alleen kan ik dat vanaf deze plek niet doen.
Dat wordt dus later vandaag of anders morgen.

Met vriendelijke groet,


Roncancio

 

[DEWCAP]

Hartelijk dank Ronancio. Ik wacht het wel af.

Alvast bedankt!!

 

[Warme bakkertje]

Om de focus te leggen

Private Sub Workbook_Open()
Dim lRij As Long
Application.ScreenUpdating = False
Workbooks.Open "C:\Overzicht offertes.xlsx"
lRij = Workbooks(Workbooks.Count).Worksheets(1).Range("A65536").End(xlUp).Row
[COLOR="Red"]ThisWorkbook.Activate[/COLOR]
ThisWorkbook.Worksheets(1).Range("D19").Value = Workbooks(Workbooks.Count).Worksheets(1).Cells(lRij, "A").Value + 1
Application.ScreenUpdating = True
End Sub

Mvg

Rudi

 

[Roncancio]

In de bijgevoegde bestanden zitten je 2 verzoeken.
- knop om niet opnieuw op te hoeven starten
- focus op offerte houden.

Met vriendelijke groet,


Roncancio