Moeite met verwijzing

[Joost.van.Steeg]

Ik heb 3 sheets: Blad1, Blad2, Blad3
Op blad1 staat de knop "cmdSamenvoegen"

Onderstaandecode werkt goed:

Private Sub cmdSamenvoegen_Click()

                Sheets(1).Range(Cells(2, 2), Cells(3, 3)).Copy
End Sub

Maar onderstaande codes doen het niet:

Private Sub cmdSamenvoegen_Click()

                Sheets(2).Range(Cells(2, 2), Cells(3, 3)).Copy
End Sub

Private Sub cmdSamenvoegen_Click()

                Sheets("Blad1").Range(Cells(2, 2), Cells(3, 3)).Copy
End Sub

Ben al een hele tijd van alles aan het proberen enr snap niet dat de onderstaande 2 codes het niet doen. Misschien iemand anders wel ?

 

[Wigi]

Ze zouden het wel moeten doen. Hang eens een bestandje bij waaruit blijkt dat ze niet werken.

 

[Joost.van.Steeg]

Hierbij het bestand.

 

[Wigi]

Wat wil je eigenlijk dat die command button doet?

 

[Joost.van.Steeg]

De bedoeling is dat ik de commandbutton op zowel de werknemers sheet als op de onderaannemerssheet plaats. Middels deze knop worden er 2 handelingen uitgevoerd:

1)
Alle werknemers gegevens worden geselecteerd en op de sheet "Beide" geplakt
2)
Alle gegevens van de onderaannemers worden vanaf C2 in de sheet "beide" geplakt onder de werknemers gegevens.

 

[Joost.van.Steeg]

Ik bedoel dan vanaf C2 op sheet Onderaannemers gekopieerd en op Sheet "beide" geplakt

 

[Wigi]

Zie bijlage.

De belangrijkste code is:

Sub zetweg()

Dim shPers As Worksheet, shOA As Worksheet, shBeide As Worksheet, rngBegin As Range
Set shPers = Sheets("Personeel")
Set shOA = Sheets("Onderaannemers")
Set shBeide = Sheets("Beide")

'werknemers op Beide plakken
shBeide.Cells.Clear
shPers.Rows("2:" & shPers.Range("A" & Rows.Count).End(xlUp).Row).Copy shBeide.Range("A1")

'gegevens onderaannemers eronder plakken
Set rngBegin = shOA.Range("C2")
Range(rngBegin, shOA.Cells(shOA.Range("C" & Rows.Count).End(xlUp).Row, rngBegin.End(xlToRight).Column)).Copy _
    shBeide.Range("A" & Rows.Count).End(xlUp).Offset(3)

Range("A1").Select
MsgBox "Klaar!"
End Sub

Wigi

 

[Joost.van.Steeg]

Bruut zeg ! Dank je wel

haha, wel weer rap geregeld zo

 

[Wigi]

haha, wel weer rap geregeld zo

Voor jou wel ja