[AL_BRNS]

السلام عليكم ورحمة الله وبركاته

جرب التالي

كود :

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Text1.Text = DataGrid1.Text
End Sub

بالتوفيق..