User Profile

KLynnM333 · May 14 '09, 03:57 PM

Try this, it will loop through your sheet until column D has no value:

Code:

'Sets the selected cell = D2, use 1 if you don't have a header row
ActiveCell.Offset(2 - ActiveCell.Row, 4 - ActiveCell.Column).Select

Do Until ActiveCell.Value = ""

	If ActiveCell.Value = "X" Then
	
		ActiveCell.Offset(0, -3).Select

		'Empty is Null in Excel VBA

...

KLynnM333 · Feb 9 '09, 07:35 PM

Thanks for the help, we ended up using a server backup program.

User Profile

Profile Sidebar

Leave a comment:

Leave a comment:

Create a bootable recovery CD with ntbackup for Windows Server 2003 R2 SP2