Új hozzászólás Aktív témák

• #40059 Delila_1 veterán garga pista #40058

  Új Válasz 2019-01-25 12:21:03 #40059

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz garga pista #40058 üzenetére

  Sub Oszlopszam()
Dim uoszlop As Integer
uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox uoszlop
End Sub

  Az összevont cellák miatt 1-gyel kevesebb lesz a kiírás. Ezt megoldhatod, ha az értékadásnál növeled az uoszlop értékét.

  uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column+1

Új hozzászólás Aktív témák