Dante Amor

H o l a: Puedes poner ejemplos de los valores que tienes en la columna E Y también pon el ejemplo de los nombres de los archivos tal cual los tienes en la carpeta. Es decir, si en la celda tienes "docu", y en la carpeta tienes un archivo que se llama...

H o l a: Te anexo la macro actualizada Sub FiltrarFecha() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Cells.Clear u = h1.Range("B" & Rows.Count).End(xlUp).Row j = 2 fecini = DateSerial(Year([A1]), Month([A1]), 1) udia =...

H o l a: Te anexo la macro Sub RevisarArchivos() 'Por.Dante Amor Application.ScreenUpdating = False Set h5 = Sheets("Hoja5") j = h5.Range("B" & Rows.Count).End(xlUp).Row + 1 For i = 9 To Range("B" & Rows.Count).End(xlUp).Row 'ChDir...

H o l a: La coma que separa los 2 rangos debe ir dentro de las comillas: Range("T2:T" & filas_visibles + 2 & ",AQ2:AQ" & filas_visibles + 2).Select

H o l a: Te anexo la macro actualizada Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Act.Por.Dante Amor If Target.Column <> 1 Then Exit Sub If Target.Row < 9 Then Exit Sub n = Target.Row Set h2 = Sheets("Hoja2")...

Te anexo un ejemplo para que lo adaptes en todas tus macros Con esta macro, entiendo que estás activando la tecla F6 y si la presionan que ejecute la macro DOS Sub SEGUNDO_P() Application.ScreenUpdating = False Application.OnKey "{f6}", "DOS" End Sub...

Quedaría así: Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then ActiveSheet.Unprotect Password:="123" ''AQUI CONTRASEÑA If Range("j1") = "" Then MsgBox " Se te...

H o l a: Envíame tu archivo de excel con un par de archivos de ejemplo de tus imágenes. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “gadita75” y el título de esta pregunta. Avísame en esta pregunta cuando me lo...

H o l a: Ya no entendí si quieres pasarlo de la celda al textbox o del textbox a la celda. En cualquier caso tienes que verificar si el dato es numérico. Por ejemplo de la celda al textbox: Private Sub UserForm_activate() 'Por.Dante Amor If...

H o l a: ¿Las 2 tablas están en la misma hoja? Puedes poner la imagen pero que se vean las letras de las columnas y los números de fila de excel.