Help!

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

Hulp bij posten

Recente topics

Auteur Topic: aanpassen macro einde  (gelezen 8174 keer)

0 leden en 1 gast bekijken dit topic.

coolsluc

  • Gast
aanpassen macro einde
« Gepost op: 28 februari 2015, 18:25:19 »
Aan alle leden die willen helpen, Ik heb een macro waarvan ik het einde zou willen aanpassen-->zie bijlage.
1)op het einde van de macro moet deze het openstaande workbook volledig sluiten.
2)daarna moet  de macro het pas aangemaakte nieuw workbook openen op de sheet Sel ploeg. (indien mogelijk).



    mvg,Luc



Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: aanpassen macro einde
« Reactie #1 Gepost op: 28 februari 2015, 21:05:39 »
Hallo Luc,

Ik zou zeggen : ga voor de simpelste manier en vervang volgende code onderaan je macro

ActiveWorkbook.SaveCopyAs Filename:=maandmap & "Selenium\" & bestandsnaam
ActiveWorkbook.Save
ActiveWorkbook.Close

door

ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=maandmap & "Selenium\" & bestandsnaam
sheets("Sel ploegboek").Select

Mvg,
pitufo



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

coolsluc

  • Gast
Re: aanpassen macro einde
« Reactie #2 Gepost op: 02 maart 2015, 08:24:18 »
Pitufo;bedankt voor het antwoord maar de macro loopt vast op (sheets("Sel ploegboek").Select)
PS hij maakt het nieuwe werkboek aan maar hij opent het niet??

   mvg,Luc

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: aanpassen macro einde
« Reactie #3 Gepost op: 02 maart 2015, 14:30:59 »
Hallo Luc,

verbeter mij als ik het mis heb, maar wat doe je precies?

Je start met het Werkboek Selenium.xlsm te openen.
Daar voer je data in en s'avonds voer je de macro (onder de knop "Opslaan onder data") uit.

Deze macro moet eerst dit werkboek opslaan als 02-03-2015-Selenium.xlsm
Daarna moet hij Selenium.xlsm sluiten zonder de veranderingen op te slaan.
Daarna moet hij Selenium.xlsm opnieuw openen in het werkblad Sel ploegboek.

Ik denk dat je dan beter een echt sjabloon maakt van Selenium.xlsm door het op te slaan als bvb C:\Documents\Selenium.xltm

Je start met het sjabloon Selenium.xltm te openen.
Daar voer je data in en s'avonds voer je de macro (onder de knop "Opslaan onder data") uit.
Dit slaat het werkboek op als 02-03-2015-Selenium.xlsm, en dit in de juiste ondermappen.
Je sluit het werkboek C:\Documents\Selenium.xltm zonder het op te slaan.

ActiveWorkbook.SaveCopyAs Filename:=maandmap & "Selenium\" & bestandsnaam
ActiveWorkbook.Close SaveChanges:=False
Het werkboek openen met Macro-code die in hetzelfde werkboek staat gaat natuurlijk niet.
Een snelkoppeling op je bureaublad zetten lijkt mij het eenvoudigste.

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

coolsluc

  • Gast
Re: aanpassen macro einde
« Reactie #4 Gepost op: 02 maart 2015, 14:48:47 »
SoftAid/pitufo.
1)start met werkboek “ploegboek.xlsm openen
2)voer  macro (onder de knop "Opslaan onder data") uit.
3)sluit werkboek “ploegboek.xlsm.
4)opent het nieuw aangemaakt werkboek “onder de datum van aanmaak” op sheet Sel ploegboek
5)voer tot 6uur volgende dag gegevens in.
6)maak opnieuw een werkboek aan na 6uur voor volgende dag.

Nu is de vraag of hij dit nieuw aangemaakt werkboek onmiddellijk  kan openen na aanmaak????
ps:als hij dit werkboek aanmaakt/wegschrijft kan hij dit dan niet openen (dacht dat dit voor excell geen probleem was via vba of iets dergelijks!).


Mvg,Luc

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: aanpassen macro einde
« Reactie #5 Gepost op: 02 maart 2015, 15:14:20 »
Luc,

Er is geen enkel argument te verzinnen waarom de code die ik je eergisteren bezorgde niet zou werken.
In jouw macro sla je een kopie van het actieve werkboek op en vervolgens het actieve werkboek zelf (met de bedoeling daarna de kopie te openen).
In mijn macro wordt eerst het actieve werkboek opgeslagen
ActiveWorkbook.Savevervolgens opgeslagen met andere naam
ActiveWorkbook.SaveAs Filename:=maandmap & "Selenium\" & bestandsnaamDat is het equivalent van "Opslaan als", dus is op dat moment de kopie toch al geopend !
Ik snap niet waarom je een meer ingewikkeld systeem zou willen verzinnen want deze eenvoudige manier beantwoordt volkomen aan wat je wil bereiken.

Dat mijn macro vastloopt op de derde regel is IN THEORIE ook uitgesloten
sheets("Sel ploegboek").Selectmaar gek genoeg heet je werkblad "Sel ploegboek ". Tja...

Mvg,
pitufo





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

coolsluc

  • Gast
