Opgelost Automatisch overnemen met macro

[wimix69]

Klopt dit heb ik aangepast in Blad5, maar ook als ik de Validatie weg laat in Blad5 dan werkt het niet?

 

[emields]

Ik geef het op, iedere keer als je iets plaatst is het met of zonder formules met of zonder validatie.
maar echt zeggen wat je wil, als je het zelf al weet, doe je niet.
Wat moet waar komen als je of C7 of C9 veranderd?

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

Wat moet er dan komen in M3? en dat moet dan ook naar F5?

 

[HSV]

Test het maar eens weer.

De codes uit de beide bladmodules verwijderen en onderstaande in Thisworkbook-module plaatsen.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Application.EnableEvents = False
 sv = Array("Blad1", "Blad5")
 sv = Join(Filter(sv, Sh.Name))
if sv <> "" then
    If Not Intersect(Target, Sheets(sv).Range("f5")) Is Nothing Then
        Range("C7,C9") = Target.Value
    End If
    If Not Intersect(Target, Sheets(sv).Range("c7,c9")) Is Nothing Then
      Range("F5") = Sheets("Blad2").Range("M3").Value
    End If
end if
 Application.EnableEvents = True
End Sub

 

[wimix69]

Hoi Harry,

Macro werkt alleen voor Blad1 goed. Bij blad5 werkt hij niet. als C7 of C9 aangepast wordt dan verander de benaming in F5 niet van met bifocale loepglazen naar met bifocaal loepglas. Dit gebeurd wel in blad 1.

 

[emields]

Wat is feitelijk de bedoeling van al die bladen?

 

[HSV]

Ik heb het later aangepast, heb je die ook getest?

 

[wimix69]

Ik ben er uit het werkt nu goed. Badankt allemaal voor jullie hulp.

IK BEN WEER EEN STUK VERDER