Kolom overslaan

[masala09]

Iemand een idee hoe ik bij het transporteren van gegevens een kolom kan overslaan.

Sheets("Database_Facturen").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 13) = Array(.Range("I13"), .Range("A3"), .Range("I12"), ['Factuur maken'!C40], _
.Range("I11"), .Range("C50"), ['Factuur maken'!C36], .Range("H40"),  [U]kolom overslaan[/U]  .Range("H46"), .Range("H44"))

De plaatsing waar de kolom moet worden overgeslagen is onderstreept.

 

[masala09]

Oplossing zelf maar gevonden. Maak gewoon een lege waarde: "", of "0",

Werkt.

In ieder geval, mits gedaan, bedankt voor de moeite.

Sheets("Database_Facturen").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 13) = Array(.Range("I13"), .Range("A3"), .Range("I12"), ['Factuur maken'!C40], _
.Range("I11"), .Range("C50"), ['Factuur maken'!C36], .Range("H40"),  "",  .Range("H46"), .Range("H44"))