Dante Amor

Te anexo la macro Sub Eliminar_Empresa() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("cierre") Set h2 = Sheets("Detalle") For i = h1.Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1 Set b = h2.Columns("B").Find(h1.Cells(i,...

Te anexo la macro actualizada. Le cambié algunos nombres de variables. Function CONTARCOLOR(celdaColor As Range, RangoColor As Range, nombre As Range, RangoNombre As Range) Application. Volatile 'Variables Dim Celda As Range 'Recorremos todas las...

Va la macro Sub Eliminar_Ceros() 'Por Dante Amor Application.ScreenUpdating = False For i = Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1 If Cells(i, "F").Value = "" Or Cells(i, "F").Value = 0 Then Rows(i).Delete End If Next ' ant = Cells(2,...

Técnicamente no es posible que las 2 macros se ejecuten al mismo tiempo, lo que puedes hacer es ejecutar primero una macro y después la segunda, por ejemplo: Pon el siguiente código en el mismo panel donde tienes la macro del commandbutton: Sub...

Te anexo la macro Sub Completar_Clases() 'Por Dante Amor Application.ScreenUpdating = False fila = 4 Do While Cells(fila, "A") <> "" fila = fila + 1 Loop fila = fila - 1 ucol = Cells(2, Columns.Count).End(xlToLeft).Column Range(Cells(4, "J"),...

Te anexo la macro. Solamente actualiza los siguientes datos en la macro con los datos de tu archivo: Set h1 = Sheets("Formato") 'nombre de la hoja con el formato Set h2 = Sheets("Clientes") 'nombre de la hoja con los nombres de los clientes col = "A"...

Revisa el siguiente artículo y trata de adaptar tus datos a la macro. https://www.gerencie.com/enviar-correos-con-condicion-desde-outlook-con-excel.html

Te propongo lo siguiente, en la hoja en una columna debes tener la lista completa de los empleados, y en otras celdas el horario a asignar. Por ejemplo: Ahora ejecuta la siguiente macro: Sub Asignar_Empleado_Libre() 'Por Dante Amor ' Set h =...

Pon la siguiente macro en tu libro. Pon tu libro en la misma carpeta donde tienes tus archivos y ejecuta la macro. La macro abrirá todos los archivos txt de la carpeta, los modificará según tu macro y los guardará como csv. Sub Abrir_Txt() 'Act Por...

Te explico cómo funciona la sentencia If Then Else End if Por ejemplo. Vamos asignar un valor a la variable x. Después hacemos la pregunta con If x = 1 if x = 1 then Msgbox "La variable igual a 1" Como te puedes dar cuenta en una sola línea tengo el...