hugolaza

Haz lo siguiente : Debajo de la Primera linea de tu macro coloca : On Error GoTo MensajeError Encima de la última linea de tu macro coloca: Exit Sub MensajeError: MsgBox "Alerta: Para poder utilizar esta función usted debió haber presionado el BOTON...

Este pequeño código copiará todo lo que escribas en la Hoja "Pets Base" a la Hoja "Pets Vivo" Dim Celda Private Sub Worksheet_Activate() Celda = ActiveCell.Address End Sub Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Pets...