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

• #44115 p5quser tag

  Új Válasz 2020-05-25 16:28:04 #44115

  Ú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

  

  p5quser

  tag

  Sziasztok!
  Ismét előtérbe került egy korábbi nyomorom, amivel kapcsolatban egy mai guglizás felcsillantotta a reményt.
  A varázsszó a "Split". Az alábbi kódsorokkal egész tűrhető eredményeket kaptam. Ő azt csinálja, hogy végigmegy a G2:G180 range-en és minden ott található megnevezést feldarabol "space"-enként, majd ezek első és második darabkáját (joker karakterekkel) megkeresi a "B" oszlopban.
  Ezután visszaadja a talált egyezést, ill. a mellette lévő adatot. Mint egy feltuningolt FKERES. Gyanítom nagyban javulna a találati arány, ha a 3. darabkát is be tudnám szőni a keresésbe (a "cik" akár 4-5 részes is lehet), de elakadtam.
  Azt még meg tudtam oldani, hogy ha egy darabkás a keresendő, akkor adja vissza azt, de azt már nem, hogy ha csak két darabkás, akkor is. V9-cel elszáll, mihelyst megpróbálom az "spl(2)"-t is beleszőni a keresésbe.
  Ha esetleg valaki látja azt amit én nem, megköszönném... :)

  Sub keresgelos()
With Sheets(1)
    Dim cil As Range, tci As Range
    Set cil = .Range("G2:G180")
    For Each cik In cil.Cells
    spl = Split(cik)
    Set tci = .Range("B:B").Find(what:=spl(0) & "*" & spl(1), LookIn:=xlFormulas)
    If spl(1) = "" Then
    Set tci = .Range("B:B").Find(what:=spl(0) & "*", LookIn:=xlFormulas)
    End If
    On Error Resume Next
    .Cells(cik.Row, 8).Value = tci
    .Cells(cik.Row, 9).Value = tci.Offset(0, 1).Value
    Next
End With
End Sub


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