P
pauluk
Hi everyone yeah found out how to do blanks but jknow the code jus
won't do what i want it to do.
The columns ABC if column B is blank it deletes the content of A and
below is part of the code the if stement just repeats for EFG IJK MN
QRS
Dim rng As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rng4 As Range
Dim rng5 As Range
Set rng = Worksheets("Sheet1").Range("B:B")
Set rng2 = Worksheets("Sheet1").Range("F:F")
Set rng3 = Worksheets("Sheet1").Range("J:J")
Set rng4 = Worksheets("Sheet1").Range("N:N")
Set rng5 = Worksheets("Sheet1").Range("R:R")
If rng.Value = "" Then
Range("A:A").Select
Selection.ClearContents
Range("C:C").Select
Selection.ClearContents
End I
won't do what i want it to do.
The columns ABC if column B is blank it deletes the content of A and
below is part of the code the if stement just repeats for EFG IJK MN
QRS
Dim rng As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rng4 As Range
Dim rng5 As Range
Set rng = Worksheets("Sheet1").Range("B:B")
Set rng2 = Worksheets("Sheet1").Range("F:F")
Set rng3 = Worksheets("Sheet1").Range("J:J")
Set rng4 = Worksheets("Sheet1").Range("N:N")
Set rng5 = Worksheets("Sheet1").Range("R:R")
If rng.Value = "" Then
Range("A:A").Select
Selection.ClearContents
Range("C:C").Select
Selection.ClearContents
End I