How can I put these 2 VBA codes Together?

  • Thread starter Thread starter rdvance
  • Start date Start date
R

rdvance

Sub ClickFirst()
With ActiveSheet.Buttons(Application.Caller).TopLeftCell
If .Column > 8 Then Cells(.Row - 6, .Column - 8).Select
End With
End Sub

Sub BotWorm()


With ActiveCell.Offset(1, 0).End(xlDown).Offset(1, 0)
.Value = Format(Date, "d mmm ")
.Offset(0, 1).Value = "VETERINARY CARE / BOT & WORM DRENCH"
.Offset(0, 7).Value = "30.00"
End With


End Su
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Who can join these two VBA Codes together? 4
Modify code 2
Help to add Format to VBA Code! 10
date format static 5
MACRO COLUMNS, SKIP ROWS 6
Code does not error but no copy either 4
need help with timestamp macro 2
Complex date VBA - insert a certain weekday 5

Back
Top