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

• #10386 Delila_1 veterán motinka #10384

  Új Válasz 2011-05-25 08:15:29 #10386

  Ú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 motinka #10384 üzenetére

  Kiegészítve Fire válaszát:

  A szűrésnél a "Szövegszűrők"-et választod, ott pedig a "Kezdete..." almenüt. Ott beírod a keresendő adat kezdetét.

  Másik megoldás, hogy a laphoz rendeled a következő makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Krit
  If Target.Address = "$F$1" Then
  Krit = Range("F1").Value & "*"
  ActiveSheet.Range("$A:$A").AutoFilter Field:=1, Criteria1:=Krit
  End If
  End Sub

  Az F1 cellába beírod a keresendő adat kezdetét. Az Enter leütése után az A oszlopot szűri az F1 cella értéke szerint.

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