Dante Amor

Revisa el siguiente vídeo para poner formato a los datos que vas a cargar en el ListBox: Excel. Cargar datos en un ListBox con formato. - YouTube Te invito a SUSCRIBIRTE a mi canal: Tutoriales Excel y Macros - YouTube Quieres saber más sobre...

NOTAS.ListBox1.List(NOTAS.ListBox1.ListCount - 1, 6) = "AQUI NECESITO EL LOTEO" Debes realizar un ciclo en todos los registros en la hoja y buscar el último lote con la llave producto+semana. Por ejemplo, si el último es el 39003 Entonces tu base es...

Pon el siguiente código en un módulo: Sub Cajeros(miForm As MSForms.UserForm) Dim h1 As Worksheet Dim i As Long, n As Long Set h1 = Sheets("EMPLEADOS") For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row Select Case LCase(h1.Cells(i, "C")) Case...

Utiliza Application.DisplayAlerts = False Para que no te envíe el aviso y pueda sobreescribir el archivo en caso de que ya exista. También cambia en esta línea ActiveSheet por ActiveWorkbook, lo que vas a guardar es un libro. ActiveSheet.SaveAs...

En la versión 365 de excel o 2019, puedes utilizar la función: UNIRCADENAS, ej: =UNIRCADENAS(CARACTER(10),VERDADERO,A2:A10) [Sal u dos

Comparte tu archivo en google drive Necesito saber qué tienes en el combobox1, en el textbox1 y en el textbox2.

Utiliza la grabadora de macros. Edita la fórmula, presiona enter y te genera el código. Algo como esto: Sub Macro1() ' ' Macro1 Macro ' ' ActiveCell.FormulaR1C1 = _ "=RC[-1]&TEXT(COUNTIFS(R1C5:RC[-2],RC[-2],R1C6:RC[-1],RC[-1]),""000"")"...

Ejecuta la siguiente macro. Cambia en la macro "A" por la letra de la columna donde tienes los datos Sub PonerNegritas() Dim i As Long, n As Long 'recorre las filas de la columna "A" For i = 2 To Range("A" & Rows.Count).End(3).Row With Range("A" & i)...

No se ven los datos de la hoja. Puedes poner la imagen de tu hoja. Cuál es el Label a considerar y cómo estás llenando ese Label. Qué datos se deben cargar, tu imagen del userform está vacía, puedes poner el ejemplo para ver qué datos quieres cargar...

Te comparto la siguiente opción: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "K16" Then Rows("21:31").Hidden = Target.Value <> "CASADO" Range("K16").Select End If End Sub En esta comparación: Target.Value <> "CASADO"...