Getting Value of the terms using excel macro

[laxmananm]

Hi ,

I have a 600+ terms in my excel sheet and each term has different description/Explanation. I have to create a macro that should retrieve /Display the description/Explanation when I click the specific term in the macro. I have a terms in the Alphabetical order. So if I Select A button it should retrieve only That terms alone.Like wise for till Z.Can anyone help me to build up the macro for the requirement.


Thanks in advance

 

[laxmananm]

dear MIckG.PLs ignore my last Question as I have done my own.Thanks You so much for the help.How to add a image or how can image act as a Command button for This

Sub ShowUserForm1()
  With Sheet1
    .Visible = xlSheetHidden
    UserForm1.Show
    .Visible = xlSheetVisible
  End With
End Sub

How can I achieve this?

any idea?

 

[MickG]

q(1) Please explain with more detail , I don't fully understand .
q(2) Select TextBox Properties in Code window, Change "Multiline" to true and "WordWrap" to true.

 

[laxmananm]

I have got answer for those two questions.Now I have only one question.That is in thread 21.
Im calling user form by Command button available in other sheet.The command button looks so simple and I want to set an image that should do the command button task.

Thanks in advance

 

[laxmananm]

Dear MICK,

I have solved all of my problem.only one question im having here.So when I select ALL Button the A-Z alphabetical dropdown should be disabled.How can I achieve that one.

Thanks in advance

 

[MickG]

Add lines in Red :-

Private Sub CommandButton1_Click()
With CommandButton1
.Caption = IIf(.Caption = "ALL", "A-Z", "ALL")
    t = .Caption
    If .Caption = "ALL" Then
        FillComboBox1
        Me.ComboBox2.Clear
[B][COLOR=#ff0000]        Me.ComboBox2.Enabled = False[/COLOR][/B]
    ElseIf .Caption = "A-Z" Then
        FillComboBox1
        FillComboBox2
[COLOR=#ff0000][B]        Me.ComboBox2.Enabled = True[/B][/COLOR]
    End If


End With
End Sub


Private Sub UserForm_Initialize()
    Dim n As Integer
      CommandButton1.Caption = "ALL"
        FillComboBox1
[B][COLOR=#ff0000]          Me.ComboBox2.Enabled = False[/COLOR][/B]
          'If Me.ComboBox2.ListCount > 0 Then Me.ComboBox2.ListIndex = 0
End Sub

 

[laxmananm]

Wow..This is ultimate. Excellent .it works like a charm.Thank you

 

[MickG]

You're welcome