waarde naar ander blad kopieren op voorwaarde

[dennis1724]

Beste helpers,

Is het mogelijk om via een macro/formule het volgende te doen? [liever een macro]

ALs er bijvoorbeeld waarde in [blad 1] cel [d6] staat om dan cel [a6] ,[e6] en [d6] van blad1 als waarde in [blad2] te kopieeren?


Groetjes Dennis

 

[leofact]

Wanneer je dat automatisch wil kan dit in als event (gebeurtenis macro)
Deze zet je bij blad1 in de VBA editor
De inhoud van de cellen wordt naar dezelfde cellen gekopieerd in blad2, wanneer de waarde in d6 10 is.
Dat is makkelijk aan te passen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Blad1.Cells(6, 4) = 10 Then
        With Blad2
            .Cells(6, 1) = Blad1.Cells(6, 1)
            .Cells(6, 4) = Blad1.Cells(6, 4)
            .Cells(6, 5) = Blad1.Cells(6, 5)
        End With
    End If
End Sub

zie ook de bijlage
mvg Leo