t4373125

Para ello necesitas utilizar la función BuscarV. Supongamos que tienes los valores en la Hoja1, y en el rango: A1:B8000. Supongamos también que quieres escribir los valores que quieras en la hoja 2 (columna A) y que en la columna B te salga la pareja...

En la macro principal, que va abriendo los libros prueba de escribir esta linea antes de comenzar a abrir los archivos: On Error Resume Next Esto hace que si encuentra algún error, pase de él y continué (pero es un poco peligroso porque entonces ya...

Aquí tienes el código: Sub Macro1() 'seleccionar la ultima celda Range("B1000").Select 'hasta llegar a la primera While ActiveCell.Address <> "$B$1" 'si la celda es de color amarillo... If ActiveCell.Interior.ColorIndex = 6 Then 'borrar la fila...

Para desproteger y luego volver a proteger se hace así: ActiveSheet. Unprotect "contraseña" 'codigo de la macro aqui ActiveSheet. Protect "contraseña" Donde contraseña tendrá el valor que tu quieras, evidentemente. Una dirección de tutoriales que te...

Creo que lo que necesitas se puede hacer con el formato condiciona (no hace falta una macro) Basta con seleccionar las celdas que tienen que te interesa que cambien de color e irte a Formato > Formato condicional... Una vez allí pones: Valor de la...

Vete al editor de Visual Basic(Alt+F11), crea un nuevo módulo y escribe este código: Sub a() 'Primera celda de resultados Range("J1").Select 'Rango donde tiene que buscar los valores mayores que 0 For Each cell In Range("A1:H9") If cell.Value > 0...

Exactamente, ¿en qué celdas se encuentran los datos? ¿Y en que celdas quieres situarlos en la otra hoja? (En columnas distintas, una para cada tipo de descripción, ¿por ejemplo?) Hasta pronto, Ramon

Creo que entiendo lo del máximo y mínimo, pero no lo de la secuencia. Te voy a poner un ejemplo y me dices si lo hago bien: a,b,b,a,b,a,c,b,b,a,a,a LETRA B: Máximo: 2 Mínimo: 1 Secuencia: 2-2-1 ¿Es eso? Otra cosa, ¿en qué celdas están EXACTAMENTE los...

Creo que este ejemplo te servirá para lo que quieres: If MsgBox("Escoje una opcion", vbYesNo) = vbYes Then MsgBox "Has escojido SI" Else MsgBox "Has escojido NO" End If

A ver si te sirve una de estas 2 funciones: =SI(C31<0;((-1)*(E31-C31)/C31));SI(C31=0,0,(E31-C31)/C31)) =SI(C31<0;((-1)*(E31+C31)/C31));SI(C31=0,0,(E31-C31)/C31))