VNouBA
05-25-2012, 11:27 AM
I have the following issue, please help
If Column B has information then Clear content of Column R in “Report” sheet.
Ex:
If B7 = 002 then .ClearContents of R7 in Sheet “Report”
If B12 = 005 Then .ClearContents of R12 in Sheet “Report”
I have the following code in my initial sheet:
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B5:B1000")) Is Nothing Then
NumRows = Target.Value - 1
For R = 1 To NumRows
Target.Offset(1, 0).EntireRow.Insert
Next R
End If
If Column B has information then Clear content of Column R in “Report” sheet.
Ex:
If B7 = 002 then .ClearContents of R7 in Sheet “Report”
If B12 = 005 Then .ClearContents of R12 in Sheet “Report”
I have the following code in my initial sheet:
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B5:B1000")) Is Nothing Then
NumRows = Target.Value - 1
For R = 1 To NumRows
Target.Offset(1, 0).EntireRow.Insert
Next R
End If