• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Grote hoeveelheid op het klembord wilt u deze opslaan

  • Onderwerp starter Onderwerp starter HWV
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.213
Beste,

Ik zit even met het volgende.
Ik heb een code en daar in verwerkt het aansturen van twee macro`s
Code:
Sub Stap1_OphalenGegevens()

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

bestand
OphalenInkoopGegevens
    
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
End With

End Sub

Deze code wordt in een totaal conversie aangestuurd door de volgende code;
Code:
Sub Conversie4()
'-------------------------
'4 Conversie Afnemers klantgegevens
'-------------------------
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

     Workbooks.Open Filename:="G:\zomaar een locatie\4.xls"
           Windows("4.xls").Activate
              Application.Run "4.xls!Module2.Stap1_OphalenGegevens"
              
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
End With

End Sub

Nu vraag hij aan het einde 'Er is een grote hoeveelheid aanwezig op het klembord. Wilt u deze informatie plakken in een ander document"

Wat ik graag wil is dat deze gegevens gewoon geplakt gaan worden, zodat de conversie doorloopt.

Wat mis ik !

Dit zou toch ondervangen moeten worden door:
Code:
    .DisplayAlerts = False

Groet HWV
 
Laatst bewerkt:
DisplayAlerts zou dan false moeten zijn lijkt me.
 
Probleem opgelost

Ok wat was nu het probleem.
Ik roep doormiddel van een macro ander macro`s aan.

Bij de code waar ik de andere macro`s aanroep heb ik de code
Code:
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

'code
              
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
End With

Nu heb ik de code ook in de andere gezet en nu gaat hij wel verder zonder te vragen.
Wat ik nu wel het vreemde is dat ik de code twee keer moet plaatsen in dan wel twee verschillende macro`s.
Iemand een verklaring hiervoor
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan