• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kopieren naar ander werkblad na keuze dropdown menu

Status
Niet open voor verdere reacties.
M

MrSpock

Gebruiker
Lid geworden
1 nov 2022
Berichten
19
Hallo Excel wizards

Ik wilde weten of het mogelijk is om als ik uit een dropdown een keuze maak
bijvoorbeeld als ik A kies dat het dan naar werkblad A wordt gekopieerd maar als ik bijvoorbeeld kies voor B in het dropdown menu dat het dan naar werkblad B gekopieerd word.

Alvast bedankt
 
Bij deze een voorbeeld bestand
 

Bijlagen

  • Voorbeeld.xlsx
    10,9 KB · Weergaven: 17
Tja, wat moet er nou gebeuren ? , gokje
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "B4" And Target <> "" Then
    If MsgBox("wil je kopieren naar blad " & Target.Value, vbYesNo) = vbYes Then
        With Sheets(Target.Value)
           Range("C4:C5").Copy .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
        End With
    End If
End If
End Sub
lees dit eens: https://www.helpmij.nl/forum/announcement.php?f=5
 
Laatst bewerkt:
Ik zou dit.....
Code: 
With Sheets(Target.Value)
           Range("C4:C5").Copy .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
        End With

...liever zo schrijven.


Code: 
  Range("C4:C5").Copy  Sheets(Target.Value).Range("A" & Rows.Count).End(xlUp).offset(1)
of:
Code: 
 Range("C4:C5").Copy  Sheets(Target.Value).cells(Rows.Count,1).End(xlUp).offset(1)
 
Harry,

Bedankt voor die twee coderegels, weer iets geleerd.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan