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

• #28551 the radish senior tag Delila_1 #28550

  Új Válasz 2015-09-10 16:27:36 #28551

  Ú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

  

  the radish

  senior tag

  válasz Delila_1 #28550 üzenetére

  Nem, de át is neveztem, nehogy bekavarjon.
  Sajnos így sem megy.
  Sub masolas()
  Dim tol, ig
  Dim WSI As Worksheet, WSM As Worksheet
  Dim sorszam 'az A oszlop értékei
  Dim sorM As Long 'ahova másolsz
  
  Set WSI = Workbooks("A.xls").Sheets("Innen")
  Set WSM = Workbooks("B.xls").Sheets("Ide")
  
  
  WSI.Activate
  Rows(1).copy WSM.Range("A1") 'fejléc másolása
  sorszam = 1: tol = 2
  
  Do While Cells(tol, 1) <> ""
  'WSM.Cells = "" 'másolat lapjának kiürítése
  sorM = Range("A2")
  tol = Application.Match(sorszam, Columns(1), 0)
  If VarType(tol) = vbError Then 'ha nem talált tol értéket
  MsgBox "Kesz"
  Exit Sub
  Else
  ig = Application.Match(sorszam, Columns(1), 1)
  Rows(tol & ":" & ig).copy WSM.Range("A2")
  proba 'Itt indul a saját makród
  sorszam = sorszam + 1 'növeljük a keresendő értéket
  End If
  Loop
  End Sub
  
  Sub proba()
  Range("A1:E3693").Select
  Selection.copy
  Windows("B.xls").Activate
  Sheets("Munka2").Select
  Range("A1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Range("A1").Select
  Sheets("ide").Select
  MsgBox "Makró"
  End Sub

  Pedig így tökéletes:
  Sub masolas()
  Dim tol, ig
  Dim WSI As Worksheet, WSM As Worksheet
  Dim sorszam 'az A oszlop értékei
  Dim sorM As Long 'ahova másolsz
  
  Set WSI = Workbooks("A.xls").Sheets("Innen")
  Set WSM = Workbooks("B.xls").Sheets("Ide")
  
  
  WSI.Activate
  Rows(1).copy WSM.Range("A1") 'fejléc másolása
  sorszam = 1: tol = 2
  
  Do While Cells(tol, 1) <> ""
  'WSM.Cells = "" 'másolat lapjának kiürítése
  sorM = Range("A2")
  tol = Application.Match(sorszam, Columns(1), 0)
  If VarType(tol) = vbError Then 'ha nem talált tol értéket
  MsgBox "Kesz"
  Exit Sub
  Else
  ig = Application.Match(sorszam, Columns(1), 1)
  Rows(tol & ":" & ig).copy WSM.Range("A2")
  Makro 'Itt indul a saját makród
  sorszam = sorszam + 1 'növeljük a keresendő értéket
  End If
  Loop
  End Sub
  
  Sub Makro() 'ez a saját makród
  MsgBox "Makró"
  End Sub

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