Valero Angel Serrano Mercadal

Jose Cordovoda! Supongamos que el consumo está en la celda A1 y el costo lo pondremos en la celda B1. La fórmula depende del separador decimal que tengas puesto en tu configuración regional Si el separador decimal es la coma en la celda B1 escribe...

Espero haber entendido bien lo que pides. Mira a ver si te sirve esta macro Sub TresSeguidas() Dim FilaFinal, Repes, i, j As Integer Dim UltChar, celda, Datos(3, 2) As String Datos(1, 1) = "H": Datos(1, 2) = "M" Datos(2, 1) = "Y": Datos(2, 2) = "Z"...

Supondré que las casillas de verificación están en la columna A, la Ruta la columna B y el archivo en la columna C La primera fila será la segunda y que los Checkbox se llamen Checkbox1, Checkbox2, etc, donde Checkbox1 corresponde a la fila 2...

Arantxa Blanco! Hacemos uso de la macro del programa anterior que ya se vio que funcionaba y añadimos lo de los colores. Sub Prioridad() 'ValeroASM Dim i, dias, FilaFinal As Integer FilaFinal = Range("H" & Rows.Count).End(xlUp).Row For i = 2 To...

Gabriel Beltran! Esta es la versión para ejecutar pinchando en el nombre de la macro, a lo mejor con esta ya te sirve. Sub AbrirFichero() Dim RutaYNombre As String On Error GoTo NoSePudo RutaYNombre = [A1] & [A2] Workbooks.Open (RutaYNombre) Exit Sub...

Debes incorporar esta macro en el objeto ThisWorkbook, que tienes en el explorador de proyectos, a la izquierda en el editor de VisualBasic. Es una macro que se ejecutará al abrir el libro. Private Sub Workbook_Open() Dim hoja As Worksheet For Each...

Pablo Rivero! Vamos a aprovechar para hacer una macro que no solo sirva para 5 sino para cualquier otro número, cuesta poco. Veo que lo que estás calculando son las combinaciones de 5 elementos tomados de 2 en 2. Luego haremos una macro que sirva...

Arantxa Blanco! Antes de nada un comentario. ¿No será Exhalación la palabra en lugar de Escalación? La macro sería esta Sub Prioridad() Dim i, dias, FilaFinal As Integer FilaFinal = Range("H" & Rows.Count).End(xlUp).Row For i = 2 To FilaFinal dias =...

Luis Meza! Esta es la macro que te sirv apara hacer eso Sub ponerB() Dim i, Filafinal As Integer Filafinal = Range("C" & Rows.Count).End(xlUp).Row For i = 1 To Filafinal If InStr(Range("C" & i).Text, "0001") > 0 Then Cells(i, "B") = "Flex 1" ElseIf...

Necesito el resto para poder hacer pruebas, lo que puede construir con lo que me das veo que funciona perfecto, tu metes un número en el TextBox y lo convierte a formato con moneda o con separadores, pero la parte donde está el error no sale aquí. Si...