Dante Amor

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...

No se entiende, puedes poner ejemplos con imágenes, de lo que tienes y de lo que esperas en el listbox.

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

Agregué esta línea: Lb_buscar.List(j, 2) = 5000 - Lb_buscar.List(j, 1) Prueba y me comentas: Private Sub txtbuscar_Change() Lb_buscar.Clear For i = 2 To Hoja3.Range("A" & Rows.Count).End(xlUp).Row cadena = UCase(Hoja3.Cells(i, 1)) If cadena Like "*"...

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...