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

• #10388 motinka tag Delila_1 #10387

  Új Válasz 2011-05-25 10:22:49 #10388

  Ú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

  

  motinka

  tag

  válasz Delila_1 #10387 üzenetére

  köszönöm a válaszokat, természetesen Delila_1 megoldására gondoltam )
  De, sajnos ez valamiért nem működik nálam. Biztos megint én nem állítottam be valamit jól.
  Autó szűrőt be kell kapcsolni hozzá?

  erre alakítottam át, jó ez így is?

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

  az A3 a kereső cella és az A5 től az A500 -ig kellene hogy keressen a sorok között

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