Re: aanpassen macro einde
« Reactie #6 Gepost op: 03 maart 2015, 13:46:07 »
Pitufo , ik denk dat er wat verwarring is omtrent de benaming edg.
1)het standaard werkboek heet  ploegboek.xlsm
2)na opslaan als (dagelijks)“ via de macro” heeft het werkboek telkens een andere naam nl. de datum van opslaan
3)dit werkboek moet dan geopend worden  (vb: 02-03-2015.Selenium)  voor het invullen van de gegevens (in de 3ploegen)
4)in dit werkboek staat een sheet Sel ploegboek waar de gegevens moeten ingebracht worden door de 3ploegen .
5)de vraag was om rechtstreeks naar de sheet Sel ploegboek in het nieuw werkblad te gaan na activeren van de macro en zo onmiddellijk gegevens te kunnen inbrengen                               
 (eenmalig na aanmaken van het nieuw werkblad)de volgende ploegen moeten enkel het nieuw werkblad openen om gegevens in te brengen.
Ps:als ik de macro laat lopen krijg ik volgende te zien (zie bijlage).



Mvg,Luc


Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: aanpassen macro einde
« Reactie #7 Gepost op: 03 maart 2015, 14:57:51 »
Zoiets dan ongeveer?

bestandsnaam = dag & "-" & maand & "-" & jaar & "-Selenium.xlsm"
adres = maandmap & "Selenium\" & bestandsnaam
ActiveWorkbook.SaveCopyAs Filename:=adres
Workbooks(adres).Activate
Workbooks(adres).Worksheets("Sel ploegboek").Activate

:) SoftAid :)             


Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: aanpassen macro einde
« Reactie #8 Gepost op: 03 maart 2015, 15:53:18 »
Hoi SoftAid,

Dat moet inderdaad net zo goed werken als mijn eerdere suggestie.
En toch zal het nog steeds niet werken, maar dat ligt niet aan ons.
In mijn vorige bijdrage had ik Luc er al op gewezen dat zijn  werkblad "Sel ploegboek "  >:(  heet (let vooral op de spatie achteraan)

Luc,

Als je alle voorgaande posts nog eens naleest zal je zien dat het enkel hieraan ligt, en dat onze oplossingen precies doen wat je vroeg.
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

coolsluc

  • Gast
Re: aanpassen macro einde
« Reactie #9 Gepost op: 03 maart 2015, 16:04:10 »
SoftAid,de macro loopt vast op de lijn "Workbooks(adres).Activate"

Sorry heren maar ik ken er niets van en jullie zeggen dat er iets mis is met Sel ploegboek of een spatie of iets dergelijk
ps:ik probeer het te begrijpen maar dit is voor mij chinees!!
misschien dit item afsluiten (dit lukt mij toch niet);
.
In ieder geval bedankt voor alle moeite (het ligt niet aan jullie).


 mvg,Luc

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: aanpassen macro einde
« Reactie #10 Gepost op: 03 maart 2015, 16:10:15 »
Luc,

Verander de naam van het werkblad
"Sel ploegboek "
in
"Sel ploegboek"
en gebruik of de macro van SoftAid of die van mij
en je bent er echt wel
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: aanpassen macro einde
« Reactie #11 Gepost op: 03 maart 2015, 16:14:47 »
SoftAid,de macro loopt vast op de lijn "Workbooks(adres).Activate"
Dan moeten we uitzoeken wat daar mis gaat.
Sorry heren maar ik ken er niets van en jullie zeggen dat er iets mis is met Sel ploegboek of een spatie of iets dergelijk
ps:ik probeer het te begrijpen maar dit is voor mij chinees!!
misschien dit item afsluiten (dit lukt mij toch niet)
Tja, je schijnt het eerder op te geven dan wij  :( :( :(
- achter de naam van je tabblad Sel ploegboek staat een spatie, en net als een spatie tussen Sel en ploegboek wordt ook deze spatie door Excel herkend als een karakter. In je macro verwijs je naar Sel ploegboek ZONDER spatie na ploegboek. Dus vindt de macro het tabblad niet, omdat het een andere naam heeft.
"Sel ploegboek" is niet gelijk aan "Sel ploegboek " (let op de spatie na ploegboek).
In ieder geval bedankt voor alle moeite (het ligt niet aan jullie).
Wij doen ons best om te helpen, en blijven dat doen.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: aanpassen macro einde
« Reactie #12 Gepost op: 03 maart 2015, 16:33:30 »
Luc,

het is volgens mij toch de bedoeling dat je elke dag om 18:00 h

- het van data voorziene ploegboek.xlsm wordt opgeslagen als 03-03-2015-Selenium.xlsm
- een nieuw leeg ploegboek.xlsm wordt geopend.
- het nieuwe lege ploegboek.xlsm opent op het tabblad "Sel ploegboek"

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

coolsluc

  • Gast
Re: aanpassen macro einde
« Reactie #13 Gepost op: 24 maart 2015, 16:34:00 »
Aan alle helpers, SORRY voor de late reactie maar de pc is stuk gegaan met de nodige problemen (laten herstellen, terug kapot).
PS nieuwe pc aangeschaft-->problemen opgelost;


voor op de bovenliggende vraag terug te komen,na alles even te laten bezinken heb ik het toch klaar gekregen EN HET WERKT!!
Nogmaals bedankt voor het geduld en de aangebrachte oplossing :-[
ps:misschien tot later



     mvg,Luc


 


www.combell.com