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

• #28540 the radish senior tag Delila_1 #28196

  Új Válasz 2015-09-09 18:18:07 #28540

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

  Szia!

  Újra elakadtam.
  Ha így hagyom, akkor tökéletesen működik, minden felbukkanó msgbox "okézása" után indul elölről és másolja sorban a dolgokat, ahogy kell is, 1, 2, stb és a végén a kész fogad..
  Azonban nem tudok makrót beilleszteni a művelet folyamatába. Ha a legegyszerűbb műveletet is beiktatom, pl. hogy másolja a Masolat_lap A oszlopát bárhova, akkor végigfut ugyan, fel is ugrik az msgbox, de sajnos véget is ér a folyamat, azaz az első adatsort követően nem másolja át a többit, leáll.

  Hogy tudnám rávenni, hogy elfogadja a makrót és lefusson sorban az összes adatsorral?

  Előre is köszi.

• #28322 the radish senior tag Delila_1 #28196

  Új Válasz 2015-09-01 09:25:58 #28322

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

  Szia!

  Azt hogy tudom megoldani, hogy a 2. sorban legyen a beillesztés első sora?
  Tehát az "A2" legyen a kezdő cella. Próbáltam átírni, de nem sikerült.
  (Fejléc nem kell, az úgyis törlődik, miután áthelyeztem a törlés parancsot.)

  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

• #28197 the radish senior tag Delila_1 #28196

  Új Válasz 2015-08-24 10:39:10 #28197

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

  Szia!

  Nagyon köszönöm, működik!

  Egy apró gondom van csupán, a másolat lapja nem törlődik ki, hanem szép lassan egymás alá bekerülnek az adatsorok.
  WSM.Cells = "" 'másolat lapjának kiürítése - nem törli a rekordokat.

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