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

• #8650 Fire/SOUL/CD félisten kwd #8649

  Új Válasz 2010-11-16 10:51:33 #8650

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz kwd #8649 üzenetére

  Korábban nem volt szó ugyan VLOOKUP-ról, de végül is lényegtelen, mert a szöveg->általános vagy fordított konverzió nem okozhat ilyen jelenséget. Valami nem kerek Nálad...Itt van 2 példa egy hagyományos és egy makrós megoldás, talán segít kideríteni, hogy nálad mi lehet a gond.
  (Az A1:A4 tartományt elneveztem Adatok-nak...)

  Hagyományos

  Makró

  Private Sub CommandButton1_Click()
  
  Dim MyFxs As WorksheetFunction
  Set MyFxs = Application.WorksheetFunction
  Dim MyRange As Range
  Set MyRange = Sheets("Munka1").Range("Adatok")
  
  On Error Resume Next
  Result = MyFxs.VLookup("A456", MyRange, 1, False)
  If Err.Number <> 0 Then
  MsgBox ("Nincs ilyen elem: " & Result)
  Else: MsgBox ("Található ilyen elem: " & Result)
  End If
  
  End Sub

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