Rudy Quispe

Tengo un libro POR que tiene la macro Private Sub Worksheet_Calculate(), al ejecutar la secuencia de la macro de otro libro Y no se porque motivo se dirige a la macro que esta compuesta por Private Sub Worksheet_Calculate() como si perteneciera a ese...

Quisiera su apoyo en una macro: https://mega.nz/folder/umhGmB7Y#W7hMPUcgGjfEAYIUCjjNtg -Que el numero de boleta sea automático y correlativo inicial esta en la hoja Auxiliar I1, cada vez que se registra debería tener el siguiente numero guardado....

Pido su apoyo en una macro que me guarde el usuario, fecha y hora que se realizo la modificación al un libro estos siempre y cuando hubiera realizado la modificación, y guardarlo en la Hoja Auditor en forma histórico.

Tengo la siguiente macro: Sub CopiaFechaVencimientoC() Application.Calculation = xlCalculationAutomatic CUO = Hoja8.Range("AR1") - 1 ActiveSheet.Range("$A$8:$BP$59").AutoFilter Field:=7, Criteria1:="<>" Range("G9:G" & CUO).Select With...

Tengo dos Private Sub Worksheet_Change que cada vez que modifique el valor de una celda especifica me debe ejecutar la macro. La primera Private Sub Worksheet_Change es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If...

Tengo una Base de datos que mensualmente se ingresa información, en la hoja Datos se indica el mes y año que va a corresponder la información que se va a registrar, son en la hojas Ventas y Compras donde se registra esta información, es en estas...

Quisiera su apoyo en la siguiente macro, no se si es posibles realizarlo: 1.- En la hoja Data se tiene la información de mes y año 2.- En la hoja Registro, se ingresa la información del mes y esto dependerá en qué mes se encuentra la hoja Data, cada...

Tengo la siguiente macro: Sub ExportarCompleto() Dim UltimaFila As Long Dim dir As FileSystemObject Set dir = New FileSystemObject Dim Archivo As String Dim Linea As String Dim Origen As Long Archivo = Range("D_DISCO") & ":\CARGA MASIVA PLAME" If...

Tengo la siguiente macro que cada vez que ingreso un dígito y se repite lo sombrea, quisiera en vez de sombrearse hay forma que me de una Alerta o mensaje que ya existe el dato registrado, a la vez me puedan ayudar en reducir la ejecución de las...

Como hago para cargar ese macro Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 Then dato = Target.Value contarsi = Application.WorksheetFunction.CountIf(Columns(1), dato) If contarsi > 1 Then MsgBox "el...