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

    Fototrend

    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

  • #12616 Delila_1 Topikgazda csferke #12614
    Új Válasz #12616
    Ú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

    Topikgazda

    válasz csferke #12614 üzenetére

    Nem nézted meg a csatolt képet, pedig ott a K2 és K3 cella éppen azt tartalmazza, amit kértél.

    Amit most írsz, körkörös hivatkozást eredményezne. Az A1 cellában akarod megjeleníteni azt az adatot, amit a VLOOKUP az A oszlopban talál.

    Tettem az első sorba (A:D) egy autoszűrőt, a G oszlopba pedig egy összefűzést (=A2&" "&D2)
    Az érvényesítésben (I1 cella) forrásként a $G$2:$G$6 tartományt adtam meg, mert a 2:6 sorokba írtam adatokat. Az I1-ben történő kiválasztás után az autoszűrő a választás szerint szűri az A:D tartományt. Az I1 törlése esetén minden sor látszik.

    Nem írtad, hogy az A és D oszlopok közül melyik tartalmazza a város, ill. a cég nevét, ezért 2 makrót írtam. A megfelelőt rendeld a lapodhoz.

    Private Sub Worksheet_Change(ByVal Target As Range)
    'Város=D oszlop, Cég=A oszlop
    Dim betu%, krit

    If Target.Address = "$I$1" Then
    If IsEmpty(Target) Then
    Selection.AutoFilter Field:=1
    Exit Sub
    Else
    Range("A1").Select
    For betu% = Len(Target) To 1 Step -1
    If Mid(Target, betu%, 1) = " " Then
    krit = Left(Target, betu% - 1)
    Exit For
    End If
    Next
    End If
    Selection.AutoFilter Field:=1, Criteria1:=krit
    End If
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
    'Város=A oszlop, Cég=D oszlop
    Dim betu%, krit

    If Target.Address = "$I$1" Then
    If IsEmpty(Target) Then
    Selection.AutoFilter Field:=4
    Exit Sub
    Else
    Range("A1").Select
    For betu% = 1 To Len(Target)
    If Mid(Target, betu%, 1) = " " Then
    krit = Right(Target, Len(Target) - betu%)
    Range("J2") = krit
    Exit For
    End If
    Next
    End If
    Selection.AutoFilter Field:=4, Criteria1:=krit
    End If
    End Sub

    [ Szerkesztve ]

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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