Gegevens kopiëren zonder dat het beeld verspringt

Status
Niet open voor verdere reacties.

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Graag zou ik voor het volgende probleem een oplossing willen hebben.

Ik heb een code die gegevens (formules) vanuit de vijfde regel kopieert en deze plaatst in dezelfde kolom van de actieve regel. Maar omdat deze kolom (AJ) zich buiten het beeld bevindt, verspringt iedere keer bij het activeren van deze code het scherm. Mijn vraag: is het ook mogelijk dat er visueel niets gebeurd en dat toch de code uitgevoerd wordt en zo ja, wat is hiervoor de code?

Code:
Sub Formuleskopieren()
rij = 0 + ActiveCell.Row
Range("AJ5:AK5").Select
Selection.Copy
Cells(rij, 36).Select
ActiveSheet.Paste
End Sub

Alvast heel hartelijk dank.

Robert
 
Laatst bewerkt:
Aan het begin van de code :
Code:
Application.ScreenUpdating = False
Aan het einde van de code
Code:
Application.ScreenUpdating = True

Suc6,

Joske
 
Dit is genoeg:

Code:
Sub M_snb()
   ActiveCell.Offset(, 35).Resize(, 2) = Range("AJ5:AK5").Formula
End Sub
 
Op zich werkt deze code ook, alleen plaatst deze de gegevens niet in kolom AJ en AK maar rekent deze 35 posities vanaf de positie waar de cursor staat, dat kan dus overal zijn. Ik denk dat een kleine aanpassing jouw code helemaal perfect maakt.
 
kun je makkelijk zelf

Code:
Sub M_snb()
   ActiveCell.Offset(, 36-activecell.column).Resize(, 2) = Range("AJ5:AK5").Formula
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan