weg schrijven

[starmaster]

Hallo,

Ik heb gezocht maar kan nergens iets vinden.
Ik wil op blad1 gegevens invoeren en door middel van een knop
dat hij het wegschrijft op blad2.
maar wel zo dat het steeds onder elkaar komt dat het vorige blijft staan op blad2.

 

[HSV]

Komt toch veelvuldig langs hier op het forum.
Het is wel handig als je een voorbeeldbestandje upload.

 

[starmaster]

Bekijk bijlage TestInvoer.zip

Ja dat geloof ik best maar kan niets vinden.
Waarschijnlijk niet goed genoeg gezocht.

 

[HSV]

Ik krijg een melding dat het bestand is beschadigd.
Misschien kun je het opnieuw proberen te uploaden.

 

[starmaster]

Bekijk bijlage TestInvoer.xlsx

 

[HSV]

Dat is beter. :thumb:

Private Sub Opslaan_Click()
  With Sheets("Artikelen").Range("B65536").End(xlUp)
    .Offset(1).Resize(, 7).Value = Range("B17").Resize(, 7).Value
    .Offset(1, -1) = .Row()
   End With
  MsgBox "Is weggeschreven "
End Sub

 

[starmaster]

Bedankt voor deze snelle reactie,