Dante Amor

Andaba ocupado, por eso no había podido responder. Prueba con la siguiente macro Crea 2 hojas y les pones por nombre "Temp1" y "Temp2" Sub Enviar_Correos_a_Proveedores() 'Por Dante Amor ' Application.DisplayAlerts = False Application.ScreenUpdating =...

En el userform3, te falta declarar como global la variable cargando Lo que tienes en tu userform3 es esto: Buscar = ComboBox1.Value For x = 0 To ListBox1.ListCount - 1 If UCase(ListBox1.List(x)) = UCase(Buscar) Then ListBox1.ListIndex = x Exit Sub...

Crea el formato condicional, en la fórmula pon lo siguiente: =M3=$J$3 Y en Se Aplica a: pon lo siguiente: =$M$3:$P$32 Listo. No olvides valorar la respuesta.

Prueba con la siguiente macro Crea 2 hojas y les pones por nombre "Temp1" y "Temp2" Sub Enviar_Correos_a_Proveedores() 'Por Dante Amor ' Application.DisplayAlerts = False Application.ScreenUpdating = False Set h1 = Sheets("Resumen") Set h2 =...

Revisa el siguiente artículo, ahí explico cómo resaltar una fila y columna https://www.gerencie.com/iluminar-la-fila-y-la-columna-donde-se-encuentra-la-celda-activa.html Revisa esta respuesta ahí explico cómo resaltar una sección. Macro para colorear...

Puedes poner en cuál if tienes el problema y tal vez una imagen de tu pantalla con datos de ejemplo, procura que se vean las filas y las columnas de excel; y explica qué debería realizar el código.

Pon el siguiente código en un botón de tu userform Private Sub CommandButton1_Click() ' Por Dante Amor ' ' Cargar todos los txt de una carpeta a listbox ' ruta = "C:\trabajo\txt\" If Right(ruta, 1) <> "\" Then ruta = ruta & "\" arch = Dir(ruta &...

Te anexo la macro Sub consecutivo() ini = 1 'fila donde inician los datos ant = Cells(ini, "A").Value n = 1 For i = ini To Range("A" & Rows.Count).End(xlUp).Row If ant <> Cells(i, "A").Value Then n = 1 End If Cells(i, "B").Value = n n = n + 1 ant =...

Hay que convertir a fecha lo que tienes en el textbox, prueba con esto: If CDate(TextBox373) <= WorkSeets("Datos Primarios").Range("AI12") Then

Prueba lo siguiente para pasar la fecha del textbox a una celda, por ejemplo: range("D5").value = cdate(textbox1.value) Revisa el resultado en la celda y me comentas. Si no te funciona dime qué dato estás poniendo en el textbox y qué dato te pone en...