Een makkelijker manier om te kopieëren en te plakken :-)

[hdegeus73]

Hallo allemaal,

Ik heb een bestand met behoorlijk wat namen. Nu wil ik het hele bestand hebben zoals regel 2 is (zie bijlage).
Maar om nou alles te plakken en te kopiëren ( totaal 2500 regels), dan ben ik nog wel even bezig.

Iemand een makkelijker oplossing?

Heidi

 

[AlexCEL]

Een optie in bijlage.

 

[snb]

Sub M_snb()
  For Each it In Sheet1.Columns(1).SpecialCells(2, 1)
    it.Resize(, 4).Cut it.Offset(-2, 1)
  Next
End Sub

 

[hdegeus73]

Mijn dank is groot, dank je wel voor de hulp!!:thumb: