formule voor kopieren cellen naar ander blad

[Schipperjte]

Hoi,

Heb een macro gemaakt voor wat cellen van het blad Gegevens naar het bald Rotterdam te kopieeren.

werkt goed , maar elke keer zie ik het blad natuurlijk heen en weer flitsen omdat ik de cel selecteer en plak

hoe kan ik dat zelf invullen in VBA dat hij bepaalde cellen kopieerd

bv van blad Gegevens H3 naar Rotterdam O9
en van Gegevens H6 naar Rotterdam P2

als ik een voorbeeldje heb kan ik het wel doorvoeren


Beter denk ik als als al dat heen en weer flitsen ,soms wel 30 cellen kopieeren


Oh ja even een toelichting , wil het eigenlijk zonder plakken speciaal doen of een verwijzing .

wil het van uit een userform laten doen met macro dat de verschillende formuliern in excel leegblijven vandaat het vba .



Bas

 

[ExcelAmateur]

Schipperjte,

Als je dit in je macro zet zou het Scherm niet moeten flikkeren.

Sub .....()
Application.ScreenUpdating = False
   "Hier staat dan jouw code"
 Application.ScreenUpdating = True
End Sub

 

[danny147]

Beste Schipperjte

Sub Overschrijven()
Application.ScreenUpdating = False
Sheets("Rotterdam").[O9] = Sheets("Gegevens").[H3]
Sheets("Rotterdam").[P2] = Sheets("Gegevens").[H6]
Application.ScreenUpdating = True
End Sub

Groetjes Danny. :thumb:

 

[Schipperjte]

Bedankt hij doet het , had per ongeluk deze vraag 2 keer gesteld .


Sorry daar voor , maar heb gelijk nog een vraagje heb dit geprobeerd rechtstreeks uit het userform met de naam VT geprobeerd

maar dat wil niet , heb namelijk nog een userform
hoe zeg ik dan welk userform ? of kan dit niet

Sub Over()
Application.ScreenUpdating = False
Sheets("Bunkercontrolelijst Rdam").[AK10] = Tekstbox4

Sheets("Bunkercontrolelijst Rdam").[M57] = Tekstbox12
Application.ScreenUpdating = True

End Sub

 

[Schipperjte]

Kreeg deze oplossing van Roncancio ( had ik nog niet gezien)

Sub Ove()
Worksheets("Bunkercontolelijst Rdam").Range("AK10").Value = TextBox4.Value
Worksheets("Bunkercontolelijst Rdam").Range("M57").Value = TextBox12.Value
End Sub

Maar nu nog welk userform (heet VT)

 

[Roncancio]

Kreeg deze oplossing van Roncancio ( had ik nog niet gezien)

Sub Ove()
Worksheets("Bunkercontolelijst Rdam").Range("AK10").Value = TextBox4.Value
Worksheets("Bunkercontolelijst Rdam").Range("M57").Value = TextBox12.Value
End Sub

Maar nu nog welk userform (heet VT)

Als het goed is, zet je de code bij de desbetreffende userform.
Wil je de waarde van bijvoorbeeld een textbox van VT in een textbox van een andere userform zetten dan zet je de naam van de userform (in dit geval VT ervoor).

Dus:

TextBox1.Value = VT.TextBox4.Value

Met vriendelijke groet,


Roncancio

 

[Schipperjte]

Heb deze code in een module gezet op het ander userform

geeft deze foutmelding

Hij moet uit Textbox4 kopieeren naar AK10 op de sheet zie hier onder

Sub Ove()
[B]Worksheets("Bunkercontolelijst Rdam").Range("AK10").Value = VT.TextBox4.Value[/B]
Worksheets("Bunkercontolelijst Rdam").Range("M57").Value = VT.TextBox12.Value
End Sub

 

[Schipperjte]

Mannen ook deze keer is het gelukt met jullie hulp

durf het bijna niet tezeggen maar ben er achter gekomen


Type foutje , letter ertussen vergeten





Bedankt