Verwijzing met macro

[11221122]

Hallo, Ik wil een aantal cellen verwijzen naar een tabel. Ik heb deze code opgezet maar het werkt voor geen meter want de code is zo fout al wat.

Sub Doorvoeren()

With Sheets("Factuur")
    For Each c In .Range("B19:B41").SpecialCells(xlConstants) '1 voor 1 alle niet lege cellen in dat bereik langslopen
      c.Range("I10" & "I11" & "C" & "I12").Copy
      Sheets("Bestellen").Range("A" & "C" & "D" & "G").End(xlUp).Offset(1).PasteSpecial xlValues 'plak ze op de eerstevolgend lege rij
    Next
    Sheets("Bestellen").PivotTables("Draaitabel3").RefreshTable
  End With

End Sub

De code moet het volgende doen: Hij moet kijken in B19 T/M B41 welke rijen gevult zijn. Zijn dat er 4 moet hij alle 4 de rijen doorsturen. Deze cellen : ("I10" & "I11" & "C" & "I12"). moeten naar deze ("A" & "C" & "D" & "G"). gekopiert worden. De cellen waar een letter voor staat bijvoorbeeld I10 zijn vaste waarde. En cellen waar alleen een lettervoor staat moet of de niet lege regel gekopiert worden. Of in de eerst volgende regel geplakt worden.

Graag jullie hulp!

 

[cow18]

niet getest wegens gebrek aan voorbeeldje, maar zoiets moet het ongeveer zijn

Sub Doorvoeren()

  With Sheets("Factuur")
    For Each c In .Range("B19:B41").SpecialCells(xlConstants)  '1 voor 1 alle niet lege cellen in dat bereik langslopen
      Set d = Sheets("Bestellen").Range("A" & Rows.Count).End(xlUp).Offset(1)  '1e niet-lege cel in A-kolom
      d.Value = .Range("I10").Value                        'in A-kolom
      d.Offset(, 2).Value = .Range("I11").Value            'in C
      d.Offset(, 3).Value = c.Value                        'in D
      d.Offset(, 6).Value = .Range("I12").Value            'in G
    Next
    Sheets("Bestellen").PivotTables("Draaitabel3").RefreshTable
  End With

End Sub

 

[11221122]

Heel erg bedankt! Ik heb hem zelf nog iets aangepast maar hij werkt.