Carlos soloffice

No existe una función en excel con la que obtengas la información que quieres. Pero si puedes crear una macro fácilmente y usarla para obtener el tamaño del libro. 1. Crea un módulo. 2. Dentro del módulo añade esta función: Function TAMANNO_LIBRO()...

Si suponemos que "cod tarifa" está en la columna A y "valor" está en la columna B. La fórmula que necesitas quedaría así: =SUMAR.SI(Hoja1!A1:A3;1;Hoja1!B1:B3)+SUMAR.SI(Hoja2!A1:A3;1;Hoja2!B1:B3)+SUMAR.SI(Hoja3!A1:A3;1;Hoja3!B1:B3) Espero que te...

Abrahamwin, Si te parece bien, envíame el archivo de prueba y te ayudaré con tu consulta. Saludos, Carlos [email protected]

Esta sería la fórmula condicional que buscas. Escribe esto en B1 =SI(A1>=5000;5000;SI(A1>=4000;4500;SI(A1>=3000;3500;SI(A1>=2000;2500;1500)))) Saludos, Carlos [email protected]

Aquí lo tienes ;) Dim numfilas, i, x As Integer Dim numcolumnas, iniuno, inicien As Integer iniuno = 1 inicien = 100 numfilas = InputBox("Introduce el numero de filas") numcolumnas = InputBox("Introduce el numero de columnas") Label1.Text = "" For i...

Así :) Public Function NumerosLetras(ByVal value As Double, Optional bPrimeraVez As Boolean = True) As String Select Case value Case 0: NumerosLetras = "cero" Case 1: NumerosLetras = "uno" Case 2: NumerosLetras = "dos" Case 3: NumerosLetras = "tres"...

Serí así: Sub nombrarHoja() Dim oWorksheet As Worksheet For Each oWorksheet In ThisWorkbook.Worksheets oWorksheet.Name = oWorksheet.Range("N2").Value Next End Sub Saludos, Carlos [email protected]

Escribe en la celda A2 esta fórmula: =SI(A1<2;"pendiente";SI(A1>=3;"urgente";"retrasado")) Saludos, Carlos [email protected]

Uhmmm, yo lo haría así :) Function resumenArticulosCliente(ByVal idCliente As Long) As String Dim txt As String Dim rs As Recordset txt = "SELECT DISTINCT Articulos FROM Pedidos WHERE idCliente=" & idCliente & " ORDER BY Articulos" Set rs =...

Lo puedes hacer de esta manera: Sub EliminarHojas() Dim oWorksheet As Worksheet For Each oWorksheet In ThisWorkbook.Worksheets If Left(oWorksheet.Name, 3) = "Fac" And oWorksheet.Name <> "Factura" Then Application.DisplayAlerts = False...