Kopieren op voorwaarde naar verschillende bladen.

[K Timmer]

Hallo.

Het gaat om het volgende : Bij het dubbel klikken op een rij
wordt deze gekopieerd naar een rij in een blad.

zie vraag http://www.helpmij.nl/forum/showthread.php?t=412084&highlight=dubbel+copieren

ik wil nu graag dat het gekopieerde naar een blad gaat maar dan iedere keer op een nieuwe schone rij waar nog niets staat.

als dit lukt zou ik dat dan ook met een voorwaarde kunnen doen ?
b.v. er staat in een cel van de te kopieren rij een getal. dat dit getal dan staat voor b.v. een blad waar het dan naar toe moet worden gekopieerd ?.

Groeten Koos.

 

[snb]

Voor een uitgebreid antwoord zie hier

 

[K Timmer]

Hallo snb

Ik heb voor een uitgebreid antwoord gekeken.

dank voor de link.

heb echter nog wel een vraag over het volgende.

Sub test()
Sheets(1).Rows(5).Copy Sheets(2).Rows(Range("Blad2!A1").SpecialCells(xlCellTypeLastCell).Row + 1)
End Sub

kun je mij hier uitleg over geven ? Sheets(2).Rows(Range("Blad2!A1")

dit begrijp ik niet echt, heb b.v. Blad2!A1 in Blad2!A15 veranderd maar zie geen verschil in de werking.

Groeten Koos

 

[snb]

de laatste cel in werkblad Blad2 is invariant:

Range("Blad2!A1").SpecialCells(xlCellTypeLastCell)

geeft hetzelfde resultaat als

Range("Blad2!A15").SpecialCells(xlCellTypeLastCell)

of
Range("Blad2!K20").SpecialCells(xlCellTypeLastCell)
of

Blad2.cells.SpecialCells(xlCellTypeLastCell)