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

• #6461 Delila_1 veterán szjoci #6460

  Új Válasz 2010-03-04 16:45:13 #6461

  Ú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 szjoci #6460 üzenetére

  A laphoz rendeld ezt a makrót – lapfülön jobb klikk, Kód megjelenítése. A jobboldalon kapott üres lapra másold be.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$1" Then
  Selection.AutoFilter Field:=1, Criteria1:=Cells(1, 3) & "*", Operator:=xlAnd
  End If
  End Sub

  A $C$1 helyett annak a cellának a címét add meg, ahol a kezdő betű(ke)t akarod megadni.

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