Vraag ik heb de enkele macro hieronder die perfect werkt, nu heb ik de andere 2 opties toegevoegd (zie daaronder en dna werkt hij niet meer kan iemand helpen?)
Sub Uitzetten()
Dim c As Range
y = 2
[M!A3].CurrentRegion.ClearContents
For Each c In Sheets("cash").Range("B2:B2000")
If c = ["M"] Then
Blad6.Range("A" & y).Offset(1, 0) _
.Resize(, 15) = Blad1.Cells(c.Row, 1).Resize(, 15).Value
y = y + 1
End If
Next
End Sub
Sub Uitzetten()
Dim c As Range
y = 2
[M!A3].CurrentRegion.ClearContents
[M!A3].CurrentRegion.ClearContents
[R!A3].CurrentRegion.ClearContents
For Each c In Sheets("cash").Range("B2:B2000")
If c = ["M"] Then
Blad6.Range("A" & y).Offset(1, 0) _
.Resize(, 15) = Blad1.Cells(c.Row, 1).Resize(, 15).Value
y = y + 1
If c = ["K"] Then
Blad7.Range("A" & y).Offset(1, 0) _
.Resize(, 15) = Blad1.Cells(c.Row, 1).Resize(, 15).Value
y = y + 1
If c = ["R"] Then
Blad8.Range("A" & y).Offset(1, 0) _
.Resize(, 15) = Blad1.Cells(c.Row, 1).Resize(, 15).Value
y = y + 1
End If
Next
End Sub
Sub Uitzetten()
Dim c As Range
y = 2
[M!A3].CurrentRegion.ClearContents
For Each c In Sheets("cash").Range("B2:B2000")
If c = ["M"] Then
Blad6.Range("A" & y).Offset(1, 0) _
.Resize(, 15) = Blad1.Cells(c.Row, 1).Resize(, 15).Value
y = y + 1
End If
Next
End Sub
Sub Uitzetten()
Dim c As Range
y = 2
[M!A3].CurrentRegion.ClearContents
[M!A3].CurrentRegion.ClearContents
[R!A3].CurrentRegion.ClearContents
For Each c In Sheets("cash").Range("B2:B2000")
If c = ["M"] Then
Blad6.Range("A" & y).Offset(1, 0) _
.Resize(, 15) = Blad1.Cells(c.Row, 1).Resize(, 15).Value
y = y + 1
If c = ["K"] Then
Blad7.Range("A" & y).Offset(1, 0) _
.Resize(, 15) = Blad1.Cells(c.Row, 1).Resize(, 15).Value
y = y + 1
If c = ["R"] Then
Blad8.Range("A" & y).Offset(1, 0) _
.Resize(, 15) = Blad1.Cells(c.Row, 1).Resize(, 15).Value
y = y + 1
End If
Next
End Sub
Laatst bewerkt: