Foute code

[Roma]

Specialisten,
Ik heb een code gemaakt om van tabblad Overwerk naar tabblad Financieel te kopieren en daarna tabblad Overwerk schoon te maken. Probleem is dat de code het op tabblad Overwerk weer kopieerd. Waat staat er fou in deze code.

Private Sub CommandButton1_Click()
   With Sheets("Overwerk")
       Range("D8,E8,G8,H8,J8,K8,M8").Select
              Selection.Copy
          With Sheets("Financieel")
        Range ("C19,D19,E19,F19,G19,H19")
      With Sheets("Overwerk").Select
              Selection.ClearContents
    End With
       End With
               End With
End Sub

Ik moet deze code 35 maal herhalen van Tabblad Overwerk naar tabblad Financieel. Allemaal op verschillende plaatsen

Alvast bedankt

 

[edmoor]

Sorry, maar uit je code valt niet op te maken wat je wilt bereiken. Er staat nu eigenlijk dit:

Private Sub CommandButton1_Click()
    Sheets("Overwerk").Range("D8,E8,G8,H8,J8,K8,M8").Copy
    Sheets("Financieel").Range("C19,D19,E19,F19,G19,H19")
    Sheets("Overwerk").ClearContents
End Sub

Je doet niks met de gekopieerde waarden uit het blad Overwerk.
Bij het Blad Financieel geef je niet aan wat er met de opgegeven range moet gebeuren.
Alleen de laatste regel zal werken.

 

[Roma]

De bedoeling is dat de range in blad overwerk gekopieerd word naar de range in blad financieel en daarna blad overwerk geleegd word.
1 foutje had ik al ontdekt en dat is copy paste.

 

[OctaFish]

Cellen selecteren om te kopieëren en plakken is een omslachtige en slome werkwijze. Kan een heel stuk efficiënter zoals mensen als snb je ongetwijfeld veel beter als ik kunnen uitleggen. Zeker als je de code 35 keer wilt laten uitvoeren. Vraag is ook: hoe consistent is de gegevensreeks die je wilt kopieëren/plakken?

 

[snb]

Probleem is dat de code het op tabblad Overwerk weer kopieerd. Waat staat er fou in deze code.

Dit zijn de fouten:

Probleem is dat de code het op tabblad Overwerk weer kopieert. Wat staat er fout in deze code.

Lees voor de lol een bericht nog eens na voordat je het plaatst. Wel zo prettig voor potentiële helpers.

Omslachtige code is vaak de 'oplossing' voor 'matig' gestructureerde gegevens in een werkblad.
Toon je werkblad voor een goed advies.