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

• #28548 the radish senior tag Delila_1 #28546

  Új Válasz 2015-09-10 16:14:22 #28548

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

  Ránéznél, hol a hiba?

  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")
  copy 'Itt indul a saját makród
  sorszam = sorszam + 1 'növeljük a keresendő értéket
  End If
  Loop
  End Sub
  
  Sub copy()
  Range("A:E").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 "Jönne a következő"
  End Sub

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