Laatste waarde op tabblad 1 naar tabblad2 kopieren

[Kevein]

Ik zou op een bestelbon automatisch de eerstvolgende vrije factuurnummer willen laten toevoegen. Via een macro, of bestaat er hier een simpelere formule in in excel.

 

Bestandje in bijlage. Naar de opmaak van de  bestelbon niet opletten (, is enkel als voorbeeld bedoeld )

voorbeeld.xls

[alpha]

="ABC"&indirect("Blad1!a"&1+vergelijken(9,9E+307;Blad1!$B$1:$B$100))

[Kevein]

Had gisteren ook nog een oplossing gevonden via een macro. Maar dit is ietsje eenvoudiger.

Merci

[Kevein]

Hierbij de code:

 

Sub Macro1()

    Dim RwLast As Long
   
    'find the last row
    RwLast = Sheets("Blad1").Range("B65536").End(xlUp).Row
   
    'now, select from A2 to the last used row
    Sheets("Blad1").Select
    Range("A" & RwLast + 1).Select
    Selection.Copy
    Sheets("Blad2").Select
    Range("H5").Select
    ActiveSheet.Paste

End Sub

[alpha]

@kevein,

om bewerkingen op objecten uit te voeren is het niet nodig om ze eerst te selecteren.

Jouw macro geeft ook niet het gewenste factuurnummer, dat zul je wel al gemerkt hebben.

De reden is dat er in jouw macro op blad1 naar kolom A wordt gekeken, maar die heb je verder ingevuld dan kolom B, dus je moet naar kolom B kijken.

Ik zou onderstaande code kiezen. Hierbij zij opgemerkt dat met de regels 4 en 5 op blad 1 de kolommen B en  C worden ingevuld, behorend bij het factuurnummer op blad2. De macro is dan automatisch gereed om het volgende factuurnummer te genereren. Als je dat niet wil, kun je die twee regels wissen.

Sub macro2()
Dim lc As Integer
With Sheets("Blad1")
lc = .Range("b" & .Rows.Count).End(xlUp).Row + 1
.Range("b" & lc).Value = Sheets("Blad2").Range("h2").Value
.Range("c" & lc).Value = Sheets("Blad2").Range("b2").Value
End With
With Sheets("Blad2")
.Range("h5").Value = "ABC" & Sheets("blad1").Range("a" & lc).Value
End With
End Sub

9 maart 2016 aangepast door alpha

[Kevein]

alpha, in ieder geval bedankt voor de hulp

 

mijn code was inderdaad niet helemaal volledig juist

 

het stukje code waardoor ook blad 1 wordt ingevuld is eveneens handig