Does this work for you?
Dim b As OLEObject, s As Shape
Dim rng As Range
Dim arrOptButtons, arrChkBoxes, Opt, Chk
If MsgBox("Are you sure that you want to clear all input Cells and reset the Options Buttons and CheckBoxes on the ActiveSheet?", vbQuestion + vbYesNo, "Confirm...
I have a sheet called weekplanning and 5 sheets with the (working) days.
Data for MO is in column b
TU in column c
We in column D
TH in column E
Fr in column F
These data has to go the daysheets, all starting in B4
I think that this code could be shorter, but I don't see it.
smessage = "Clear the cells, are you sure" + "?"
If MsgBox(smessage, vbQuestion + vbYesNo, "Confirm delete") = vbNo Then GoTo oops
No need to activate Sheet, because your button is on the active sheet.
Try to avoid activate and...
I am looking for some code to transfer data from Sheet 1 to sheet 2 when value in column E is ready.
But two difficulties
The transfer should start at row 10 and values from column G should go to Column F
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox1 = "" Then
Cancel = True
MsgBox "Time value is a mandatory field", vbCritical, "Error"