mariano bracamonte

mariano bracamonte

 Argentina @marianoguibernau desde - visto
Preguntar

Actividad pública reciente

Ha valorado "Excelente" la respuesta

Macro para copiar y arrastrar una fórmula hasta la última fila con información

respondió: 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.
Ha valorado "Excelente" la respuesta

Como colocar una fórmula condicional que afecte solo a una serie de líneas

respondió: ¿En las columnas anteriores tienes algún identificador de cada proyecto? Puedes poner el ejemplo con el identificador de proyecto, de esa manera podemos ver en dónde inicia.
Ha valorado "Excelente" la respuesta

Copiar fila anterior y pegar en la fila activa y una fila más abajo

respondió: Estás arrastrando desde la fila anterior ("V" & fila - 1) hasta la fila activa (":Z" & fila). En esta última debes incrementar en 1: Destination:=Range("V" & fila - 1 & ":Z" & fila+1), Type:=xlFillDefault Sdos y no olvides valorara este respuesta.
Ha valorado "Excelente" la respuesta

Cómo fijar una una fila en una fórmula según condicional

respondió: Intenta, en Z3: =Q3-INDICE($Q$1:$Q$15;MAX(SI($S$3:S3="Alta";FILA($S$3:S3)))) y extiéndela hacia abajo hasta donde haga falta. A tener en cuenta: - Se trata de una fórmula matricial, por lo que ha de ser introducida pulsando mayúsculas control entrada...
Ha preguntado en el tema en y en 2 temas más

MsgBox dependiente de fórmulas y condicionales

En la Hoja5, Q3:Q está lleno de fórmulas y en M3M se agrega texto mediante validación de datos. Necesitaría que cuando alguna celda de Q de como resultado menor a 1 y en M se ponga el texto "Facturado", entonces aparezca un msgbox que indique un...
Ha valorado "Excelente" la respuesta

Macro para copiar debajo de última fila de otra hoja con condicionales

respondió: Prueba la siguiente: Sub CopiarDatos() Dim sh1 As Worksheet, sh2 As Worksheet, lr As Long ' Set sh1 = Sheets("Hoja1") Set sh2 = Sheets("Hoja2") Select Case sh2.Range("A5").Value Case 0 MsgBox "no se realiza ninguna copia: Valor 0" Exit Sub Case "ARS"...
Ha valorado "Excelente" la respuesta

Dividir con SUMAPRODUCTO ignorando celdas en blanco

respondió: Prueba así: =SUMAPRODUCTO((C14:C1000="m")*(I14:I1000>0)*(S14:S1000/(1+Q14:Q1000)))
Ha valorado "Excelente" la respuesta

Macro para insertar fórmula dependiente de una celda

respondió: 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?
Ha valorado "Excelente" la respuesta

Macro para insertar fórmula en varias celdas según condicional

respondió: Pon el siguiente código en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("L:L")) Is Nothing Then Dim i As Long If Target.CountLarge > 1 Then Exit Sub If UCase(Target.Value) = UCase("Alta")...