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

• #12616 Delila_1 veterán csferke #12614

  Új Válasz 2012-01-12 09:26:39 #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

  veterán

  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

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