Private Sub CommandButton1_Click()
'clicking on command button performs action on selected range in RefEdit control:
Dim strAddress As String
'select range in RefEdit control
strAddress = RefEdit1.Value
'enter text & background color in selected range
Range(strAddress).Value = "Hello"
Range(strAddress).Interior.Color = RGB(255, 0, 0)
'click yes to close UserForm and no to continue with another selection
If MsgBox("Action Performed, Exit?", vbQuestion + vbYesNo) = vbYes Then
Unload Me
End If
End Sub
#1
Bu kodu anlyamadım ne işe yarıyor
@benbendedeilem
