Recent content by Belleke

Does this work for you? Sub belle() 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...

Like this? Sub belle() Dim b As OLEObject For Each b In ActiveSheet.OLEObjects If TypeName(b.Object) = "OptionButton" Or TypeName(b.Object) = "CheckBox" Then b.Object.Value = False Next b End Sub

@ p45cal, Nice code. Thank you for your time and example.

Thanks for the example and your time.

I have a sheet called weekplanning and 5 sheets with the (working) days. In weekplanning 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. Sub...

Hi, You can find some info HERE

Error says variable not defined, so you have to define the variable. Without seeing the code something in this direction. Dim MSProject.PjDateFormat.pjDate_mmm_dd_yyy

After opening an excel file on a network drive, a new desktop shortcut is created each time. Does anyone know the cause and a possible solution?

Like this? Sub CleatData() smessage = "Clear the cells, are you sure" + "?" If MsgBox(smessage, vbQuestion + vbYesNo, "Confirm delete") = vbNo Then GoTo oops Range("A2:D6").Clear oops: End Sub No need to activate Sheet, because your button is on the active sheet. Try to avoid activate and...

Like this? "Dear Everyone," & vbNewLine & "I am writing this email would like to....."

Ankushrs1 The code works fine, thank you. Have a nice day. Problem solved

Marc en Ankushrs1, Thank you for your time and advice but I am looking for a VBA solution.

Hi, 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 See example Thanks

Hi, Like this? Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If TextBox1 = "" Then Cancel = True MsgBox "Time value is a mandatory field", vbCritical, "Error" Else End If End Sub

Glad to help.