Tengo esta macro y como la puedo asignar a un commandbuton

Como la asigno a un commandbutton

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
If UCase(Target.Value) = "HOLA" Then
macro1
ElseIf UCase(Target.Value) = "ADIOS" Then
macro2
End If
End Sub

1 Respuesta

Respuesta
3

Así quedaría:

Private Sub CommandButton1_Click()
    If UCase(Range("A3").Value) = "HOLA" Then
        macro1
    ElseIf UCase(Range("A3").Value) = "ADIOS" Then
        macro2
    End If
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas