tekst op achtergrond blinde opmaak

[ozzyozzy]

Hallo allemaal,

ik weet niet of mijn idee te ingewikkeld is maar graag wil ik een blinde background tekst hebben ipv formule. is het mogelijk via voorwaardelijke opmaak of via vba?
ik wil de teskt overschrijven en bij delete de onderste tekst weer zichtbaar hebben. Nu heb ik dat via formule gedaan. als ik iets anders van maak wordt het verwijderd. Maar ik wil dat automatisch hebben vb als je een waarde aangeeft wordt het groen met voorwaardelijke opmaak. Hetzelde wijze/idee maar nu alleen met tekst

tnxx

 

[HSV]

Leg dat eens beter uit.

Blinde opmaak → onderste weer zichtbaar?

 

[ozzyozzy]

Leg dat eens beter uit.

Blinde opmaak → onderste weer zichtbaar?

Ik heb mijn uitleg aangepast.
Ik wil vakantie zien in mijn cel en ik kan alsnog wijzigen naar productie. Zodra ik productie weghaal wil ik vakantie zien. Zo gedachte van blinde background tekst.

 

[HSV]

Zoiets dus.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target = "" Then Target = Sheets("opmaak").Range(Target.Address).Value
End Sub

 

[ozzyozzy]

Klopt alleen range van w1 t/m w4 nu neemt die alles mee

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("c3:c5")) Is Nothing And Target.Count = 1 Then
  If Target = "" Then
   Application.EnableEvents = False
     Target = Sheets("opmaak").Range(Target.Address).Value
   Application.EnableEvents = True
  End If
 End If
End Sub

 

[ozzyozzy]

bedankt ik ben best ver met mijn idee. alleen ik heb een probleem. als ik in tab opmaak iets wijzig dan dien ik in tabblad blindeopmaak eerst backspace of delete toets te gebruiken. vb cel F3. is er hiervoor een optie? soms worden cellen met waarde 0 ingevuld. in tabblad blindeopmaak. is onoverzichtelijk als alles met 0 ingevuld wordt. ook een andere idee voor?

 

[HSV]

De bedoeling ervan zal ik maar niet vragen.

Code in werkblad 'Opmaak'.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("c3:f5")) Is Nothing And Target.Count = 1 Then
   Application.EnableEvents = False
     Sheets("blindeopmaak").Range(Target.Address) = Target.Value
   Application.EnableEvents = True
 End If
End Sub

 

[ozzyozzy]

getest en mijn idee is tot nu toe naar behoren. bedankt

 

[ozzyozzy]

ik heb nog een probleem met de onderstaande:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("c3:f5")) Is Nothing And Target.Count = 1 Then
   Application.EnableEvents = False
     Sheets("blindeopmaak1", "blindeopmaak2").Range(Target.Address) = Target.Value
   Application.EnableEvents = True
 End If

If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
    On Error Resume Next
    If Not Intersect(Target, Range("c3:f5")) Is Nothing Then

        Application.EnableEvents = False
        Target = StrConv(Target, vbUpperCase)
        Application.EnableEvents = True

End If
On Error GoTo 0
End Sub

 

[HSV]

Het probleem omschrijf je niet.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("c3:f5")) Is Nothing And Target.Count = 1 Then
   Application.EnableEvents = False
     Target = UCase(Target)
     Sheets("blindeopmaak1").Range(Target.Address) = Target.Value
   Application.EnableEvents = True
 End If
End Sub

 

[ozzyozzy]

probleem 1:
Code in werkblad 'Opmaak'.

ik wil dat namelijk hetzelfde doen voor twee werkbladen blindeopmaak1 en bildeopmaak2. anders zou ik bij alle werkbladen een backspace of delete moeten gebruiken voor elke gewijzigde cel.

probleem 2:
mijn vbUpperCase code werkt af en toe als ik met end if gebruik. heb jij mss een andere slimme oplossing ervoor.

 

[HSV]

Probleem 1:

Plaats nog zo'n coderegel eronder met "blindeopmaak2".

Sheets("blindeopmaak1").Range(Target.Address) = Target.Value

Probleem 2:

Code van mij niet getest?

 

[ozzyozzy]

ik heb het nu voor elkaar gekregen en getest. werkt prima.

wat ik nu gemerkt heb is de volgende.

Eerder ingevulde producties bij bilndeopmaak1 cel D3 en D4 wordt overgeschreven bij wijzigingen opmaak. Om dat te voorkomen heb ik ja/ nee geplaatst in opmaak.
zodra ja aan staat wil eigenlijk dat er transformatie plaats vind tussen tabblad opmaak en tabblad blindeopmaak 2 en bij nee geen transformatie van tabblad opmaak naar tabblad blindeopmaak 1 .

heb jij enige idee hoe ik dat beste kan doen?

 

[ozzyozzy]

Even concreter beschreven met opdracht knop (dropdownmenu) ja of nee de uitvoering runnen vanuit werkblad opmaak.

 

[HSV]

Zo maar weer.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c3:f5")) Is Nothing Then
 Application.EnableEvents = False
    If Target.Count > 1 Or Target.HasFormula Then
       Application.Undo
       Application.EnableEvents = True
       Exit Sub
    End If
      Target = UCase(Target)
      If Range("i3") = "Ja" Then Sheets("blindeopmaak1").Range(Target.Address) = Target.Value
      If Range("j3") = "Ja" Then Sheets("blindeopmaak2").Range(Target.Address) = Target.Value
 Application.EnableEvents = True
 End If
End Sub

 

[ozzyozzy]

code werkt bedankt, transformatie houd tegen bij nee. alleen als ik dat verander naar ja gebeurd er niks. ik moet telkens per cell dubbel op klikken om te laten transformeren. is er hier een optie voor?

 

[HSV]

Er gebeurt inderdaad niets als je validatiecellen wijzigt.

De code begint pas als je iets wijzigt in de cellen c3:f5.