calvuch

Si se puede. Siguiendo tu ejemplo he dispuesto un rango de prueba de 10 filas en donde col A es Fecha Col B es Descripción col C es agstos En D1 determino el máximo =MAX(C1:C11) en E1 =INDIRECTO("b" & COINCIDIR($D$1;$C$1:$C$10;0)) en F1...

Prueba esto Private Sub Worksheet_Change(ByVal Target As Range) Target = UCase(Target) End Sub Utiliza el evento change de la hoja Abre el editor de Visual basic ALT + F11 y desde allí selecciona la hoja en que deseas correr el macro, luego en la...

Así funciona muy bien With Worksheets("FILTROS") Dim Criterio As Date Criterio = Sheets("FILTROS").Range("E7") Sheets("B. NOTAS").Select [c1].Select Selection.AutoFilter ActiveSheet.Range("$C$1:$C$1322").AutoFilter Field:=1, Criteria1:=Criterio End With

Prueba Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'if left cell is dark red painted On Error Resume Next If (Target.Offset(0, -1).Interior.Color = 192) Then LastRow = Sheets("Errors_list").Range("A" & Rows.Count).End(xlUp).Row + 1...

total venta en B2=79000 en C2 pones =SI(B2>20000;SI(B2>20000;(20000*0,02)+(B2-20000)*0,03);B2*0,02) Asi, si b2 >20000 calcula segun tus criterios, si es inferior a 20.000 entonces aplica solo el 20%

Los datos en una misma celda o cada uno en un celda diferente Es decir a1=01-09-2011 (12000) o a1=01-09-2011 b1 = (12000)

Como pupongo que esto te interesa para mes completo, entiendo que: Desde columna A hasta la columna AE tenemos las celdas necesarias para los días 1 hasta el 31 del mes Entonces en la columna AF pones la función:...

En C debes poner la lista de nombres NO repetidos ( utiliza la funcionalidad de excel) "quitar duplicados" Una vez obtenida la lista con registros únicos, en columna DE pones esto: =si(contar.si(a:a;c1)>1;sumar.si(a:a;c1;b:b);0) Así si el valor de c...

Inserta un modulo en tu proyecto ( desde el editor de visual basic ALT + F11) Una vez insertado el modulo pegas este macro: Sub lista_hojas() Dim r As Worksheet Dim m() As String Dim ca As String Dim i As Integer Dim ii As Integer Dim libro As String...

Prueba así: Sub ajuste() Dim r As Range Dim f As Integer f = Application.WorksheetFunction.CountA(Range("A:A")) If f = 0 Then Exit Sub Application.ScreenUpdating = False For Each r In Range("A1" & ":" & "A" & f) If InStr(1, r.Text, ":") = 0 Then If...