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

• MartinIsti csendes tag

  #395

  #393 [HUN]Zolee

  2006-04-06 15:01:21

  Új Válasz

  Ú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

  

  MartinIsti

  csendes tag

  #393 [HUN]Zolee

  #393 [HUN]Zolee

  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]

  Köszi a segítséget, végül én a következőt találtam ki kedden a sorok számának megállapítására (persze ehhez az kell, hogy az első üres cella alatt már ne legyen több nem üres cella):
  
  Sub elsourescella()
  
  ' Hogyan kell megállapítani az első üres sor helyét
  Dim i As Integer ' változó definiálása
  i = 3 ' változó alapértékének meghatározása
  While Cells(i, 2) <> '''' ' i-dik oszlop vizsgálata az első üres celláig
  i = i + 1
  Wend
  
  End Sub

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