calvuch

Prueba Sub rellenar() Dim i As Integer For i = 1 To Application.Sheets.Count Range("A" & i) = "=Hoja" & i & "!" & "E25" Next End Sub Te dejara los resultados en la col A si necesitas que sea en otra col modifica la referencia range No olvides CERRAR...

Prueba esto. Sub Buscar() Dim t As String Dim r As Range t = InputBox("Introduce el Número de Tráfico: ") If Len(t) = 0 Then Exit Sub If Application.WorksheetFunction.CountIf(Range("A:A"), t) = 0 Then Exit Sub For Each r In Range("A1" & ":" & "A" &...

Observando tu texto y lo que deseas, lo único que debes controlar es el numero de caracteres de la cadena que deseas manejar ( negrita y cursiva) Es decir, el siguiente ejemplo pondrá en negrita cursiva la siguiente parte de la cadena: Yo, Mario jose...

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:...