maertens michae
4 November 2014, 22:43
Kan iemand mij helpen,
om dit in vba excel te clonen naar iedere lijn
zodanig ik dit niet voor enkele 1000 lijnen moet invullen en aanpassen.
Ik heb dit nu voor 2 lijnen geschreven.
waarvoor dank
Sub Copy()
Application.ScreenUpdating = False
If Range("A1") <> "" Then
Worksheets("1").Range("A1").Copy
Worksheets("1").Range("c1").End(xlToRight).Offset(0, 1).PasteSpecial
Worksheets("1").Range("A1").Select
Worksheets("1").Range("A1").Clear
Application.CutCopyMode = True
End If
If Range("A2") <> "" Then
Worksheets("1").Range("A2").Copy
Worksheets("1").Range("c2").End(xlToRight).Offset(0, 1).PasteSpecial
Worksheets("1").Range("A2").Select
Worksheets("1").Range("A2").Clear
Application.CutCopyMode = True
End If
Application.ScreenUpdating = True
End Sub
om dit in vba excel te clonen naar iedere lijn
zodanig ik dit niet voor enkele 1000 lijnen moet invullen en aanpassen.
Ik heb dit nu voor 2 lijnen geschreven.
waarvoor dank
Sub Copy()
Application.ScreenUpdating = False
If Range("A1") <> "" Then
Worksheets("1").Range("A1").Copy
Worksheets("1").Range("c1").End(xlToRight).Offset(0, 1).PasteSpecial
Worksheets("1").Range("A1").Select
Worksheets("1").Range("A1").Clear
Application.CutCopyMode = True
End If
If Range("A2") <> "" Then
Worksheets("1").Range("A2").Copy
Worksheets("1").Range("c2").End(xlToRight).Offset(0, 1).PasteSpecial
Worksheets("1").Range("A2").Select
Worksheets("1").Range("A2").Clear
Application.CutCopyMode = True
End If
Application.ScreenUpdating = True
End Sub