Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Excel VBA Copy EntireRow  (gelezen 2886 keer)

0 leden en 1 gast bekijken dit topic.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Excel VBA Copy EntireRow
« Gepost op: 17 juni 2017, 19:55:38 »
Dag all,

Om dit te testen open je best "verwerk.xlsm".

Mss ziet iemand van jullie het meteen?
Ik heb startbestand.xls met een aantal rijen en  5 kolommen
Als er in kolom 5 een "x" staat wil ik heel deze rij kopiëren naar het eerste tabblad van huidig bestand (verwerk.xlsm)
Eén rij verder dan wat al gekopieerd werd.

myRange.Rows(rij).EntireRow.Copy Destination:=HuidigWerkboek.Sheets(1).Range("a" & laatsteRij)
Ik krijg als error methode copy van de klasse Range is mislukt.

Alvast bedankt dat iemand er naar kijken wil.
dizzl
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Excel VBA Copy EntireRow
« Reactie #1 Gepost op: 20 juni 2017, 18:05:43 »
Hallo dizzl,

Met zekerheid zou ik het niet durven beweren (ben maar een amateurtje), maar mogelijk is er een conflict tussen UsedRange en EntireRow. In elk geval heb ik enkele aanpassingen aangebracht waarmee het wel werkt.

Anderzijds vraag ik me af of je telkens het- of dezelfde bronbestand(en) wil aanspreken. Anders zou je FileDialog kunnen weglaten en heb je, als je ook MsgBox weglaat, slechts één klik nodig.

Hopelijk kom je hier verder mee, anders horen we het wel (al zal ik de komende periode maar heel zelden in de buurt van het Internet te vinden zijn...)

Groetjes,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Excel VBA Copy EntireRow
« Reactie #2 Gepost op: 21 juni 2017, 19:50:25 »
Heel erg bedankt, pitufo

Ik krijg met jouw bestand maar één regel (deze met u   v   w   y   x) en hij komt op rij 2.
In de 2de msgbox krijg ik 'personal.xlsb' allicht heb ik dit bestand ooit eens bijgewerkt.

groeten,
dizzl
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Excel VBA Copy EntireRow
« Reactie #3 Gepost op: 22 juni 2017, 07:52:01 »
Hey dizzl,

Bij mij deed dat zijn werk naar behoren. Je 2° msgbox bevalt me evenwel niet; het ziet eruit alsof bij jou "laatsterij" uit "personal.xlsb" wordt gehaald, en daarom altijd waarde 2 krijgt (en bijgevolg rij 2 telkens overschreven wordt). Probeer je deze alvast eens : "Set HuidigWerkboek = ActiveWorkbook"

Bestaat overigens de kans dat er ergens een lege cel staat in kolom A van een rij die moet gekopieerd worden ? In dat geval zullen we "laatsterij" toch anders moeten bepalen.

Vermits je verre van een beginneling bent en er expliciet voor gezorgd was dat er op rij 2 zou begonnen worden veronderstelde ik dat dit juist de bedoeling was (misschien omdat er in je echte project op rij 1 kolomtitels zouden komen). Als er effectief op rij 1 moet begonnen worden zullen we nog wat moeten aanpassen, maar ik wacht eerst op je antwoord.

Mvg,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Excel VBA Copy EntireRow
« Reactie #4 Gepost op: 22 juni 2017, 20:54:24 »
Superbedankt dat je er naar kijkt, pitufo. Ik ben een paar dagen weg. Ik kijk er zaterdag avond terug naar en hou je op de hoogte.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com