afzonderlijke cellen kopiëren naar ander werkblad

[nonono]

Het is de bedoeling om in het blad Overzicht bepaalde cellen van blad Bestellingen weer te geven.

In het voorbeeld wil ik van blad Bestellingen de cellen C4 en F4 kopiëren naar het blad Overzicht in resp. C4 en F4 m.b.v de knop Range/Copy.

In het bereik van blad Overzicht wordt echter alleen de cel C4 repeterend gekopieerd.

Wat moet er veranderd worden in de code?

Bedankt Nono

Bekijk bijlage test_verkoop_1.xls

 

[Hoornvan]

nonono,

Range("C4[COLOR="red"],[/COLOR]F4").Copy

Inplaats van

Range("C4[COLOR="red"];[/COLOR]F4").Copy

Range("C4").Copy kun je ook zo schrijven [C4].Copy

 

[nonono]

Dank voor je reactie.
Ik heb nog even gekeken, maar in de code staat: Range("C4,F4").Copy

Private Sub CommandButton2_Click()
    CommandButton2.Caption = "Range/Copy"
    With Sheets("Overzicht")
        If .Cells(10, 3).Value = "" Then .Cells(10, 3).Value = " "
        .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6). _
        Value = Sheets("Bestelling") _
        .Range("C4,F4").Value
        .Cells(10, 3).Value = ""
     End With
End Sub

Groet Nono

 

[Hoornvan]

Ja ik zie nu ook dat er een , staat, Sorry

 

[nonono]

Wanneer ik Value verander in Copy dan verschijnt er in het blad Overzicht 6 maal TRUE.

Groet Nono

 

[Hoornvan]

Dat had ik ook maar kom er ook nu niet uit.

 

[Hoornvan]

Zo komen de cellen C4 & F4 in een cel .
Dit is zeker niet de bedoeling?

Private Sub CommandButton2_Click()
    CommandButton2.Caption = "Range/Copy"
    With Sheets("Overzicht")
        If .Cells(10, 3).Value = "" Then .Cells(10, 3).Value = " "
        .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6) _
         = Sheets("Bestelling").[C4] & Sheets("Bestelling").[F4]
        .Cells(10, 3).Value = ""
     End With
End Sub

 

[nonono]

Nee, zo niet.
Het is de bedoeling, dat de inhoud van C4 (Bestelling) naar C4 (Overzicht) gaat.
En hetzelfde geldt voor F4.

Groet Nono

 

[trucker10]

en met deze code ?

 CommandButton2.Caption = "Range/Copy"
    With Sheets("Overzicht")
        If .Cells(10, 3).Value = "" Then .Cells(10, 3).Value = " "
        .Cells(.Rows.Count, 1).End(xlUp).Offset(8) _
         = Sheets("Bestelling").[C4]
         .Cells(.Rows.Count, 2).End(xlUp).Offset(2) _
         = Sheets("Bestelling").[F4]
        .Cells(10, 3).Value = ""
     End With

code aangepast ik las net dat het vanaf rij 9 moest zijn

 

[nonono]

Het blijft tobben.
C4 komt in A9 en F4 komt in B8.

Groet Nono

 

[trucker10]

Ik had die

Sub tst()
['Bestelling'!C4].Copy
['Overzicht'!A60000].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
['Bestelling'!F4].Copy
['Overzicht'!B60000].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
End Sub

ff gemaakt maar
Ik krijg het enkel op zijn plaats als er op rij 8 al data staat .
P.S. er moet nog een format op de datum cel bijgeplaatst worden als je het via de cbobutton doet met de sub tst code niet .

 

[nonono]

Dit is inderdaad ook een methode. Ik kan op rij 8 spaties plaatsen en dan komt de kopieeraktie op de volgende regel.

Ik ga hier verder mee aan de slag. Ik denk, dat het probleem dan opgelost is.

Groet Nono

 

[nonono]

Ik heb het gedeeltelijk mbv een macro opgelost.
Wanneer ik echter de code uit de macro overzet naar de code van de knop, dan gaat het mis.
De aktie loopt in het begin al vast op:
Range("C65536").End(xlUp).Offset(1).Select

Waarom functioneert dit wel met de macro maar niet met de knop?

Groet Nono

Bekijk bijlage test_verkoop_2.xls

Private Sub CommandButton1_Click()
    CommandButton1.Caption = "Range/Copy"
'
    Range("C4").Select
    Selection.Copy
    Sheets("Overzicht").Select
    Range("C65536").End(xlUp).Offset(1).Select
    ActiveSheet.Paste
'
    Sheets("Bestelling").Select
    Range("D5").Select
    Selection.Copy
    Sheets("Overzicht").Select
    Range("D65536").End(xlUp).Offset(1).Select
    ActiveSheet.Paste
'
    Sheets("Bestelling").Select
    Range("F4").Select
    Selection.Copy
    Sheets("Overzicht").Select
    Range("F65536").End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    Sheets("Bestelling").Select
End Sub

 

[nonono]

