Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: how to fixed this

  1. #1
    Guest

    Default

    Sub SaveOrder()
    Dim Cnt As Integer
    Range("'Data'!A2").Offset(, Range("G1") * 2 - 1) = Range("G1")
    For Cnt = 3 To 18
    Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2 - 1) = Range("D" & Cnt)
    Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2) = Range("H" & Cnt)
    Next
    End Sub

    whne there is nothing is G1 i got a run tim,e error, how can i make it so if there is nothing in G1 a message will come up and ask u to put a number in G1?

  2. #2
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Sydney, Australia
    Posts
    2,940
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default

    You could try this. It checks that the value in G1 is not blank and that it's numeric.

    Code:
    Sub SaveOrder()
    Dim Cnt As Integer
    
    If (Range("G1") > 0) And IsNumeric(Range("G1")) Then
        Range("'Data'!A2").Offset(, Range("G1") * 2 - 1) = Range("G1")
        For Cnt = 3 To 18
            Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2 - 1) = Range("D" & Cnt)
            Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2) = Range("H" & Cnt)
        Next
    Else
        MsgBox "G1 must contain a number"
    End If
    End Sub
    HTH,
    D

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •