G
Guest
I am building a quoting system and A22 has the qty B22 has the description
and C22 has the price. Sometimes B22 has two lines of information and when I
use the code below, then the information that is meant to be inserted ends up
on different lines.
How do I change my code so that it checks the row first to see if there is
anything on that line and if all fields are blank it will then go ahead with
inserting the informaiton or if there is any info in any of the rows it will
offset three rows.
Thanks for your help
Here is the current code:
Range("A22").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(3, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = "1"
Range("B22").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(3, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = "Non PDF File Download"
Range("C22").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(3, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = "$15"
and C22 has the price. Sometimes B22 has two lines of information and when I
use the code below, then the information that is meant to be inserted ends up
on different lines.
How do I change my code so that it checks the row first to see if there is
anything on that line and if all fields are blank it will then go ahead with
inserting the informaiton or if there is any info in any of the rows it will
offset three rows.
Thanks for your help
Here is the current code:
Range("A22").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(3, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = "1"
Range("B22").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(3, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = "Non PDF File Download"
Range("C22").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(3, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = "$15"