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

• #28326 the radish senior tag Delila_1 #28325

  Új Válasz 2015-09-01 10:36:52 #28326

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

  Nagyon köszi, de a forrásadat megnyitását is makró végzi, s a további műveletek miatt kell az első sort üresen hagynom azon a lapon, ahova a másolás történik.

  Tegnap valamit elcseszhettem, mert amikor az utolsó adatot is átmásolta, a makró hibával leállt ahelyett, hogy a"kész" felirat jelent volna meg.

  Most így van és működik, de ha megkérlek, vetnél rá egy pillantást, hogy megfelelő-e?

  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

  Az eredeti:

  Do While Cells(tol, 1) <> ""
  WSM.Cells = "" 'másolat lapjának kiürítése
  sorM = Application.CountA(WSM.Columns(1)) + 1 'ebbe a sorba kell másolni
  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("A" & sorM)
  Makro 'Itt indul a saját makród
  sorszam = sorszam + 1 'növeljük a keresendő értéket
  End If
  Loop
  End Sub

  Előre is köszönöm!

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