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

• #36886 Delila_1 veterán North15 #36880

  Új Válasz 2018-01-03 08:00:19 #36886

  Ú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 North15 #36880 üzenetére

  Sajnos ez az Excel hibája. Hiába törlöd a korábbi adatokat, nem tudja feledni az előzőleg kitöltött területet. Emiatt nem is szoktam alkalmazni a Cells.SpecialCells(xlCellTypeLastCell).Row -t. Az esetedben egy rövid kis makróval megoldható az alsó sor kikeresése.

  Sub Also_sor()
Dim oszlop As Integer, usor As Long

For oszlop = 1 To 8
If Cells(Rows.Count, oszlop).End(xlUp).Row > usor Then
usor = Cells(Rows.Count, oszlop).End(xlUp).Row
End If
Next
MsgBox usor
End Sub

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