Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code please?
Hi all,
I am looking for help on this code, I have a userform where it looks up a number and give the information on the person associated with this number. Here is the code for this. Private Sub ComboBox1_Change() Dim ans On Error Resume Next ans = Application.Match(CLng(ComboBox1.Text), Range("A:A"), 0) If Not IsError(ans) Then Label1.Caption = Application.Index(Range("b:b"), ans) Label2.Caption = Application.Index(Range("c:c"), ans) Else MsgBox "Invalid code" End If On Error GoTo 0 End Sub I have included a 5 textboxes, textbox1 etc and I want the userform to have a commandbutton when it is pressed to have the information in the textboxes to be put in to columns E to I in order textbox1 to "e" etc. I have no idea how to do this. Thanks Greg |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code please?
,---------------------------------------------
Private Sub ComboBox1_Change() Dim ans On Error Resume Next ans = Application.Match(CLng(ComboBox1.Text), Range("A:A"), 0) If Not IsError(ans) Then Label1.Caption = Cells(ans, "B") Label2.Caption = Cells(ans, "C") Else MsgBox "Invalid code" End If On Error GoTo 0 End Sub '--------------------------------------------- HTH -- AP "Greg B" a écrit dans le message de ... Hi all, I am looking for help on this code, I have a userform where it looks up a number and give the information on the person associated with this number. Here is the code for this. Private Sub ComboBox1_Change() Dim ans On Error Resume Next ans = Application.Match(CLng(ComboBox1.Text), Range("A:A"), 0) If Not IsError(ans) Then Label1.Caption = Application.Index(Range("b:b"), ans) Label2.Caption = Application.Index(Range("c:c"), ans) Else MsgBox "Invalid code" End If On Error GoTo 0 End Sub I have included a 5 textboxes, textbox1 etc and I want the userform to have a commandbutton when it is pressed to have the information in the textboxes to be put in to columns E to I in order textbox1 to "e" etc. I have no idea how to do this. Thanks Greg |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code please?
Sorry I have reposted it please ignore
greg "Greg B" wrote in message ... Hi all, I am looking for help on this code, I have a userform where it looks up a number and give the information on the person associated with this number. Here is the code for this. Private Sub ComboBox1_Change() Dim ans On Error Resume Next ans = Application.Match(CLng(ComboBox1.Text), Range("A:A"), 0) If Not IsError(ans) Then Label1.Caption = Application.Index(Range("b:b"), ans) Label2.Caption = Application.Index(Range("c:c"), ans) Else MsgBox "Invalid code" End If On Error GoTo 0 End Sub I have included a 5 textboxes, textbox1 etc and I want the userform to have a commandbutton when it is pressed to have the information in the textboxes to be put in to columns E to I in order textbox1 to "e" etc. I have no idea how to do this. Thanks Greg |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Code to conditional format all black after date specified in code? | Excel Discussion (Misc queries) | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
Create a newworksheet with VBA code and put VBA code in the new worksheet module | Excel Programming | |||
stubborn Excel crash when editing code with code, one solution | Excel Programming |