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

• #13675 Bocimaster csendes tag

  Új Válasz 2012-05-10 15:28:47 #13675

  Ú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

  Egy kis programozói véna kellene

  feladat:

  Sub Makró1()
  '
  ' Makró1 Makró
  '

  '
  For n = 1 To 60
  a = n + 3
  b = "d" + Str(a)
  Windows("Gyerek és subspec ágyak végl.xlsx").Activate
  Rows("1:3").Select
  Selection.Copy
  Workbooks.Add
  ActiveSheet.Paste
  'ide meg kell keresni a munkafüzet neve lekérdezőfüggvényt változóba tenni
  Windows("Gyerek és subspec ágyak végl.xlsx").Activate
  Rows(a).Select
  Application.CutCopyMode = False
  Selection.Copy

  Windows(munkafüzet neve változó).Activate
  Range(b).Select
  ActiveSheet.Paste
  Windows("Gyerek és subspec ágyak végl.xlsx").Activate
  Range(b).Select
  'nev=kiválasztott cella tartalma
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "Mohács Városi Kórház-Rendelőin"
  'létre kell hozni a mentéshez a nevet
  Windows("Munkafüzet2").Activate
  ActiveWorkbook.SaveAs Filename:= _
  "C:\Miklos\'12\Mohács Városi Kórház-Rendelőin.xlsx", FileFormat:= _
  xlOpenXMLWorkbook, CreateBackup:=False
  Windows("Gyerek és subspec ágyak végl.xlsx").Activate

  Next n
  End Sub

  - van egy táblázatom , sorok száma 1-61 ( ami fontos 1-3 címsor ez mindig másolandó, a 4 től a 60 ig sorig intézmények)
  A D oszlopban az intézeteket egyesével kimásolni minden egyes intézet külön fájlba és az intézet névvel elmentve......

  makró rögzítő után elakadtam.....

  előre is köszi

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