bobelsenburg
Gebruiker
- Lid geworden
- 10 sep 2021
- Berichten
- 10
Hoi allemaal,
Ik probeer een paar automatische acties uit te laten voeren op basis van de inhoud van een cel, maar het lukt me niet. De situatie is als volgt:
- Twee tabbladen: Approval en Register
- In Approval staat een regel met data (in A2 t/m Q2).
- In S2 staat een drop-down menu. Wanneer Approval wordt geselecteerd, dan moeten er wat acties plaatsvinden:
- De regel met data (dus A2 t/m Q2) moet (met waarden) geplakt worden in de eerstvolgende lege regel in het tabblad Register, maar dan in C2 t/m S2. In A/B2 staat namelijk al een referentienummer (met een formule onzichtbaar gemaakt totdat de cel in kolom C een waarde heeft).
- Nadat de regel is geplakt, moet de oorspronkelijke regel in Approval (dus A2 t/m S2, want inclusief de drop-down keuze) weer worden geleegd voor de volgende keer.
- Hierna volgt een MessageBox die zegt dat de data is verplaatst en zijn we weer terug bij af
Het lukt me niet om de VBA-tekst op de gebruikelijke manier te kopiëren, dus hier even op de lelijke manier wat ik tot nu toe heb gemaakt (wat dus niet werkt).
Kan iemand mij helpen? Bijgevoegd het bestand waar het om gaat!
Alvast veel dank
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("S2").value = "Approved" Then
Nr = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
Sheets("Approval").Select
Range("A2:Q2").Copy
Sheets("Register").Select
Range("C" & Nr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Approval").Select
Range("A2:S2").Delete
MsgBox "Incident moved to Register"
End If
End Sub
Ik probeer een paar automatische acties uit te laten voeren op basis van de inhoud van een cel, maar het lukt me niet. De situatie is als volgt:
- Twee tabbladen: Approval en Register
- In Approval staat een regel met data (in A2 t/m Q2).
- In S2 staat een drop-down menu. Wanneer Approval wordt geselecteerd, dan moeten er wat acties plaatsvinden:
- De regel met data (dus A2 t/m Q2) moet (met waarden) geplakt worden in de eerstvolgende lege regel in het tabblad Register, maar dan in C2 t/m S2. In A/B2 staat namelijk al een referentienummer (met een formule onzichtbaar gemaakt totdat de cel in kolom C een waarde heeft).
- Nadat de regel is geplakt, moet de oorspronkelijke regel in Approval (dus A2 t/m S2, want inclusief de drop-down keuze) weer worden geleegd voor de volgende keer.
- Hierna volgt een MessageBox die zegt dat de data is verplaatst en zijn we weer terug bij af
Het lukt me niet om de VBA-tekst op de gebruikelijke manier te kopiëren, dus hier even op de lelijke manier wat ik tot nu toe heb gemaakt (wat dus niet werkt).
Kan iemand mij helpen? Bijgevoegd het bestand waar het om gaat!
Alvast veel dank
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("S2").value = "Approved" Then
Nr = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
Sheets("Approval").Select
Range("A2:Q2").Copy
Sheets("Register").Select
Range("C" & Nr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Approval").Select
Range("A2:S2").Delete
MsgBox "Incident moved to Register"
End If
End Sub