Opgelost Automatisch overnemen met macro

[wimix69]

Hallo,

Ik wil een verandering in validatie automatisch overnemen met een macro

Ik heb een voorbeeld gemaakt wat duidelijk maakt wat ik bedoel

 

[emields]

En als je dat voorbeeld nu ook nog plaatst kunnen wij dat ook zien.

 

[wimix69]

Hierbij het voorbeeld

 

[emields]

uw uitleg lijkt me vrij ingewikkeld. Beter zou je zeggen wat je wil bereiken.

 

[mvdvlist]

En sowieso kan deze macro NOOIT goed werken in Uw samengevoegde cellen...

 

[wimix69]

Ik heb het geprobeerd te verduidelijke wat ik wil

 

[Haije]

Wim, het is mij nog altijd niet duidelijk wat je wilt

 

[emields]

c7 en c9 werken met formules, zodus is het niet de bedoeling daar iets in te veranderen, want dan verdwijnen de formules.

 

[HSV]

Ik heb de macro niet getest, maar deze moet niet in Thisworkbook-module maar in de module van Blad1.

 

[wimix69]

Ik heb het verduidelijkt wat ik wil.
De macro ook in Blad 1 gezet maar werkt dan ook niet.
dat de formule verdwijnt in C7 of C9 maakt niet uit.

Ik hoop dat er iemand een oplossing heeft

 

[edmoor]

Die macro wordt alleen uitgevoerd wanneer je M3 handmatig aanpast.
Het wijzigen van de waarde door een functie triggert niet het Worksheet_Change event.

 

[wimix69]

Hoe is het dan wel mogelijk. Is hier een oplossing voor met een ander macro? en zo ja welke?

 

[HSV]

Als je F5 veranderd, veranderen C7 en C9 in dezelfde tekst als F5.
Wat doet die formule in B5 met =ALS(C7<>C9;"Monoculaire";"Binoculaire")
C7 en C9 zijn immers altijd gelijk met in beide cellen =F5.

Dus de tekst in B5 blijft immer "Binoculaire".

Domme vraag: wat moet er veranderd worden?

 

[wimix69]

Domme vragen bestaan niet

Standaard wordt er in C7 en C9 overgenomen wat er gekozen wordt in F5
Als ik nu de tekst verwijder of verander bij alleen C7 of C9 dan veranderd B5 naar monoculaire maar ook de omschrijving bij M3. Deze omschrijving moet dan zichtbaar worden in F5. Dat kan nu alleen maar om op nieuw te selecteren, die handeling zou is dus willen overslaan.

 

[HSV]

Test het zo eerst eens.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Address(0, 0) = "F5" Then Range("c7,c9") = Target
 If Not Intersect(Target, Range("c7,c9")) Is Nothing Then Range("f5") = Range("m3")
Application.EnableEvents = True
End Sub

Wijzig F5 en/of C7 en C9.

 

[wimix69]

Harry je bent een topper dit is wat ik bedoel

*** BEDANKT ***

 

[wimix69]

Ik heb wat veranderd op blad1 doet de macro het maar op blad5 niet. wat doe ik verkeerd.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    If Target.Address(0, 0) = "F5" Then
        Range("C7,C9") = Target.Value
    End If
    
    If Not Intersect(Target, Range("C7,C9")) Is Nothing Then
        Sheets("Blad1").Range("F5") = Sheets("Blad2").Range("M3").Value
    End If
    
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    If Target.Address(0, 0) = "F5" Then
        Sheets("Blad5").Range("C7,C9") = Target.Value
    End If
    
    If Not Intersect(Target, Sheets("Blad5").Range("C7,C9")) Is Nothing Then
        Sheets("Blad5").Range("F5") = Sheets("Blad2").Range("M3").Value
    End If
    
    Application.EnableEvents = True
End Sub

 

[emields]

werkt het zo?

 

[wimix69]

Nee Blad5 werkt dan niet het zelfde als Blad1
Als bij blad1 C7 of C9 de inhoud verwijderd / veranderd wordt veranderd de omschrijving in F5 en B5. Dit gebeurt nu niet in Blad5

 

[emields]

op blad 1 kan je niet kiezen in C7 en C9