Cuando ejecuto una macro de grabar datos me lleva directamente a la siguiente hoja
Cuando ejecuto la macro de grabar datos en la hoja 1 lo hace y se va automáticamente a la página "Informe". ¿Puedo evitar que haga eso y se quede en la hoja 1 que es donde esta el formulario y los botones?
1 Respuesta
Respuesta de Dante Amor
1
Sub ActualizarTD()
hola! claro!!
Set celdas = Range("B4:B8, B14, B15, B16, B18, B19, B20, B22, B23, B24, B25")
For Each celda In celdas
If celda = "" Then
MsgBox "No se ha completado el formulario. Falta la celda: " & _
celda.Address(False, False), vbExclamation, "AVISO"
celda.Select
Exit Sub
End If
Next
Sheets("hoja2").Activate
ActiveSheet.Unprotect "contraseña"
ActiveSheet.PivotTables("promediomaxmin").PivotCache.Refresh
ActiveSheet.Protect "contraseña"
End Sub
Prueba así:
Sub ActualizarTD()
'Act.Por.Dante Amor
Set celdas = Range("B4:B8, B14, B15, B16, B18, B19, B20, B22, B23, B24, B25")
For Each celda In celdas
If celda = "" Then
MsgBox "No se ha completado el formulario. Falta la celda: " & _
celda.Address(False, False), vbExclamation, "AVISO"
celda.Select
Exit Sub
End If
Next
'Fin. Por. Dante Amor
'
Sheets("hoja2"). Unprotect "contraseña"
Sheets("hoja2"). PivotTables("promediomaxmin"). PivotCache. Refresh
Sheets("hoja2"). Protect "contraseña"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