Nog even verder geborduurd op trucker10 #11.
Kopiëren gaat nu goed met zowel de macro (Alt+F8) als met de knop Range/Copy.
Omdat de kopieeraktie 3x uitgevoerd wordt, knippert het scherm.
Zou mooi zijn als het in 1x zonder knipperen gaat.

Groet Nono

Bekijk bijlage test_verkoop_5.xls

Private Sub CommandButton1_Click()
 CommandButton1.Caption = "Range/Copy"
  ['Bestelling'!C4].Copy
    ['Overzicht'!C60000].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
  ['Bestelling'!D5].Copy
    ['Overzicht'!D60000].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
  ['Bestelling'!F4].Copy
    ['Overzicht'!F60000].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
End Sub

 

[sylvester-ponte]

zo iets?

Private Sub CommandButton1_Click()
 CommandButton1.Caption = "Range/Copy"
    ['Overzicht'!C60000].End(xlUp).Offset(1, 0) = ['Bestelling'!C4]
    ['Overzicht'!D60000].End(xlUp).Offset(1, 0) = ['Bestelling'!D5]
    ['Overzicht'!F60000].End(xlUp).Offset(1, 0) = ['Bestelling'!F4]
End Sub

groet sylvester

 

[trucker10]

De code van Sylvester gebruiken of

Private Sub CommandButton1_Click()
 CommandButton1.Caption = "Range/Copy"
 [COLOR="darkred"]Application.ScreenUpdating = False[/COLOR]
  ['Bestelling'!C4].Copy
    ['Overzicht'!C60000].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
  ['Bestelling'!D5].Copy
    ['Overzicht'!D60000].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
  ['Bestelling'!F4].Copy
    ['Overzicht'!F60000].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
 [COLOR="darkred"]Application.ScreenUpdating = True[/COLOR]
End Sub

 

[nonono]

Inderdaad, zoiets en gaat perfect.
Bedankt voor je oplossing :thumb: :thumb: :thumb:

Groet Nono

 

[nonono]

Sapper de flap.

#17 was een antwoord op #15

Er zijn inderdaad meerdere wegen, die naar Rome leiden.

Dit (#16) is ook een perfecte oplossing.

Credits voor beide oplossingen :thumb: :thumb: :thumb:

Groet Nono

 

[trucker10]

De oplossing van #15 ( Sylvester ) is " beter " er is geen copy beweging ( bewerking )

 

[nonono]

Nog een aanvullende vraag omtrent het kopiëren naar een ander Excel bestand.

Ik heb van de werkbladen van test_verkoop_5.xls 2 afzonderlijke bestanden gemaakt:
Bestelling.xls en Overzicht.xls.

Vervolgens probeer ik de code uit #15 toe te passen op de afzonderlijke bestanden. Op z’n JanBoerenFluitjes met een macro gaat het “goed”.

Met het aanpassen van de code blijven er fouten in de syntax. Ik heb achtereenvolgens geprobeerd:

Private Sub CommandButton1_Click()
 CommandButton1.Caption = "Range/Copy"
    ['Windows(“Overzicht.xls”).Overzicht'!C60000]. _
      End(xlUp).Offset(1, 0) = ['Windows(“Bestelling.xls”).Bestelling'!C4]
     ['Windows(“Overzicht.xls”).Overzicht'!D60000]. _
      End(xlUp).Offset(1, 0) = ['Windows(“Bestelling.xls”).Bestelling'!D5]
    ['Windows(“Overzicht.xls”).Overzicht'!F60000]. _
      End(xlUp).Offset(1, 0) = ['Windows(“Bestelling.xls”).Bestelling'!F4]
End Sub

Private Sub CommandButton1_Click()
 CommandButton1.Caption = "Range/Copy"
    ['Windows(“Overzicht.xls”).Sheets(“Overzicht”)'!C60000]. _
      End(xlUp).Offset(1, 0) = ['Windows(Bestelling.xls).Sheets(“Bestelling”)'!C4]
    ['Windows(“Overzicht.xls”).Sheets(“Overzicht”)'!D60000]. _
      End(xlUp).Offset(1, 0) = ['Windows(Bestelling.xls).Sheets(“Bestelling”)'!D5]
    ['Windows(“Overzicht.xls”).Sheets(“Overzicht”)'!F60000]. _
      End(xlUp).Offset(1, 0) = ['Windows(Bestelling.xls).Sheets(“Bestelling”)'!F4]
End Sub

Vervolgens een aantal regels geprobeerd om te kijken of C4 geaktiveerd wordt. Maar ook dit werkt niet.

[Windows(“Bestelling.xls”).'Bestelling'!C4].Copy

[Windows(“Bestelling.xls”).Sheets(“Bestelling”)!C4].Copy	 

[‘Windows(“Bestelling.xls”).Bestelling'!C4].Copy

[‘Windows(“Bestelling.xls”).Sheets(“Bestelling”)'!C4].Copy

Hoe dan wel?

Groet Nono

Bekijk bijlage Bestelling.xls

Bekijk bijlage Overzicht.xls