Ú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

• #8634 Delila_1 veterán kwd #8633

  Új Válasz 2010-11-13 14:55:48 #8634

  Ú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 kwd #8633 üzenetére

  Úgy vélem, hogy az átalakítandó celláid szöveg formátumú számjegyeket tartalmaznak. Egyszerűbben is átalakíthatod az egészet.
  Valahova egy üres cellába beírsz egy 1-est, másolod. Kijelölöd a kérdéses tartományt, jobb klikk, Irányított beillesztés, Szorzás. Az 1-esre már nincs szükség, törölheted. Ennyi.

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