kopieren gevulde rijen naar ander tabblad

[Remco99]

Goedemorgen allen,

In de bijlage een bestand met het voorbeeld waar het over gaat.
Bestand bestaat uit twee tabbladen. Tabblad twee dient handmatig te worden gevuld, hier komen meerdere tabellen in -> in het voorbeeld staan er twee

De bedoeling is dat alleen uit de gevulde rijen van alle tabellen de kolommen C4, D4, I4, E4 en J4 automatisch in de tabel 1 in tabblad 1 worden gevuld.

Iemand een idee hoe ik dit automatisch kan regelen?

Alvast dank!Bekijk bijlage Voorbeeld.xlsx

 

[spaarie]

Kan je hier wat mee?

Sub spaarie()
Dim locatie As Worksheet
Set locatie = Worksheets("Offerte tabel") 'pas hier de worksheet aan, waar je het heen wilt kopieren
Dim sRow As Long
Dim dRow As Long
Dim sCount As Long
sCount = 0
dRow = 1
For sRow = 3 To Range("C29").End(xlUp).Row
If Cells(sRow, "C") Like "*" Then 'pas hier je criteria aan door * te veranderen
sCount = sCount + 1
dRow = dRow + 1
Cells(sRow, "C").Copy Destination:=locatie.Cells(dRow, "B")
Cells(sRow, "D").Copy Destination:=locatie.Cells(dRow, "C")
Cells(sRow, "E").Copy Destination:=locatie.Cells(dRow, "D")
Cells(sRow, "I").Copy Destination:=locatie.Cells(dRow, "E")
Cells(sRow, "J").Copy Destination:=locatie.Cells(dRow, "F")
End If
Next sRow
End Sub