rositasijm
Gebruiker
- Lid geworden
- 20 jun 2017
- Berichten
- 11
Hallo!
Ik heb een macro gemaakt die ervoor zorgt dat de gekopieerde gegevens onderaan de lijst geplakt worden.
De macro is gemaakt dmv het opnemen van een macro, maar hij geeft even goed een foutmelding.
Voorbeeld van het stukje code:
Groetjes!
Ik heb een macro gemaakt die ervoor zorgt dat de gekopieerde gegevens onderaan de lijst geplakt worden.
De macro is gemaakt dmv het opnemen van een macro, maar hij geeft even goed een foutmelding.
Voorbeeld van het stukje code:
Code:
Dim s1 As Worksheet
Dim tmpR As Range
Dim rowcount As Long, colcount As Long, i As Long, j As Long, k As Boolean
Set s1 = ActiveSheet
Set tmpR = s1.Range("A1:AR500")
rowcount = tmpR.Rows.Count
colcount = tmpR.Columns.Count
For i = 15 To 800 Step 1
k = 0
For j = 1 To 35
If tmpR.Value2(i, j) <> "" Then
k = 1
'MsgBox ("lege regel gevonden")
Exit For
End If
Next j
If k = 0 Then
tmpR.Cells(i, 3).Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
GoTo 300
End If
Groetjes!