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

• #41066 ny.janos tag logitechh #41064

  Új Válasz 2019-05-14 16:45:47 #41066

  Ú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

  

  ny.janos

  tag

  válasz logitechh #41064 üzenetére

  Szia!

  A sorszámozandó oszlop 2. sorának képlete, ha a hivatkozott oszlop (a képletben B) kizárólag számokat tartalmaz:
  =ÖSSZESÍT(2;5;$B$2:B2)
  Ha a hivatkozott oszlopban nem csak számok vannak:
  =ÖSSZESÍT(3;5;$B$2:B2)

  Működési korlát, hogy a hivatkozott oszlop (a példámban B) minden sorának kell adatot tartalmaznia. Ha ez nem teljesül, akkor a képlet sajnos nem alkalmazható. Ebben az esetben marad a makró, amit Delila_1 írt.

• #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