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: 1550
Member Since:
October 5, 2010
sp_UserOfflineSmall Offline
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: Bryan Barnett
Guest(s) 8
Currently Browsing this Page:
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 880
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 237
Jessica Stewart: 219
A.Maurizio: 213
Aye Mu: 201
Hans Hallebeek: 185
Newest Members:
Appiagyei Kofi Frimpong
Hilary Burchfield
Richie Wright
Adel Kock
Barbara Murray
Doug Milne
Siobhan Stringer
Rob Rooth
Tom Lewis
Jennifer Rodriguez-Avila
Forum Stats:
Groups: 3
Forums: 24
Topics: 6542
Posts: 28641

 

Member Stats:
Guest Posters: 49
Members: 32829
Moderators: 2
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: Velouria, Riny van Eekelen