Msgbox
Hola mira necesito crear un código que ejecute lo siguiente, que si en la celda a2 = 2, se habrá un msgbox... Si acepto me abra la hoja 2, si rechazo me mantegan en la mismma hoja
Gracias desde ya
Gracias desde ya
1 Respuesta
Respuesta de Elsa Matilde
1
Esta es la rutina. La misma se ejecutará cuando introduzcas un dato en la celda A2. La tenés que copiar en el Editor, en el objeto HOJA donde se hará este control.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sino As String
If Target.Address(False, False) = "A2" Then
If Target.Value = 2 Then
sino = MsgBox("El valor introducido es 2", vbQuestion + vbYesNo, "Aviso")
If sino = vbYes Then
Sheets("Hoja2").Select
End If
End If
End If
End Sub
Saludos
Elsa
**Todo sobre Macros en este sitio. Encontrarás rutinas, descargas gratuitas y también Manual 400Macros explicadas paso a paso en español.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sino As String
If Target.Address(False, False) = "A2" Then
If Target.Value = 2 Then
sino = MsgBox("El valor introducido es 2", vbQuestion + vbYesNo, "Aviso")
If sino = vbYes Then
Sheets("Hoja2").Select
End If
End If
End If
End Sub
Saludos
Elsa
**Todo sobre Macros en este sitio. Encontrarás rutinas, descargas gratuitas y también Manual 400Macros explicadas paso a paso en español.
Ok gracias por tu respuesta pero también finalmente la programe así.. y también me corrió..
Saludos
Sub ir() 'Codigo que sirve para cambiar de hoja con cuadro combinado
If [b4] = "DOS" Then
Sheets("PROV").Select
End If
End Sub
Saludos
Sub ir() 'Codigo que sirve para cambiar de hoja con cuadro combinado
If [b4] = "DOS" Then
Sheets("PROV").Select
End If
End Sub
Muy bien, la diferencia es que la anterior se ejecuta al cambio de celdas (no mencionabas ningún cuadro...)
Saludos y si el tema quedó concluido por favor no dejes la consulta sin finalizar.
Saludos y si el tema quedó concluido por favor no dejes la consulta sin finalizar.
