How to make a Loop

**Chandria** · 04-08-2019, 03:09 AM

Hi all?

How to make a Loop for Print?

Private Sub cmdReturn_Click()
Dim ws As Worksheet
Dim mybox As Variant

mybox = InputBox("How many copies?")
If mybox = "" Then
   MsgBox ("No number of copies")
   Else
   With Sheets("MrrPrint")
    '.PrintPreview
        .PrintOut Copies:=mybox
    End With


s = MsgBox("Do You want to Exit?", vbYesNo, Question) '  If NO it will return to start  printing msgbox show  ("Mybox=Inputbox(How many copies?") will show again
If s = vbYes Then
'delete all
With ws
      'Union(.Range("B13:O17"), .Range("C16:C17"), .Range("K16:K17"), .Range("O16:O17"), .Range("A24:Q40"), .Range("M48:m50")) = vbNullString 'Not working
    Range("B13:O17") = ""
   Range("C16:C17") = ""
   Range("K16:K17") = ""
    Range("O16:O17") = ""
    Range("A24:Q40") = ""
    Range("M48:m50") = vbNullString
'Range (B13:
    End With
end Sub

**jason.b75** · 04-08-2019, 04:50 AM

Your request is a bit vague, does this do what you want?

Private Sub cmdReturn_Click()
Dim TimeToQuit As Long

While TimeToQuit <> vbYes
    If InputBox("How many copies?") = "" Then
        MsgBox ("No number of copies")
    Else
        With Sheets("MrrPrint")
            '.PrintPreview
            .PrintOut Copies:=mybox
        End With
        TimeToQuit = MsgBox("Do You want to Exit?", vbYesNo, Question) ' Always Show print not click "YES"
    End If
Wend
'delete all
    Range("B13:O17,C16:C17,K16:K17,O16:O17,A24:Q40,M48:m50").ClearContents
End Sub

**Chandria** · 04-08-2019, 07:36 AM

Dear jason.b75

Here is the error
[img]619155[/img]

**jason.b75** · 04-08-2019, 08:10 AM

Click on your attachment.

**Chandria** · 04-08-2019, 08:06 PM

Dear jason.b75

i change code like this THANK YOU VERY MUCH.

Private Sub cmdReturn_Click()
Dim TimeToQuit As Long
Dim mybox As Variant


While TimeToQuit <> vbYes
mybox = InputBox("How many copies?")
    If mybox = "" Then
        MsgBox ("No number of copies")
    Else
    
        With Sheets("MrrPrint")
            '.PrintPreview
            .PrintOut Copies:=mybox
        End With
        TimeToQuit = MsgBox("Do You want to Exit?", vbYesNo, Question) ' Always Show print not click "YES"
  
'delete all
Range("B13:O17,C16:C17,K16:K17,O16:O17,A24:Q40,M48:m50").ClearContents  ' getting error for the merge cell 
If TimeToQuit = vbYes Then

    Range("B13:O17") = "" 
   Range("C16:C17").ClearContents
   Range("K16:K17") = ""
    Range("O16:O17") = ""
    Range("A24:Q40").ClearContents
    Range("M48:m50") = ""
    End If
    End If
    Wend
End Sub

How to make a Loop

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

How to make a Loop

Re: How to make a Loop

Re: How to make a Loop

Re: How to make a Loop

Re: How to make a Loop

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] For Each Loop (Make it Faster)

Can Someone Take My VBA and make it a for loop?

Macro to make loop to next row

Make a loop that goes around around and around

Make loop run faster

I want to make one loop

[SOLVED] How to Make a Loop count by 1% not 1

Bookmarks

Bookmarks

Posting Permissions