Dante Amor

[Hola Jaime y bienvenido a TodoExpertos! Prueba lo siguiente: Cambia "Hoja1" y "B2" por la hoja y la celda donde quieres poner el número. Cambia macro1 por tu macro que quieres ejecutar varias veces. Sub Ejecutar() Dim i As Long For i = 1 To 4 'ciclo...

Te paso la macro actualizada para poner todas las combinaciones de 3 números. Sub colorearnumeros_4() 'Por Dante Amor Dim a As Variant, b As Variant, ky As Variant Dim i As Long, j As Long, k As Long, lr As Long Dim m As Long, n As Long, x As Long, y...

Envíame tu archivo a mi correo para revisar el formulario y ayudarte con toda la funcionalidad. Mi correo: [email protected] Si tu archivo tiene información confidencial reemplaza por datos genéricos.

Si aplicas el siguiente formato condicional, puedes colorear de rojo los valores mayores a 10. Selecciona las celdas donde quieres aplicar el formato condicional y pon la siguiente fórmula: =A1>10 Así se aprecia: ¿Para el color amarillo lo quieres en...

Prueba lo siguiente: Private Sub CommandButton1_Click() 'Botón AGREGAR If tbox_carta.Value <> "" Then lbox_pedido.AddItem tbox_carta End If End Sub

Para entender lo que necesitas prueba con la siguiente macro y dime si es lo que quieres. La macro va a poner la fórmula en la celda E8, tal y como está en tu ejemplo. Sub ponervalor() Range("E8").Formula = "=(" & Range("E6").Value & ")" & "+ C8" End...

Te presento un ejemplo. En el ejemplo solamente puse las distancias 5,10 y 15. Las distancias 5m previas y después están juntas, así como las 10m y las 15m. En la gráfica puedes ver 5m Pre y 5m Post y todas sus medidas. La primer barra en color azul...

Utiliza la siguiente: Sub copiarformulas() Range("U3:Z3").Copy Range("U4:Z" & Range("R" & Rows.Count).End(3).Row) End Sub La macro copia las fórmulas, pero el tiempo en responder depende de lo compleja que sea la fórmula.

[Hola Marcelo. Veo que estás interesado en aprender a programar. Te muestro un pequeño detalle. En las opciones del ciclo For puedes utilizar la opción Step, con esta opción, el contador cambia cada vez a través del bucle. Si no se especifica, el...

Prueba lo siguiente. Cambia esta línea: Item.ListSubItems.Add Text:=Rango(i, j).Value Por esta: Item.ListSubItems.Add Text:=Format(Rango(i, j).Value, "$#,##0.00")