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

• #40059 Delila_1 veterán garga01 #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 garga01 #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

• #39070 ccs2929 senior tag garga01 #39060

  Új Válasz 2018-09-06 09:49:37 #39070

  Ú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

  

  ccs2929

  senior tag

  válasz garga01 #39060 üzenetére

  Köszönöm neked is, és Mutt-nak is. A napokban kipróbálom majd mindegyik megoldást, tudom, hogy a névben, meg az adószámban is lehet eltérés, szóval nem 100%-os az eredmény, de azért így biztosan jóval kisebb lesz a duplikáltak aránya.

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