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

• #41065 Delila_1 veterán logitechh #41064

  Új Válasz 2019-05-14 16:41:00 #41065

  Ú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 logitechh #41064 üzenetére

  Makró arra az esetre, ha a szűrt oszlop az A, a sorszámot pedig a B oszlopba kell írni.

  Sub Sorszamozas()
Dim sor As Long, usor As Long, sorszam As Long

usor = Range("A" & Rows.Count).End(xlUp).Row
sorszam = 1
For sor = 2 To usor
If Rows(sor).Hidden = False Then
Range("B" & sor) = sorszam
sorszam = sorszam + 1
End If
Next
End Sub

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