Formatting Column A

JoshWolski

New Member
Joined
Nov 6, 2018
Messages
13
I would like to create a code to check the format of all cells in column A, excluding A1 on my Sheets( "Input")

If the format is not one of the following, a msgbox with pop up saying "That number is not valid":

Formats

#########
############
##############
###-###-###
####-####-####
####-####-####-##

I don't even know where to start. Please Help
 

ravishankar

Well-known Member
Joined
Feb 23, 2006
Messages
3,566
try the following macro codes. list your formats in column K and run the macro.
Code:
Sub josh()
Dim a As Integer, b As Integer, d As Integer, count As Integer
Dim c As String
b = Cells(Rows.count, 1).End(xlUp).Row
    For a = 2 To b
    c = Cells(a, 1).NumberFormat
    count = 0
        For d = 1 To 6
            If c = Cells(d, 12) Then
            count = count + 1
            End If
                If count < 1 Then
                MsgBox " row# " & a & " is not in correct format"
                Exit For
                End If
        Next d
    Next a
MsgBox "complete"
End Sub
Ravi shankar
 

Forum statistics

Threads
1,082,507
Messages
5,365,978
Members
400,863
Latest member
RobynP51

Some videos you may like

This Week's Hot Topics

Top