Dante Amor

Tampoco me queda claro qué necesitas. Podrías explicarlo con alguna imagen, y cuál es el objetivo final qué tú necesitas. Te adelanto un ejemplo, si tus datos están de esta manera: Si quieres saber cuál es la última columna con datos, entonces la...

Prueba la siguiente: Sub recorrer_Columna_A() Dim a As Variant, b As Variant, i As Long, j As Long ' a = Sheets("Hoja1").Range("A1", Sheets("Hoja1").Range("A" & Rows.Count).End(3)).Value2 ReDim b(1 To UBound(a), 1 To 1) For i = 1 To UBound(a) If...

Para entender lo que necesitas, debes poner 3 imágenes. En la imagen 1, debes mostrar lo que tienes en una de las hojas, por ejemplo de la hoja 130. En esa imagen 1 deben verse claramente las filas y las columnas de excel, y por supuesto, deben verse...

Siguiendo con tu ejemplo, en M75 tienes "Rever". En T75 la macro coloca la fórmula =K75-K$75 Si en las celdas M3 a M74 las palabras son diferentes a "Rever", ¿qué fórmula debe ponerse en las celdas T3 a T75?

Si no son cada 10 filas, entonces tratando de encontrar otro patrón, puede ser, en la columna A si el texto empieza con letra, entonces es una división, si no es letra entonces no es división. Es decir, la celda A1, el texto empieza con la letra "M"...

Pero al generar archivo lo hace en blanco Lo genera en blanco porque no estás pegando los valores, solamente estás pegando el ancho de columnas: Selection.PasteSpecial Paste:=xlPasteColumnWidths Te anexo el código para copiar y pegar los valores. No...

Si dura 2 horas en sucursal me pinte de verde y me ponga "dentro de lo establecido" No estoy seguro de lo que estás pidiendo. ¿Quieres qué el formato condicional te pinte de verde y además te ponga un texto? Podrías intentar con una fórmula, digamos...

Fórmula en B2 =A2-DIASEM(A2,3) Fórmula en C2 =A2-DIASEM(A2,3)+4 ejemplos:

Pon el siguiente código en tu userform: Private Sub ComboBox1_Change() TextBox1.Value = "" If ComboBox1.ListIndex > -1 Then TextBox1.Value = Sheets("DATOS").Range("D" & ComboBox1.ListIndex + 4) End If End Sub

Intenta con la siguiente fórmula matricial =INDICE($E$2:$E$24,MAX(($A$2:$A$24=$J$2&$J$4&$I6)*($G$2:$G$24=K.ESIMO.MAYOR(($A$2:$A$24=$J$2&$J$4&$I6)*($G$2:$G$24),1))*FILA($E$2:$E$24)-1))