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

• #13269 Delila_1 Topikgazda gyga #13265

  Új Válasz 2012-03-23 16:23:07 #13269

  Ú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

  Topikgazda

  válasz gyga #13265 üzenetére

  Nem szerencsés dolog a fórumon egy személyhez intézni a kérdést. Jó esetben itt van a megszólított, tud, és akar is válaszolni. Ha a 3 feltétel közül valamelyik hiányzik, nem kapsz választ. A címzett nélküli kérdésre nagyobb eséllyel kaphatsz megoldást.

  Töröld a törölhető sorokat, majd írd be a VBE-be a lenti két funkciót.

  Function fent(Keres As Long, WS$, hol$)
  Dim CV, oszlop%, ter$
  oszlop% = Asc(hol$) - 64
  ter = hol$ & ":" & hol$
  For Each CV In Sheets(WS$).Range(ter$)
  If CV > Keres Then
  fent = Sheets(WS$).Cells(CV.Row - 1, oszlop%)
  Exit Function
  End If
  Next
  End Function
  
  
  Function lent(Keres As Long, WS$, hol$)
  Dim CV, oszlop%, ter$
  oszlop% = Asc(hol$) - 64
  ter = hol$ & ":" & hol$
  For Each CV In Sheets(WS$).Range(ter$)
  If CV > Keres Then
  lent = Sheets(WS$).Cells(CV.Row + 1, oszlop%)
  Exit Function
  End If
  Next
  End Function

  A cellába, ahova a keresett érték fölötti sort akarod megkapni, így add meg a függvényt:
  =fent(A1;"Munka2";"A")
  Az A1 az a cella, ahova a kérdésben példaként írt 203958-at írod. A "Munka2" annak a lapnak a neve idézőjelek között, ahol a keresést végre akarod hajtatni, az "A" a keresés oszlopának a betűjele.

  A másik képlet =lent(A1;"Munka2";"A"), ez a keresett érték alatti cella értékét hozza eredményül.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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