Dante Amor

Prueba así: If Nombre3 = "" then exit sub If Nombre3 <> " " Then Nombre = Nombre1 & Nombre2 & Nombre3 End If If Nombre4 = "" then exit sub If Nombre4 <> " " Then Nombre = Nombre1 & Nombre2 & Nombre3 & Nombre4 End If If Nombre5 = "" then exit sub If...

"Al escribir un numero dentro de la celda la autoforma debe tomar el color que tiene la celda y si borro el numero la autoforma debe quedar transparente." Para que funcione en automático al capturar un número en la celda E5. Pon el siguiente código...

Cuál es la fórmula del formato condicional o las condiciones que tienes en el formato condicional. De esa manera, las condiciones también se pueden aplicar en la macro, es decir, la macro evaluaría lo mismo que el formato condicional y entonces...

Prueba lo siguiente: Los 2 libros A y B, deben estar abiertos. La información de ambos libros se toma de su primer hoja. Sub Sumar_Distancias() Dim sh1 As Worksheet, sh2 As Worksheet Dim a As Variant, b As Variant, c As Variant Dim i As Long, j As...

Puedes responder lo siguiente: "Evalúe un dato de una lista desplegable" ¿Cómo creaste la lista desplegable? ¿Es una validación de datos? ¿O un combobox y de qué tipo? "Como haría para llamarlo y que se ejecute desde la macro grande" Si ya tienes una...

Si quieres cargar desde A2 hasta N y hasta la última fila con datos, puede ser: Private Sub UserForm_Initialize() UserForm1.Lst_database.List = Hoja1.Range("A2:N" & Hoja1.Range("A" & Rows.Count).End(3).Row).Value End Sub

Aquí otro código a considerar Sub AjustarColor() Dim tr As Integer, b As Integer With ActiveSheet.Shapes("Triangulo").Fill .Transparency = (Range("E5").Interior.ColorIndex = xlNone) * -1 .ForeColor.RGB = Range("E5").Interior.Color End With End Sub

Te recomiendo utilizar un combobox en lugar de un texbox. De esa manera puedes ver todos códigos de "Zone". Seleccionas un "Zone" y en automático el textbox1 se llenará con el precio: Utiliza el siguiente código en tu userform para cargar el combobox...

Intenta guardar el archivo como: Texto con formato (delimitado por espacios). Prueba la siguiente: Sub Macro2() Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Libro1.txt", _ FileFormat:=xlTextPrinter End Sub

Revisa si el siguiente método te funciona Guardar documentos de acuerdo a un texto variable