After making a selection within ComBoBox7 I would like to post data to the
row selected using Commandbutton1. Cell $a$4 contains the list index address

Code should look something like this

Private Sub CommandButton1_Click()
Dim rngcell As Excel.Range
If TypeName(ActiveSheet) = "Worksheet" Then
Set rngcell = ActiveSheet.Range("$A$4")
'Cell $A$4 contains a cell address
rngcell.Select
'make rngcell the active cell
End If
ActiveCell.Offset(0, 3) = TextBox13.Value
End Sub


--
Jim O

Do you mean?

Private Sub CommandButton1_Click()
Dim iRow as long
iRow = Application.Match(combobox1.value,Range("A1:A100") ,0)
Cells(iRow,"A").Seelect
End Sub

--
HTH

Bob Phillips

"Jim O" wrote in message
...
After making a selection within ComBoBox7 I would like to post data to the
row selected using Commandbutton1. Cell $a$4 contains the list index
address

Code should look something like this

Private Sub CommandButton1_Click()
Dim rngcell As Excel.Range
If TypeName(ActiveSheet) = "Worksheet" Then
Set rngcell = ActiveSheet.Range("$A$4")
'Cell $A$4 contains a cell address
rngcell.Select
'make rngcell the active cell
End If
ActiveCell.Offset(0, 3) = TextBox13.Value
End Sub


--
Jim O

--
Jim O


"Bob Phillips" wrote:

Do you mean?

Private Sub CommandButton1_Click()
Dim iRow as long
iRow = Application.Match(combobox1.value,Range("A1:A100") ,0)
Cells(iRow,"A").Seelect
End Sub

--
HTH

Bob Phillips

"Jim O" wrote in message
...
After making a selection within ComBoBox7 I would like to post data to the
row selected using Commandbutton1. Cell $a$4 contains the list index
address

Code should look something like this

Private Sub CommandButton1_Click()
Dim rngcell As Excel.Range
If TypeName(ActiveSheet) = "Worksheet" Then
Set rngcell = ActiveSheet.Range("$A$4")
'Cell $A$4 contains a cell address
rngcell.Select
'make rngcell the active cell
End If
ActiveCell.Offset(0, 3) = TextBox13.Value
End Sub


--
Jim O
Thank You
I was going about the task totally wrong manner