Code herschrijven dmv code

Status
Niet open voor verdere reacties.
S

Sjaakz

Gebruiker
Lid geworden
3 jun 2009
Berichten
120
Heren / dames,

Ik geef toe dat het een wazige omschrijving is maar.........

We hebben door een crash verschillende beschadigde bestanden welke niet meer geopend kunnen worden.
Mijn codes verwijzen naar deze bestanden.

Ik heb zo'n 1000 bestanden gemaakt met een code die verwijst naar het beschadigde bestand facturatie.xslx. Graag wil ik dmv een code al deze bestanden stuk voor stuk aanpassen zodat ze in de toekomst de gegevens wegschijven naar lijst facturatie.xlsx.

Wanneer bv er iets wijzigt in de layout of berekening van het document. Maak ik een onderliggend macrobestandje deze opent corrigeert slaat het document op en sluit het weer zoiets wil ik ook voor mijn codes.


Opnemen met de wizard lukt niet.

Alvast bedankt voor een snel antwoord

SjaakZ
 
Laatst bewerkt:
snb bedankt maar zou.......

Goedemorgen SNB,

Bedankt voor je snelle antwoord en de mogelijke oplossing.
Maar zou je me alsjeblieft verder kunnen helpen met de code ik ben niet zo onderlegd dat ik dit zelf kan.
ik heb zelf al dingen overgenomen maar krijg foutmeldingen als onjuiste routine / functie.


Code: 
 Sub omzet()
   'maakt een kopie van de relevante gegevens in uit afgesloten bestand naar facturatie bestand
   
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Range("i21:L21").Select
    Range("L21").Activate
    Selection.Copy
    ChDir "P:\dossiers\macro bestanden"
    Workbooks.Open Filename:="P:\dossiers\macro bestanden\facturatie.xlsm"
    ActiveCell.SpecialCells(xlLastCell).Select
    ActiveCell.Offset(1, -3).Range("A1:D1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("C1:H1").Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Dit is wat ik nu gebruik. Het betreft dus de bestandsnaam facturatie.xlsm dit moet worden lijst facturatie.xlsm
Wellicht handig dat de code in module3 staat.

Mijn dank is groot
Groet Sjaakz
 
Zonder vorobeeldbestand waarin staat aangegeven wat waar in wat veranderd moet worden wordt dit erg langdradig...
 
een voorbeeldbestandje

Dit is een voorbeeldje waarbij alle overbodige regels zijn verwijderd.
Bekijk bijlage dossiervoorbeeld.xlsm
is dit gelukt?

hierbij moet facturatie.xlsx vervangen worden door lijst facturatie.xlsx
Nogmaals bedankt voor het meedenken
SjaakZ
 
chdir is overbodig.

Schakel gewoon iemand tegen betaling in.
 
iemand anders een idee?

Bedankt SNB voor je hulp in eerste instantie,

Maar zo kom ik niet verder.

Het betreft maar één aan te passen regel en dan iemand inschakelen ?!!?:shocked:
 
Laatst bewerkt:
Zo gek is dat toch niet. Als het zo gemakkelijk was had je het zelf kunnen oplossen. Blijkbaar toch specialistische kennis nodig. En daarbij is voor een zakelijke toepassing, het bedrijf wordt er beter van, dus wat maakt die paar euro dan uit om iemand in te huren. Misschien kan die persoon ook meteen naar de backup kijken, want dan had je dit probleem helemaal niet gehad.
 
vind ik wel

Natuurlijk hebben wij een automatiseerder die de zaken voor ons goed heeft geregeld maar heeft helaas geen verstand heeft van macro's / VBA

Ook regelt hij de backup en ook dit gaat goed terug zetten ook. Alleen nu betreft het een document dat niet te overschrijven / verwijderen is. Al mijn documenten welke ik gemaakt heb bevatten een code Wanneer het dossier gereed is wordt er een uittrekseltje naar het bestand facturatie gestuurd. En laat nou net dit bestand onleesbaar en niet te openen zijn.

Een code schrijven om alle bestanden te openen en te wijzigen enz lukt me wel.

Alleen het stukje kennis om een macro instructie zelf te wijzigen ontbreekt. Het gaat dus niet om hele lange ingewikkelde codes..........

Ik hoop toch dat er iemand is die dit kan beantwoorden.

Groet Sjaakz
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan