joselbe1

Para ir a otra hoja tienes que hacer algo como esto: Sheets("NombreHoja").Select Pra abrir otro libro: ActiveWindow.SmallScroll Down:=-6 Workbooks.Open Filename:= _ "C:\FicheroExcel.xls"

Te paso un ejemplo. 'recorro los 600 registros For i = 0 to 600 'me posiciono en cada registro y selecciono la columna 6.(F) Range("F"+ TRIM(I)).Select if ActiveCell.FormulaR1C1 > 90 Then 'Si el valor es mayor de 90 lo añadimos Range("G"+...