Jun 04 2021 05:38 AM
Hello Everyone,
I have written VBA code and it works perfectly.
But i press RUN button multiple times so it repeat headers in evry sheet.
So, how to revert it back with the help of VBA coding?
Please help?
Here is a attached file...
Jun 04 2021 06:06 AM
Step 1 - you have to do this only once, so you can do it manually:
Remove the header rows from all sheets.
Step 2 - adjust the macro:
Public Sub CleanUpData()
Dim i As Integer
i = 1
Do While i <= Worksheets.Count
Worksheets(i).Select
If Range("A1").Value <> "REGION" Then
AddHeaders
FormatHeaders
End If
i = i + 1
Loop
End Sub
Jun 04 2021 06:16 AM
Jun 04 2021 06:20 AM
SolutionYes:
Public Sub CleanUpData()
Dim i As Integer
i = 1
Do While i <= Worksheets.Count
Worksheets(i).Select
Do While Range("A2").Value = "REGION"
Range("A2").EntireRow.Delete
Loop
If Range("A1").Value <> "REGION" Then
AddHeaders
FormatHeaders
End If
i = i + 1
Loop
End Sub
Jun 04 2021 06:23 AM
Jun 04 2021 06:20 AM
SolutionYes:
Public Sub CleanUpData()
Dim i As Integer
i = 1
Do While i <= Worksheets.Count
Worksheets(i).Select
Do While Range("A2").Value = "REGION"
Range("A2").EntireRow.Delete
Loop
If Range("A1").Value <> "REGION" Then
AddHeaders
FormatHeaders
End If
i = i + 1
Loop
End Sub