fout 438

[moensk]

Ik heb volgend script

hij moet bepaald bereik copieren naar andere sheet en plakken in de eerst vrije cel dat hij tegen komt in kollom A

Sub samen()

Sheets("Delhaize").Range("A2:U" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
Sheets("Export").Range("A" & Rows.Count).End(xlUp).Row + 1

End Sub

 

[edmoor]

Wat probeer je met die 2e regel te bereiken?
Daar gaat het mis.

 

[moensk]

Het gecopieerde gedeelte uit tabblad "Delhaize" plakken in tabblad "Export" in de eerst lege rij dat hij tegen komt

 

[edmoor]

Je doet daar niets.
Je haalt een nieuw regelnummer op maar geeft er niet bij aan wat er mee moet gebeuren.

 

[AHulpje]

Maak er eens dit van:

Sub samen()
    With Sheets("Export")
        Sheets("Delhaize").UsedRange.Copy .Range("A" & .Rows.Count).End(xlUp).Offset(1)
    End With
End Sub

 

[moensk]

thanks, ik zelf was aan knoeien met ".Paste" ipv "With" te gebruiken weer wat geleerd

 

[snb]

Maar in dit geval overbodig

Sub M_snb()
  Sheets("Delhaize").UsedRange.Copy Sheets("Export").cells(Rows.Count,1).End(xlUp).Offset(1)
End Sub