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

• #4674 Fehér Mancs tag Delila_1 #4668

  Új Válasz 2009-03-16 08:47:08 #4674

  Ú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

  

  Fehér Mancs

  tag

  válasz Delila_1 #4668 üzenetére

  Lehet rá függvényt is írni:

  Function ElsőNemÜres(Tartomany As Range, TermIrany As Boolean)
  Dim i As Integer
  
  For i = 1 To Tartomany.Cells.Count
  If TermIrany Then
  If Not (IsEmpty(Tartomany(i))) Then
  ElsőNemÜres = Tartomany(i).Value
  Exit Function
  End If
  Else
  If Not (IsEmpty(Tartomany(Tartomany.Cells.Count - i + 1))) Then
  ElsőNemÜres = Tartomany(Tartomany.Cells.Count - i + 1).Value
  Exit Function
  End If
  End If
  Next i
  
  ElsőNemÜres = CVErr(xlErrNA)
  
  End Function

  Működése a kövektező: kijelölsz egy tartományt, és a TermIrany alapján megkeresi benne az első nem üres cellát, és azt adja vissza. Amennyiben változnak az értékek, ez frissül.

  (TermIrany -> ha IGAZ/TRUE, akkor balról jobbra, majd fentről lefelé keres, ha HAMIS/FALSE, akkor jbbról balra majs lentről felfelé. Amennyiben nem talált semmit, akkor a #HIÁNYZIK! üzenetet adja).

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