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

• #22602 Delila_1 veterán foregister #22599

  Új Válasz 2014-07-25 18:58:16 #22602

  Ú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 foregister #22599 üzenetére

  Egy függvény az azonosítóidhoz:

  Function Azonosito(cella As String)
  Dim lel, sor As Long
  Set lel = Range("F:J").Find(cella, LookIn:=xlValues)
  If lel Is Nothing Then
  Azonosito = "Nincs ilyen"
  Else
  sor = lel.Row
  Azonosito = Range("F" & sor)
  End If
  End Function

  Ugye tudod, mit kezdj vele?

  Feltettem ide.

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