Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #19387 Delila_1 veterán Agaba #19386
    Új Válasz #19387
    Ú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 Agaba #19386 üzenetére

    A H1:J1 tartományba beírod a 3 címet (Node, Caption, Db), I2-be a keresett címet, és indítod a makrót.

    Sub Node()
    Dim sor As Integer, usor As Integer, WF As WorksheetFunction, v

    Range("H2").ClearContents
    v = MsgBox("Beírtad az I2 cellába a keresett címet?", vbYesNo + vbQuestion)
    If v = vbNo Then Exit Sub

    Set WF = Application.WorksheetFunction
    Range("L1") = "Node": Range("M1") = "Caption"

    usor = WF.CountA(Columns("A"))
    Range("A1:E" & usor).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "I1:I2"), CopyToRange:=Range("L1:M1"), Unique:=False

    usor = WF.CountA(Columns("L")): Range("J2") = usor - 1
    For sor = 2 To usor
    Range("H2") = Range("H2") & Range("L" & sor) & ", "
    Next
    Range("H2") = Left(Range("H2"), Len(Range("H2")) - 2)
    Columns("L:M").ClearContents
    End Sub

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