ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Userform initialize combobox using Chr() function. (https://www.excelbanter.com/excel-programming/365552-userform-initialize-combobox-using-chr-function.html)

michaelberrier[_2_]

Userform initialize combobox using Chr() function.
 
I've gotten some advice about how use the code below to populate ComboBox1
with letters instead of the numbers as below using the Chr() function, but I
can't make heads or tails of where to put it. I'd appreciate any help.

Private Sub UserForm_Initialize()
Dim iCtr As Long
For iCtr = 1 To 10
Me.ComboBox1.AddItem iCtr
Next iCtr
End Sub

I Maycotte[_8_]

Userform initialize combobox using Chr() function.
 

Are you asking where to put Char() or the code?


--
I Maycotte
------------------------------------------------------------------------
I Maycotte's Profile: http://www.excelforum.com/member.php...o&userid=35604
View this thread: http://www.excelforum.com/showthread...hreadid=556175


michaelberrier[_2_]

Userform initialize combobox using Chr() function.
 

Just where the Char() goes.
Thanks.
"I Maycotte" wrote:


Are you asking where to put Char() or the code?


--
I Maycotte
------------------------------------------------------------------------
I Maycotte's Profile: http://www.excelforum.com/member.php...o&userid=35604
View this thread: http://www.excelforum.com/showthread...hreadid=556175



Chip Pearson

Userform initialize combobox using Chr() function.
 
Try
Dim N As Long
For N = Asc("A") To Asc("Z")
Me.ComboBox1.AddItem Chr(N)
Next N


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"michaelberrier" wrote
in message
...
I've gotten some advice about how use the code below to
populate ComboBox1
with letters instead of the numbers as below using the Chr()
function, but I
can't make heads or tails of where to put it. I'd appreciate
any help.

Private Sub UserForm_Initialize()
Dim iCtr As Long
For iCtr = 1 To 10
Me.ComboBox1.AddItem iCtr
Next iCtr
End Sub





All times are GMT +1. The time now is 06:31 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com