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

• #21219 Delila_1 veterán jaja1981 #21218

  Új Válasz 2014-04-08 17:09:53 #21219

  Ú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 jaja1981 #21218 üzenetére

  Nem kell a sok változó, a kritériumnál megadhatod a csillagokat.
  A szűrt tartományt a Munka2 lap A1-be másolja.

  Sub Szur_Masol()
  ActiveSheet.Range("$A$3:$N$15000").AutoFilter Field:=1, Criteria1:="*" & Range("I1") & "*"
  Range("A3").Select
  Selection.CurrentRegion.Copy Sheets("Munka2").Range("A1")
  End Sub

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