anand3dinesh
Board Regular
- Joined
- Dec 19, 2019
- Messages
- 137
- Office Version
- 365
- Platform
- Windows
Dear Friends,
i have this below code for Do While Loop. when i run this code a attached error occurs, i have no idea why variable "d" will update to value 3 even i have only 2 rows of data.
Any Help please?
Do While Cells(d, 2).Value <> ""
Set Audit = Application.Workbooks.Open(UI.Range("B" & d).Value)
Audit.Sheets("Vehicles").Activate
Audit.Sheets("Vehicles").Unprotect
Audit.Sheets("Vehicles").AutoFilterMode = False
Audit.Sheets("Vehicles").Range("A1:A1").AutoFilter 2, ">" & 1, xlFilterValues
Audit.Sheets("Vehicles").Rows("1:1").Hidden = True
Audit.Sheets("Vehicles").Range("A1").CurrentRegion.Copy
WB.Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Audit.Close False
d = d + 1
Loop
Thanks,
Dinesh
i have this below code for Do While Loop. when i run this code a attached error occurs, i have no idea why variable "d" will update to value 3 even i have only 2 rows of data.
Any Help please?
Do While Cells(d, 2).Value <> ""
Set Audit = Application.Workbooks.Open(UI.Range("B" & d).Value)
Audit.Sheets("Vehicles").Activate
Audit.Sheets("Vehicles").Unprotect
Audit.Sheets("Vehicles").AutoFilterMode = False
Audit.Sheets("Vehicles").Range("A1:A1").AutoFilter 2, ">" & 1, xlFilterValues
Audit.Sheets("Vehicles").Rows("1:1").Hidden = True
Audit.Sheets("Vehicles").Range("A1").CurrentRegion.Copy
WB.Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Audit.Close False
d = d + 1
Loop
Thanks,
Dinesh