If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
How can I put these 2 VBA codes Together?
Sub ClickFirst()
With ActiveSheet.Buttons(Application.Caller).TopLeftCel l 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 Sub --- Message posted from http://www.ExcelForum.com/ |
#2
|
|||
|
|||
How can I put these 2 VBA codes Together?
Just call the BotWorm macro from within the ClickFirst macro.
-- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "rdvance " wrote in message ... Sub ClickFirst() With ActiveSheet.Buttons(Application.Caller).TopLeftCel l 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 Sub --- Message posted from http://www.ExcelForum.com/ |
Thread Tools | |
Display Modes | |
|
|