laatste kolom

[stefano]

Ik ben op zoek naar de juiste code om binnen een bepaalde rij (10) de laatste kolom terug te vinden om daarna in de eerst vrije kolom er naast een aantal gegevens te plakken. Dit is wat ik samen knoeide... Het gaat hem vooral (denk ik) om het rode gebied !

Sub test()

Sheets("deinze").Select
Range("a5:l5").Select
Selection.AutoFilter
Range("a5").Select
Selection.AutoFilter Field:=6, Criteria1:="<>"
Range("a6").CurrentRegion.Cells.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("mvd1").Select
Range("A4").Select
ActiveSheet.Paste

Dim x As Long

x = Cells(Columns.Count, "10").End(xlRight).Column

Range(.......+ 1).Select
ActiveSheet.Paste
End Sub

dank bij voorbaat voor de hulp

 

[LucB]

Deze vindt in rij 10 de 1e lege cel.

Range("IV10").End(xlToLeft).Offset(0, 1).Select

of

Range("IV10").End(xlToLeft).Offset(0, 1).Paste

 

[stefano]

ok maar

Werkt, waarvoor dank.

Ik heb het blad van een voorwaardelijke opmaak voorizen. Wanneer ik een gebied mét voorwaardelijke opmaak selecteer en dit gebied plak in de laatste kolom van het blad (zie hierboven), dan is de voorwaardelijke opmaak verdwenen. Hoe kan ik dit vermijden ?

dbv,

Stefano

 

[Wigi]

Dat is raar Stefano. Ik heb het eens geprobeerd: gewoon voorwaardelijke opmaak toepassen op een paar cellen en die cellen dan kopieren. De voorwaardelijke opmaak gaat gewoon mee.