no recorrer celdas

Hola.

Examine este código... tal vez le de una idea
clara de lo que necesita

La clave está en NO usar range(celda).Select

fil = 1

Do
'Celda que contiene el dato
col = "A"
celda = Trim(col) & Trim(Str(fil))
If Range(celda).Formula = "" Then
Exit Do
End If
dato = Range(celda).Formula

' Donde pegará los datos
col = "B"
celda = Trim(col) & Trim(Str(fil))
Range(celda).Formula = dato

fil = fil + 1
Loop
End Sub


Puede reemplazar .Formula por .Text o
.FormulaR1C1

Espero sea esto lo que necesita.

Saludos,

Carlos.

Hola grupo
Tengo una macro (al fin la pude hacer) que recoge datos

de unas celdas y las

pega en otras, pero no quiero que me muestre dónde va,

porque marea tanto

movimiento. alguien sabe cómo hacer para que la hoja

donde corre la macro se

quede estática.

Saludos
GSilva


.

Hola ,, como estas ,, espero que te sirva esta solucion.

Antes de comenzar a ejecutar la macro dentro del codigo en
visual ,,, debes ejecutar la siguiente orden.


sub nombremacro()

Application.ScreenUpdating = False

ordenes

Application.ScreenUpdating = True

End sub

Esta orden lo que hace es que congela la pantalla , pasado
a false,,, despues de todos tus procesos ,, debes volver a
colocarla en true.. y listo..

saludos ..

Morpheus

Si... está mejor la solución de Morpheus!

Saludos,

Carlos A.

Hola ,, como estas ,, espero que te sirva esta solucion.

Antes de comenzar a ejecutar la macro dentro del codigo

en

visual ,,, debes ejecutar la siguiente orden.


sub nombremacro()

Application.ScreenUpdating = False

ordenes

Application.ScreenUpdating = True

End sub

Esta orden lo que hace es que congela la pantalla ,

pasado

a false,,, despues de todos tus procesos ,, debes volver

a

colocarla en true.. y listo..

saludos ..

Morpheus
.