Modeless ánd active

[Wil Moosa]

I have a userform which is modeless.

The labelbox (label1) refers to Activecell.value.

I'm looking for a way where I can use the mouse to select another cell... while the userform is continious in sight... but also updates the text in label1.

I read somewehere that I could use Worksheet_change to get my update but that was more a clue than a clear solution.

Who can help me here?

 

[Scott Huish]

Is this what you mean?

First show the form modeless, something like this:

Sub showtheform()
UserForm1.Show vbModeless
End Sub

and then depending on how you want to get the values either the Worksheet SelectionChange event or the Worksheet Change event for the sheet you want to pull values from:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Label1 = Target.Text
End Sub

or

Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.Label1 = Target.Text
End Sub

 

[Wil Moosa]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PicViewer.Label1 = Target.Text
End sub

Worsk fine, does what it needs to do. Thanks.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PicViewer.Label1 = Target.Text
PicViewer.Image1 = Target.Image
End sub

Should do the same but also should show the corresponding picture (the text is the full path of the picfile). While the text in the label shows the full path of the pic, the pic remains the same. So no reloading.

The strange thing here is when I select with Enter it does work... but everything (also the enter way) jams when I try to select with the mouse.

I could overcome this by hiding and reopening the userform each time but this slows the process down ánd the reloading is less smooth. Am I overlooking something in the reload process here?

 

[Scott Huish]

Perhaps:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PicViewer.Label1 = Target.Text
PicViewer.Image1.Picture = LoadPicture(Target.Text)
End Sub

 

[Wil Moosa]

Works great... Thanks.