I want to change this macro so result isn't in listbox but on sheet1
starting with cell E1.
Private Sub UserForm_Initialize()
Dim cell As Range
Dim sh As Worksheet

With Me
.ListBox1.RowSource = ""
.ListBox1.ColumnCount = 3
.ListBox1.Clear
End With

Set sh = Worksheets("Ark1")

For Each cell In sh.Range("A10:A250")
If cell.Value = sh.Range("A5").Value Then
With UserForm1
.ListBox1.AddItem cell.Value
.ListBox1.List(.ListBox1.ListCount - 1, 1) _
= cell.Offset(0, 2).Value
.ListBox1.List(.ListBox1.ListCount - 1, 2) _
= cell.Offset(0, 5).Value
End With
End If
Next

End Sub

Private Sub UserForm_Initialize()
Dim cell As Range
Dim sh As Worksheet
Dim sh1 As Worksheet
Dim i As Long

Set sh = Worksheets("Ark1")
Set sh1 = Worksheets("Sheet1")

i = 1
For Each cell In sh.Range("A10:A250")
If cell.Value = sh.Range("A5").Value Then
With sh1
.Cells(i,"A").Value = cell.Value
.Cells(i,"B").Value = cell.Offset(0, 2).Value
.Cells(i,"C").Value = cell.Offset(0, 5).Value
i = i + 1
End With
End If
Next

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Alen32" wrote in message
lkaboutsoftware.com...
I want to change this macro so result isn't in listbox but on sheet1
starting with cell E1.
Private Sub UserForm_Initialize()
Dim cell As Range
Dim sh As Worksheet

With Me
.ListBox1.RowSource = ""
.ListBox1.ColumnCount = 3
.ListBox1.Clear
End With

Set sh = Worksheets("Ark1")

For Each cell In sh.Range("A10:A250")
If cell.Value = sh.Range("A5").Value Then
With UserForm1
.ListBox1.AddItem cell.Value
.ListBox1.List(.ListBox1.ListCount - 1, 1) _
= cell.Offset(0, 2).Value
.ListBox1.List(.ListBox1.ListCount - 1, 2) _
= cell.Offset(0, 5).Value
End With
End If
Next

End Sub

Thanks Bob!
What I need to change if I want to display results starting with cell F10.

This line

For Each cell In sh.Range("A10:A250")

and maybe this line?

If cell.Value = sh.Range("A5").Value Then


--
HTH

Bob Phillips

"Alen32" wrote in message
lkaboutsoftware.com...
Thanks Bob!
What I need to change if I want to display results starting with cell F10.

I think you misunderstod me. I want to display results starting with cell
F10.
I tried this but doesn't work
from
.Cells(i,"A").Value = cell.Value
to thix
.Cells(i,"F10").Value = cell.Value

Private Sub UserForm_Initialize()
Dim cell As Range
Dim sh As Worksheet
Dim sh1 As Worksheet
Dim i As Long

Set sh = Worksheets("Ark1")
Set sh1 = Worksheets("Sheet1")

i = 10
For Each cell In sh.Range("A10:A250")
If cell.Value = sh.Range("A5").Value Then
With sh1
.Cells(i,"F").Value = cell.Value
.Cells(i,"G").Value = cell.Offset(0, 2).Value
.Cells(i,"H").Value = cell.Offset(0, 5).Value
i = i + 1
End With
End If
Next

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Alen32" wrote in message
lkaboutsoftware.com...
I think you misunderstod me. I want to display results starting with cell
F10.
I tried this but doesn't work
from
.Cells(i,"A").Value = cell.Value
to thix
.Cells(i,"F10").Value = cell.Value

Now results are in cell F1,G1 and H1.
I want result in F10,G10 and H10