Excel tool that can check quickly verify the following in a sheet: number of columns, title of columns, and character type.

[dellion]

[FONT=&quot]I receive excel worksheets from customers that are supposed to be in a certain format. I will be checking these worksheets for correct number of columns, correct headers of columns, and correct character types in each column. I was wondering if there were any tools/macro/Microsoft Accces Marcos that could make this process quick and easier.[/FONT]

 

[Joe4]

Cross-posted: http://www.mrexcel.com/forum/micros...ber-columns-title-columns-character-type.html

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule #13 here: Forum Rules).

This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

For a more complete explanation on cross-posting, see here: Excelguru Help Site - A message to forum cross posters).

 

[Joe4]

Regarding your question, I don't know of anything that exists like that, but why use Access to do that? Why not create your own using Excel macros? Excel macros will give you a lot more flexibility than Access.

 

[jolivanes]

I don't know if it is "up to snuff" coding, Joe4 can let us know, but this might be a start.

Sub Get_All_Header_Info()
    Dim i As Long, hdrArr() As Variant, lc As Long, j As Long, k As Long
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    ReDim Preserve hdrArr(1 To lc, 3)
    For i = 1 To lc
        j = 1
        hdrArr(i, j) = Cells(1, i).Value
        hdrArr(i, j + 1) = Cells(1, i).Font.Name
        hdrArr(i, j + 2) = Cells(1, i).Font.Size
    Next i
    For k = 1 To lc
        MsgBox lc & " Columns used in row number 1" & vbLf & vbLf & _
               "Column" & k & " Header:    " & hdrArr(k, 1) & vbLf & vbLf & _
               "Column" & k & " Font:    " & hdrArr(k, 2) & vbLf & vbLf & _
               "Column" & k & " Font Size:    " & hdrArr(k, 3)
    Next k
End Sub