Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #17867 Delila_1 veterán Kobe #17866
    Új Válasz #17867
    Ú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 Kobe #17866 üzenetére

    Felvettem 2 változót. Az egyik a WS, ami Worksheet típusú, és a test.xls INT nevű lapját adtam meg értékének. A másik, WF, WorksheetFunction típusú. Ezt azért vettem fel, hogy a VLookup-ot tartalmazó sor könnyebben olvasható legyen.
    Ha jól értettem, az indító füzet aktuális lapján az AB oszlopban lévő adatot keresed a test.xls INT lapjának A oszlopában, és a találat sorában az E oszlop tartalmát íratod az indító füzet T oszlopába.
    Betettem a Vlookup sor elé egy hibaelhárítást arra az esetre, ha a keresett érték nem szerepelne a másik füzetben (On Error Resume Next).

    Sub Keres()
    Dim sor As Long, usor As Long, WS As Worksheet, WF As WorksheetFunction

    Set WS = Workbooks("test.xls").Worksheets("INT")
    Set WF = Application.WorksheetFunction
    usor = Range("AB" & Rows.Count).End(xlUp).Row

    For sor = 2 To usor
    If Cells(sor, "AB") > "" Then
    On Error Resume Next
    Cells(sor, "T") = WF.VLookup(Cells(sor, "AB"), WS.Range("A:P"), 5, 0)
    End If
    Next
    End Sub

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