My Online Training Hub

Learn Dashboards, Excel, Power BI, Power Query, Power Pivot

New to VBA.. Having trouble adding in a Option Button|VBA & Macros|Excel Forum|My Online Training Hub

You are here: Home / New to VBA.. Having trouble adding in a Option Button|VBA & Macros|Excel Forum|My Online Training Hub
Avatar
sp_LogInOut Log In sp_Registration Register
sp_Search Search
Advanced Search
Search
Forum Scope



Match



Forum Options



Minimum search word length is 3 characters - maximum search word length is 84 characters
sp_Search Search
sp_RankInfo
Lost password?
sp_PrintTopic sp_TopicIcon
New to VBA.. Having trouble adding in a Option Button
Avatar
Leslie Smith
Member
Members
Level 0
Forum Posts: 9
Member Since:
August 8, 2020
sp_UserOfflineSmall Offline
1
August 27, 2020 - 9:12 am
sp_Permalink sp_Print

I am having a feeling that I am overthinking this one. 

I started out with a dropdown box but I thought and option box might be quicker; one less click.  

 

If Trim(frm.Range("H14").Value) <> "Yes" And Trim(frm.Range("H14").Value) <> "No" Then

  ' If .optYes.Value Then Trim(frm.Range("H14").Value) = "Yes" And .optNo.Value Trim(frm.Range("H14").Value) = "No"
  MsgBox "Please select valid Choice.", vbOKOnly + vbInformation, "Avl Replen"
  frm.Range("H14").Select
  frm.Range("H14").Interior.Color = vbRed
  Validate = False
  Exit Function
End If

Avatar
Philip Treacy
Admin
Level 10
Forum Posts: 1614
Member Since:
October 5, 2010
sp_UserOnlineSmall Online
2
August 27, 2020 - 1:11 pm
sp_Permalink sp_Print

Hi Leslie,

I'd switch to using regular form controls rather than ActiveX.

You can use this to test the buttons

If frm.OptionButtons("YesBtn").Value = xlOff And frm.OptionButtons("NoBtn").Value = xlOff Then

but by setting the default value of both buttons to Checked (Design Mode -> Format Control -> Control -> Checked) one of the buttons will always be selected by default so the test in itself becomes redundant.

see attached.

regards

Phil

sp_Feed
Go to top
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Philip Treacy, Saliha Mohamed, Hans Hallebeek, Charles Johnson
Guest(s) 9
Currently Browsing this Page:
1 Guest(s)
Top Posters:
Catalin Bombea: 1939
SunnyKow: 1432
Anders Sehlstedt: 929
Purfleet: 415
Hans Hallebeek: 352
Frans Visser: 349
David_Ng: 312
lea cohen: 248
Jessica Stewart: 219
A.Maurizio: 216
Newest Members:
Pamela Malthouse
Lila Huron-Albinger
Harry Maxwell
Jie Liu
Susan Lanham
Dhanushka Rathnayake
Rena Towles
Wim Verhaege
Shavirai Mawere
Macarena Verdugo
Forum Stats:
Groups: 3
Forums: 25
Topics: 7093
Posts: 31095

 

Member Stats:
Guest Posters: 49
Members: 34526
Moderators: 2
Admins: 3
Administrators: Mynda Treacy, Philip Treacy, Jessica
Moderators: Velouria, Riny van Eekelen