Dante Amor

H o la : Si lo quieres hacer para todas las filas de la columna F que contienen datos: Sub Limpia_A() 'Por.Dante Amor For i = 3 To Range("F" & Rows.Count).End(xlUp).Row If Cells(i, "F") = "masa" Then Range(Cells(i, "J"), Cells(i, "V")).ClearContents...

Quedaría así. Ya lo probé y funciona correctamente. Te puse un formato para la fecha y la hoja, ya que en los nombres de archivo no están permitidos los caracteres / : Sub Guardar_Hoja() Dim Ruta As String, NombreCarpeta As String Dim fechaActual As...

H o la: Lo más simple es que cambies el nombre del rango por la columna, por ejemplo: MsgBox WorksheetFunction.CountIfs(Range("E:E"), "CRÍTICA", Range("F:F"), "SI") La otra opción, suponiendo que tu primer rango está en la columna E y el segundo en...

Listo, le hice algunos ajustes a tu código: Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor Dim fila As Integer fila = Target.Row 'verifico que el cambio sea en la columna C, G o N7 If Not Intersect(Target, Range("C33:C64,...

H o la: Tienes esto: Private Sub form_Click() Dim h, i Set h1 = Sheets("INGRESAR DATOS") Set h2 = Sheets("TABLA DE DATOS") If h1.AutoFilterMode Then h.AutoFilterMode = False For i = 3 To h1.Range("C" & Rows.Count).End(xlUp).Row nomb.AddItem...

Puedes pasar código a otro módulo, en el código 1 puedes poner una llamada al código 2, por ejemplo, si tienes esto: Sub marco1() Range("C11").Select Selection.Copy Range("E11").Select ActiveSheet.Paste Range("C13").Select Application.CutCopyMode =...

H o l a: Si tienes esto: Por lo que ve en la imagen, tienes una coma, entre los 2 nombres de una persona y también tienes una coma entre los apellidos. Si es así, entonces realiza lo siguiente: Inserta una columna entre A y B, te debe quedar así:...

H o la: Si entendí bien, la macro la ejecutas desde el Archivo1, de cualquier forma, pon la macro en el archivo1, y ejecuta la macro desde el archivo1. Tal vez lo único que haga falta es saber cuál es la primera celda que vas a copiar del Archivo2....

H o l a : Según la macro, tienes los nombres en la columna A, en la columna B te va poner el estatus: Sub copiar() 'Por.Dante Amor On Error Resume Next For i = 1 To Range("A" & Rows.Count).End(xlUp).Row inicio = "C:\fotos\" & Cells(i, "A").Value fin...

H o la: No entendí muy bien. ¿Modificas la celda I4 y no entra al evento change? Si es así ejecuta la siguiente macro: Sub en() Application.EnableEvents = True End Sub Prueba nuevamente modificando la celda I4