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

• #13909 Bocimaster csendes tag Bocimaster #13908

  Új Válasz 2012-05-30 15:02:06 #13909

  Ú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

  

  Bocimaster

  csendes tag

  válasz Bocimaster #13908 üzenetére

  Sub Makró3()
  '
  ' Makró3 Makró
  '

  '
  Windows(" v1_barni.xlsx").Activate
  Range("A3:S3").Select
  Range("S3").Activate
  Selection.Copy
  Windows("...mutatokkal 2.0_barni.xlsm").Activate
  ActiveSheet.Paste
  Range("AQ4").Select
  Windows(" v1_barni.xlsx").Activate
  Range("A2:S2").Select
  Range("S2").Activate
  Application.CutCopyMode = False
  Selection.Copy
  Windows("..._mutatokkal 2.0_barni.xlsm").Activate
  ActiveSheet.Paste
  End Sub

  - ehhez kéne egy feltétel ( és ez csak két sor másolása , feltétel nélkül)

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