klembord

Status
Niet open voor verdere reacties.
F

flats

Gebruiker
Lid geworden
7 mei 2015
Berichten
171
Als ik deze macro gebruikt komt er een voor de gebruiker een vervelend scherm opdagen, kan ik die vermijden in de macro:
Code: 
Sub refresh()
    '
    ' refresh Macro
    ' De macro is opgenomen op 29/04/2018 door Fernand.
    machinelijst_draaien = Application.GetOpenFilename(FileFilter:="Excel Files(machinelijst_draaien.xls),.xls", Title:="SELECTEER machinelijst_draaien (bestand)")
    If TypeName(machinelijst_draaien) = "Boolean" Or InStr(1, machinelijst_draaien, "machinelijst_draaien") = 0 Then
        MsgBox "Gestopt omdat u de juiste file niet koos"
    Else
        Workbooks.Open (machinelijst_draaien)
        Range("B3:F101").Select
        Selection.Copy
        ThisWorkbook.Activate
        Sheets("Mach_list").Select
        Range("B3").Select
        ActiveSheet.Paste
        Range("B3").Select
        Sheets("Hoofdscherm").Select
        Range("e5").Select
        Windows("machinelijst_draaien.xls").Activate
        Windows("machinelijst_draaien.xls").Close
    End If
End Sub
 

Bijlagen

  • cover.jpg
    cover.jpg
    25,1 KB · Weergaven: 55
Zo?Net boven end sub toevoegen.
Code: 
Application.DisplayAlerts = False
 
helaas

Helaas, doet niks

Als ik die juist na "Selection Copy" plaatst zie ik het nog verschijnen, als ik dit zou kunnen vermijden zou het oké zijn

Code: 
Sub refresh()
    '
    ' refresh Macro
    ' De macro is opgenomen op 29/04/2018 door Fernand.
    machinelijst_draaien = Application.GetOpenFilename(FileFilter:="Excel Files(machinelijst_draaien.xls),.xls", Title:="SELECTEER machinelijst_draaien (bestand)")
    If TypeName(machinelijst_draaien) = "Boolean" Or InStr(1, machinelijst_draaien, "machinelijst_draaien") = 0 Then
        MsgBox "Gestopt omdat u de juiste file niet koos"
    Else
        Workbooks.Open (machinelijst_draaien)
        Range("B3:F101").Select
        Selection.Copy
        [B]Application.DisplayAlerts = False[/B]
        ThisWorkbook.Activate
        Sheets("Mach_list").Select
        Range("B3").Select
        ActiveSheet.Paste
        Range("B3").Select
        Sheets("Hoofdscherm").Select
        Range("e5").Select
        Windows("machinelijst_draaien.xls").Activate
        Windows("machinelijst_draaien.xls").Close
    End If
    
    End Sub
 
Laatst bewerkt:
Probeer die eens direct onder de Else.
Daarnaast zijn al die Select en Paste opdrachten niet nodig.
Dat kan ook anders.
 
Laatst bewerkt:
Trouwens de Application.DisplayAlerts = False staat helemaal niet waar ik in#2 heb gezegd.:confused:
 
klopt

Klopt, staat niet opde plaats die u vermelde in #2 , wel geprobeerd maar werkte niet

Onder 'Else' heeft hetzelfde resultaat als onder 'Selection.Copy'

De huidiige 'select' en 'pasta' regels laat ik liever zo hoor, het werkt perfect.
 
Kan best zijn dat het zo werkt maar het veroorzaakt wel je probleem.
 
Okee toch eens bekijken dan. Ben nu niet thuis. Wat zou ik moeten doen. Die select en pasta cellen zijn van groot belang
 
Plaats beide documenten eens.
 
Ik ga proberen tijd te maken om dat te doen, ik moet daarvoor van één van de twee bestanden een afgeslankte of grotendeels niet bruikbaar bestand maken vanuit het origineel.
 
Dit lijkt me al voldoende.
Code: 
Sub refresh()
    
        with Workbooks.Open("c:\users\flats\documents\machinelijst_draaien.xls")
          .sheets(1).Range("B3:F101").Copy thisworkbook.Sheets("Mach_list").Range("B3")
          .Close false
       end with
End Sub

Overigens zet je Application.displayalerts = false niet boven de 'End Sub'.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan