megoldást keresek erre a problémára
-
#460
Ez a makró megcsinálja:
Sub Kitölt()
érték = Cells(1, 1)
Range("A1").Select
oszlop = Selection.End(xlToRight).Column + 1
If oszlop = 257 Then oszlop = 2
Cells(1, oszlop) = érték
End Sub