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

• #29733 poffsoft veterán bteebi #29730

  Új Válasz 2015-12-07 13:24:43 #29733

  Ú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

  

  poffsoft

  veterán

  válasz bteebi #29730 üzenetére

  Option Explicit
  Sub kivalaszt()
  Dim ar As String, lastrow As Double, lr As Double, sor As Double
  
  lastrow = Sheets("forras").UsedRange.Rows.Count
  lr = Sheets("adat").UsedRange.Rows.Count
  On Error Resume Next
  For sor = 2 To lr
  ar = Application.WorksheetFunction.VLookup(Sheets("adat").Cells(sor, 1), Sheets("forras").Range("A1:B" & lastrow), 2, False)
  If Err.Number <> 0 Then ar = "'#HIÁNYZIK"
  Sheets("adat").Cells(sor, 2) = ar
  Next
  End Sub

  valójában nem találja a keresett adatot a vlookup...

• #29731 m.zmrzlina senior tag bteebi #29730

  Új Válasz 2015-12-07 12:52:08 #29731

  Ú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

  

  m.zmrzlina

  senior tag

  válasz bteebi #29730 üzenetére

  Mi történik, ha nem makróval, hanem egyszerű munkalapfüggvénnyel próbálod megoldani a problémát?

  Írj fel próbára az adat munkalapodon egy egyszerű =FKERES()-t ezekre a tartományokra és nézzük meg mit ad vissza!

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