ndendrinos
Well-known Member
- Joined
- Jan 17, 2003
- Messages
- 1,694
I have a problem explaining this so if a sample file could help I will upload one on box,net for your perusal as I need to adapt this code to do the following:
Instead of
do this:
Then push down the empty cells to the first empty row within [A17:F35] .(This is desirable but not essential)
Thank you
Instead of
Code:
myC(1, -1).Value = UserForm1.TextBox1.Valuedo this:
Code:
Union(ActiveCell, ActiveCell.Offset(0, 3).Resize(, 3)).ClearContentsThen push down the empty cells to the first empty row within [A17:F35] .(This is desirable but not essential)
Code:
Private Sub CommandButton2_Click()
Dim myC As Range
Set myC = Worksheets("Invoice").Range("D17:D35").Find(UserForm1.TextBox2.Text)
If myC Is Nothing Then
MsgBox UserForm1.TextBox2.Text & " was not found."
Else
myC(1, -1).Value = UserForm1.TextBox1.Value
Unload UserForm1
End IfThank you
Last edited:
