Hi dear Friends!
I need a way of a userform code that connect or link text of a cell like A1 of sheet1 to userform caption text.
I mean the when i type in cell A1 Good the userform caption must set Good. Thanks plz help me.
Hi dear Friends!
I need a way of a userform code that connect or link text of a cell like A1 of sheet1 to userform caption text.
I mean the when i type in cell A1 Good the userform caption must set Good. Thanks plz help me.
I like to be help full to my dear friends and I like Help full friends. Because ( A Friend in need is A Friend in dead)
You could put this in the sheet's code module
[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
Dim keyRange As Range
Set keyRange = Range("A1")
On Error Resume Next
Set keyRange = Application.Intersect(keyRange, keyRange.Precedents)
On Error GoTo 0
If Not Nothing Is Application.Intersect(Target, keyRange) Then
UserForm1.Caption = keyRange.Cells(1, 1).Text
End If
End Sub[/VBA]
Thanks.
But I have Five userforms named userform1, userform2 and so on. I want to apply A1 cell for userform1, A2 cell for userform2 and so on for their caption titles. Thanks please help. and also it must apply in whole workbook. I mean when i open this userform in every sheets it must names Sheet1 Range(A1). Please Help.
Plz Help some one.