Macro aanpassen

[Ron321]

Dit is een gedeelte uit een macro.
Als er in de MsgBox nee wordt gekozen moet er ook niets geplakt worden in het bestand "Rapporten".
Hoe moet ik de macro aanpassen om dit voor elkaar te krijgen?

 If Right(pad, 1) <> "" Then pad = pad & ""
        codeA = Sheets(2).Range("f68").Value
        bestand = pad & codeA & ".xls"
        bericht = "Bestand wordt opgeslagen als:" & Chr(10) & bestand & Chr(10) & "Is dit correct ?"
        naam_ok = MsgBox(bericht, vbYesNo)
        If naam_ok = vbYes Then
         ActiveWorkbook.SaveAs FileName:=bestand
        End If

    Dim VrijeRij, Directory
    Application.ScreenUpdating = False
    Directory = ActiveSheet.Range("AE2").Value & ""
    VrijeRij = 2
    Range("A68:F68").Select
    Selection.Copy
    Workbooks.Open FileName:=Directory & "\Rapporten.xls"
    Do Until ActiveSheet.Cells(VrijeRij, 1).Value = ""
        ActiveSheet.Cells(VrijeRij, 1).Select
        VrijeRij = VrijeRij + 1
    Loop
    ActiveSheet.Cells(VrijeRij, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

 

[Demeter]

Als je de End if onder aan zet?

If Right(pad, 1) <> "" Then pad = pad & ""

codeA = Sheets(2).Range("f68").Value
bestand = pad & codeA & ".xls"
bericht = "Bestand wordt opgeslagen als:" & Chr(10) & bestand & Chr(10) & "Is dit correct ?"
naam_ok = MsgBox(bericht, vbYesNo)

If naam_ok = vbYes Then
    ActiveWorkbook.SaveAs Filename:=bestand

    Dim VrijeRij, Directory
    
    Application.ScreenUpdating = False
    
    Directory = ActiveSheet.Range("AE2").Value & ""
    VrijeRij = 2
    Range("A68:F68").Copy
    Workbooks.Open Filename:=Directory & "\Rapporten.xls"
    
    Do Until ActiveSheet.Cells(VrijeRij, 1).Value = ""
        ActiveSheet.Cells(VrijeRij, 1).Select
        VrijeRij = VrijeRij + 1
    Loop
    
    ActiveSheet.Cells(VrijeRij, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    
    ActiveWorkbook.Close
    
[COLOR="Red"]End If[/COLOR]

End Sub

Groet,
Ferenc

 

[Ron321]

Zo simpel.
Bedankt.:thumb:

 

[Wigi]

Dit is een gedeelte uit een macro.
Als er in de MsgBox nee wordt gekozen moet er ook niets geplakt worden in het bestand "Rapporten".
Hoe moet ik de macro aanpassen om dit voor elkaar te krijgen?


If Right(pad, 1) <> "" Then pad = pad & ""
codeA = Sheets(2).Range("f68").Value
bestand = pad & codeA & ".xls"
bericht = "Bestand wordt opgeslagen als:" & Chr(10) & bestand & Chr(10) & "Is dit correct ?"
naam_ok = MsgBox(bericht, vbYesNo)
If naam_ok = vbYes Then
ActiveWorkbook.SaveAs FileName:=bestand
End If

Dim VrijeRij, Directory
Application.ScreenUpdating = False
Directory = ActiveSheet.Range("AE2").Value & ""
VrijeRij = 2
Range("A68:F68").Select
Selection.Copy
Workbooks.Open FileName:=Directory & "\Rapporten.xls"
Do Until ActiveSheet.Cells(VrijeRij, 1).Value = ""
ActiveSheet.Cells(VrijeRij, 1).Select
VrijeRij = VrijeRij + 1
Loop
ActiveSheet.Cells(VrijeRij, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Ron, gebruik eens code tags aub. Dan verschijnt je code zoals bij Ferenc mooi in een kadertje en wordt het allemaal tenminste leesbaar.

Dank daarvoor

Wigi

 

[Ron321]

Hoe doe je dat Wigi?

 

[Wigi]

Hoe doe je dat Wigi?

De eigenlijke code in je bericht selecteren en dan op het hekje klikken in de balk boven je bericht. En anders typ je voor de code:

en na de code

[/ code]

Dat laatste zonder de spatie.

Wigi

 

[Ron321]

Oké, gelukt, bedankt voor de tip.