Dante Amor

Ya configuraste esta parte: 1. Entra a VBA, al menú herramientas, Referencias, y activa la referencia "Microsoft CDO for Windows 2000 Library"

Tiene algunos detalles tu código. Por ejemplo en esta parte: 'Validamos que haya un elemento seleccionado. For j = 0 To Cuenta - 1 If Me.ListBox1.Selected(j) = True Then Me!ListBox2.Selected(g) = True Numero = Numero + 1 End If Next j en esta línea:...

Hay que no me quedó claro en tu explicación, comentas lo siguiente: En la celda "F2" la palabra "Alto" si la celda "C2" es mayor a la celda "D2" cuando en "E2" su valor sea "A". Esto es Si C2 > D2 y E2 = "A" entonces "Alto" Pero después comentas:...

Prueba con la siguiente macro. Si modificas la celda A1, se pintará de amarillo. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then...

Ese es mi correo [email protected] Cuál es tu correo, para enviarte un email

Cambia esta línea: Dato = Worksheet.Range("C1") Por esta: Dato = ActiveSheet.Range("C1") .[Avísame cualquier duda

Quedaría así: =SI(N8="","", SI(N8<=M8+"00:05","A tiempo","Con retraso"))

No entendí muy bien tu ejemplo, faltó el número 3, y además Enrique no está duplicado, pero le pusiste el número 6. ¿Los nombres van a estar ordenados?

Revisa las siguientes respuestas ahí explico cómo utilizar la propiedad .RowSource Codigo VBA para un Listbox con mas de 10 columnas Tengo un Listbox con 20 columnas pero sólo me muestra 10 Si tienes dudas de cómo aplicarlo, pon tu código para...

Prueba con lo siguiente: Sub Imprimir_Hoja() fin = Sheets("FORMULARIO").Range("D7").Value Sheets("ETIQUETAS").PrintOut from:=1, to:=fin End Sub