if then else
Try this
Private Sub CmdSaveChanges_Click()
ActiveWorkbook.Sheets("Order").Activate
With Range("A1").End(xlDown)
.Offset(1, 0).Value = 123 'TextDate.Value
.Offset(1, 1) = 456 'ComboWebsite.Value
If NewCust Then
.Offset(1, 2).Value = "New Customer"
ElseIf ExistCust Then
.Offset(1, 2).Value = "Existing Customer"
End If
End With
End Sub
--
---
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"Pam" wrote in message
...
I am trying to do a very simple statement, but vb6 keeps giving me errors
on
this line.
I want to search for the next available line (that is empty).
Here's my code, what have I done wrong? It is giving me the error on the
line after the If IsEmpty line.
Thanks
Pam
Private Sub CmdSaveChanges_Click()
ActiveWorkbook.Sheets("Order").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextDate.Value
ActiveCell.Offset(0, 1) = ComboWebsite.Value
If NewCust = True Then
ActiveCell.Offset(0, 2).Value = "New Customer"
ElseIf ExistCust = True Then
ActiveCell.Offset(0, 2).Value = "Existing Customer"
End If
|