I made a small script where I can search and change information based o
rows.
Say I got 200 rows of information that each contains 20 columns.
That would be unberable to look at, so I made a seach function in
userform and a button that opens up another userform that loads th
information of the row that the search result gives. A little lik
DataForm with text boxes that each load a specific cell in a row.
It works fine for the first set of data I open up.
If I repeat the search for a new set of data that I want to load in th
userform, it just loads the First set of data instead.

I hope I make myself clear.. The code I been using to load the data i
the userform is this.


-----------------------
Private Sub UserForm_Initialize()

Range("A" & ActiveCell.Row).Activate

tboPhone.Value = ActiveCell.Offset(0, 0).Value
tboName.Value = ActiveCell.Offset(0, 1).Value
tboStreet.Value = ActiveCell.Offset(0, 2).Value

End Sub
-----------------------
I tried to clear the cells with a Null value og Empty value, an
nothing works... Why??

Rune Dau

--
Message posted from http://www.ExcelForum.com

do you unload the form rather than hide it. The initialize event only runs
when you first create the form. If you hide and then show the form, it is
not created and the initialize event is not run.

--
Regards,
Tom Ogilvy

"Rune_Daub " wrote in message
...
I made a small script where I can search and change information based on
rows.
Say I got 200 rows of information that each contains 20 columns.
That would be unberable to look at, so I made a seach function in a
userform and a button that opens up another userform that loads the
information of the row that the search result gives. A little like
DataForm with text boxes that each load a specific cell in a row.
It works fine for the first set of data I open up.
If I repeat the search for a new set of data that I want to load in the
userform, it just loads the First set of data instead.

I hope I make myself clear.. The code I been using to load the data in
the userform is this.


-----------------------
Private Sub UserForm_Initialize()

Range("A" & ActiveCell.Row).Activate

tboPhone.Value = ActiveCell.Offset(0, 0).Value
tboName.Value = ActiveCell.Offset(0, 1).Value
tboStreet.Value = ActiveCell.Offset(0, 2).Value

End Sub
-----------------------
I tried to clear the cells with a Null value og Empty value, and
nothing works... Why??

Rune Daub


---
Message posted from http://www.ExcelForum.com/

Thx... that would probably solve my problem.. I have just been hiding
it... I will try with the unload function :)


---
Message posted from http://www.ExcelForum.com/