caranbis

Teniendo KM en A1 y B1, y valor en euros en C1... La fórmula para calcular la parte en euros correspondiente al kilometraje de A1 es: =(A1*C1)/(A1+B1) La fórmula para calcular la parte en euros correspondiente al kilometraje de B1 es:...

'ESM Sub Importando() 'Para que esta macro funcione, debes añadir la librería scrrun.dll (c:\windows\system32\) 'Menú -Herramientas- (en el editor ed visual), '-Referencias-, -Examinar-, y buscas el archivo que mencioné. ' Dim Fso As New...

=si(y(esnumero(e14),esnumero(i14),esnumero(j14)), si(i14=0, e14*j14, si(i14 >0, i14*j14,)),"alguna valor invalido")

'Se corrige la macro que está en archivo adjunto. Sub Buscaycorrige() Dim cell As Range Dim aux As Integer For Each cell In Selection aux = cell.Column Exit For Next For Each cell In Selection If cell.Column = aux Then If InStr(1, cell.Value, [C6],...

Para asignar criterios personalizado a los filtrajes grabados, debes usar una variable auxiliar. Supongo que tú te paras en la celda que usas como criterio y le das Ctrl+C y ejecutas la macro, bueno, no debes darle Ctrl+C, suponiendo que te paras en...

'Corregir la línea anterior también Private Sub ckCasa10_Click() Dim De_donde As String, Foto As Object, _ Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double Application.ScreenUpdating = False On Error Resume Next...

No se puede hacer con función, debe ser con una macro que se ejecute cada vez que haces un cambio a la hoja. La macro revisa si se realizó el cambio en la columna A, y luego da el formato correspondiente a la celda en C. Esta macro no va en un...

Teniendo: Delegados en Columna A Ventas de producto 1 en columna B Ventas de producto 2 en columna C . Análisis: Sumar ventas del producto 1, sí las ventas del producto 2 es mayor a 0, y sí columna A pertenece a un grupo X; la fórmula para el grupo...

Sub Oculta_Valores() ' Nos posecionamos en la primera celda Range("A6").Select 'iniciamos el ciclo, hasta que se encuentre una una celda vacia Do While Not IsEmpty(ActiveCell) 'Validamos si el valor es "0" If Not ActiveCell = 0 Then 'Si es 0,...

Inserta un columna adicional, en ella pones la fórmula, EJ,: ESPACIOS(A1), donde A1, es la primer celda de nombres. Autorrellenas, copias, y pegas valores en la columna de nombres.