Edilberto Mejia contador

Aquí la primera parte de los códigos de la macro
'ELEGIMOS EL CAMPO A COPIAR Sheets("FORMULARIO").Select Range("c9").Select Selection.Copy 'LO LLEVAMOS AL INVENTARIO Sheets("INVENTARIO").Select 'BUSCAMOS LA PRIMERA CELDA OCUPADA Cells(2, 6).Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop 'PEGAMOS LOS DATOS Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

Aquí la segunda parte de los códigos de la macro del msgbox

'MENSAJE DE ACEPTAR Y CANCELAR DE MSGBOX Var = MsgBox("NOMBRE DEL MENSAJE", vbOKCancel + vbQuestion, "TITULO DEL MSGBOX") If Var = 1 Then 'AQUI SE PEGA LA MACRO QUE VA A REALIZAR EL PROCESO '--------------------------------- 'aqui en esta parte el contenido de 'tu macro, que realizara el proceso '----------------------------------- 'LA SIGUIENTE PARTE DEL MSG BOX Else Exit Sub End If

ENLACE DE DESCARGA: DESCARGAR

Para que descargues el archivo excel, clic en descargar

esperas 05 segundos y le das clic en saltar publicidad