VBA kode Excel

[MasterCaster]

L.S

Ik ben op zoek naar een VBA kode die ervoor zorgt dat indien in kolom G in een willekeurige rij een datum is ingevuld (tabblad td en etd) de rij wordt verplaatst naar tabblad "uitgevoerd".

Wie wil me helpen?

 

[Roncancio]

Zet onderstaande code in ThisWorkbook.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Chr(64 + Target.Column) = "G" Then
    Select Case ActiveSheet.Name
        Case "td", "etd"
        Target.EntireRow.Cut Sheets("uitgevoerd").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End Select
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[MasterCaster]

Bedankt het werkt, echter de opmaak van de rij is dan ook weg, kan dit eventueel nog anders ?

 

[Roncancio]

In dat geval....

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Chr(64 + Target.Column) = "G" Then
    Select Case ActiveSheet.Name
        Case "td", "etd"
        Target.EntireRow.Copy Sheets("uitgevoerd").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        Target.EntireRow.Delete
    End Select
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[MasterCaster]

Heb nu helaas geen tijd meer, maar ga er van uit dat het goed komt.

Bedankt voor je moeite !