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

• #393 [HUN]Zolee őstag MartinIsti #392

  Új Válasz 2006-04-06 13:33:34 #393

  Ú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

  

  [HUN]Zolee

  őstag

  válasz MartinIsti #392 üzenetére

  az első kérdésre, mingyárt megírom a macrot
  
  a második engem is érdekelne
  
  Hány cella van egy oszlopba :
  
  
  Sub mennyi_van_kitoltve()
  Worksheets(''Munka1'').Select
  Db = 0
  If [A1].Value = '''' Then
  Db = 0
  Else
  If [A2].Value = '''' Then
  Db = 1
  Else
  For Each cella In Range([A1], [A1].End(xlDown))
  Db = Db + 1
  Next
  End If
  End If
  ActiveCell.Value = Db
  End Sub
  
  
  
  [Szerkesztve]

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