Headers not match then cut paste that file

[Abhijeet]

Hi

Headers are in row 10 same Column that headers i want if any file headers not match then that file i want cut paste in different folder. please tell me how to do this

 

[Chihiro]

I'm not sure if I understand your requirement here. Can you give bit more detail on what this Row 10 headers are compared to? And what sort of data are expected to go under each header (in what format?).

FYI - If you are not dead set on Excel VBA. Moving files are much easier and often safer with Command Line batch file or with PowerShell script. These tasks can easily scheduled, whereas Excel VBA is much more complicated to code and schedule. See links.

http://www.computerhope.com/movehlp.htm
http://stackoverflow.com/questions/...ew-locations-based-on-file-name-in-powershell

 

[Abhijeet]

Standard Format of file is what i am uploaded.I want if Headers are not in Row 10 & in this sequence then that file i want cut paste in different folder so i am upload only headers in attach file i want to match the headers please tell me how to do this

 

[Chihiro]

I'm not familiar enough with method, but you may try looking up ways to search value in closed workbook. You'd then in the workbook containing code, use a sheet to store file name, compare header values & if it doesn't match use one of the code I helped you with previously to move files.

http://www.exceltip.com/files-workb...ed-workbook-using-vba-in-microsoft-excel.html

Personally, I tend to enforce format rules on submission rather than cleanup after.

 

[Abhijeet]

Hi

I go through the links but unable to do this can u please help me how to solve this

 

[Abhijeet]

I tried to do this Sheet1 Header match with sheet2 but i want selected folder files if any files header not match then cut paste that file in particular folder can any one help me in this

Sub MatchHeader()

'VARIABLE NAME                'DEFINITION
Dim SourceSheet As Worksheet    'The data to be copied is here
Dim TargetSheet As Worksheet    'The data will be copied here
Dim ColHeaders As Range        'Column headers on Target sheet
Dim MyDataHeaders As Range      'Column headers on Source sheet
Dim DataBlock As Range          'A single column of data
Dim c As Range                  'a single cell
Dim Rng As Range                'The data will be copied here (="Place holder" for the first data cell)
Dim i As Integer


'Change the names to match your sheetnames:
Set SourceSheet = Sheets("Sheet1")
Set TargetSheet = Sheets("Sheet2")


With TargetSheet
    Set ColHeaders = .Range("A10:L10") '.Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft)) 'Or just .Range("A1:C1")
    Set Rng = .Cells(.Rows.Count, 1).End(xlUp).Offset(1) 'Shoots up from the bottom of the sheet untill it bumps into something and steps one down
End With


With SourceSheet
    Set MyDataHeaders = .Range("A10:L10")
   
'Makes sure all the column names are the same:
'Each header in Source sheet must have a match on Target sheet (but not necessarily in the same order + there can be more columns in Target sheet)
    For Each c In MyDataHeaders
        If Application.WorksheetFunction.CountIf(ColHeaders, c.Value) = 0 Then
            MsgBox "Can't find a matching header name for " & c.Value & vbNewLine & "Make sure the column names are the same and try again."
            Exit Sub    'The code exits here if thereäs no match for the column header
        End If
    Next c
End With


End Sub

 

[Abhijeet]

Hi
I am trying to loop files in folder match header if not then copy paste that file in new folder. Please help me to loop all sheets in files

in this part macro stop i want go to next file please tell me what changes in this also

For Each c In MyDataHeaders
        If Application.WorksheetFunction.CountIf(ColHeaders, c.Value) = 0 Then
            'MsgBox "Can't find a matching header name for " & c.Value & vbNewLine & "Make sure the column names are the same and try again."
            Workbooks(files).Close
            FileCopy folder & files, DestinationDir & files
            Kill folder & files
            Exit Sub    'The code exits here if thereäs no match for the column header
        End If
    Next c
End With