Dante Amor

Pon en G7 la siguiente fórmula: =SI.ERROR(PROMEDIO(D7;D10);0)

Revisa si lo siguiente es lo que necesitas. Suponiendo que las hojas son: hoja1, hoja2 y hoja3. Suponiendo que las columnas son A y B en cada hoja. - Crear una hoja nueva. - Copiar las columnas A y B de la hoja1 y pegar en las columnas A y B de la...

Prueba con la instrucción DoEvents: Sub InsertaImagen() Dim sPath As String, Li As String Dim img As Object Dim rngCell As Range Dim i As Long, n As Long Dim s1 As Worksheet ' Set s1 = Sheets("Sheet1") sPath = Sheets("Main").Range("C11") n = 6 For i...

Prueba lo siguiente: Sub test() Dim mes As Long Dim numero As Long Dim nvaVariable As String ' mes = 2 numero = 1 nvaVariable = Format(mes, "00") & Format(numero, "0000") MsgBox nvaVariable End Sub

For i = 0 to 6 AND n = 6 Step 4 Definitivamente eso no es posible. Pero lo podemos resolver de la siguiente manera. Cada contador por separado, según tu requerimiento las imágenes son 1,2,3,4 y 5, entonces i empieza en 1 y termina en 5. Para el valor...

Utiliza la siguiente fórmula: =SI(A2<4,56.1, SI(A2<8,43.35, SI(A2<59,40.8, SI(A2<79,38.25,35.7)))) Nota: si utilizas el punto y coma ( ; ) como separador de argumentos, entonces cambia en la fórmula las comas (, ) por punto y coma ( ; )

Bienvenido a TodoExpertos: Cuando la macro coloca datos sobre una planilla de excel, En esa macro tienes una línea como esta: Application.Calculation = xlCalculationManual Revisa que al final de la macro tengas una línea como esta:...

Ho la y bienvenido a TodoExpertos: Con esta línea estás limpiando la memoria, por eso no hay nada que pegar. Application.CutCopyMode = False Debes ponerla al final de la macro: Sheets("Facturacion").Select Range("G3").Select Selection.Copy...

Si tienes los valores únicos como en el siguiente ejemplo en las columna E: En la celda F3 pon la siguiente fórmula: =SUMAR.SI.CONJUNTO($C$2:$C$9,$A$2:$A$9,$E3,$B$2:$B$9,$F$2) Y en la celda G3 pon la siguiente fórmula:...

Utiliza lo siguiente. Si en la celda G10 tienes "metropolitan[12]", al ejecutar la macro "llamada", te enviará un mensaje con el texto: [12] Sub llamada() Dim resultado As String resultado = ExtraerDato(Range("G10").Value) MsgBox resultado End Sub...