Horizontaal tellen ipv verticaal , VBA

[rvt1982]

Beste Leden,

Ik heb de volgende code, maar wil graag de zelfde functie alleen horizontaal tellen ipv Verticaal tellen.

Wat moet ik hier aanpassen??

Alvast bedankt.

.Cells(Rows.Count, "B:B").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

 

[HSV]

Met die code bepaal je de laatst ingevulde rij + 1 in kolom B, en plakt daar de waarden.
Verticaal gezien dus.

 

[rvt1982]

Oeps, ik bedoel horizontaal tellen ipv verticaal.

 

[HSV]

Uit de losse pols geschreven, dus niet getest.
Op rij 2 dus.

.Cells(2, columns.Count).End(xltoleft).Offset(, 1).PasteSpecial Paste:=xlPasteValues

 

[rvt1982]

@ Harry,
Dit is hem.... Thnx