Kleurcode toevoegen in bestaande vba code

[golfboy03]

Hallo allemaal graag had ik wat hulp met de volgende probleem. Bij deze code wil ik graag bij "PDF" volgende inhoud cellen in het zwart hebben en bij "Printbaar " wil ik ze terug in het wit zetten. Is het mogelijk hierin een kleur code bij te zetten met de volgende cellen G6,G7,G8,G9,G10,G11,G12,G13,G14.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
Resimyildirim.Visible = True
Rows("56:62").EntireRow.Hidden = False
ToggleButton1.Caption = "PDF"

Else
Resimyildirim.Visible = False
Rows("56:62").EntireRow.Hidden = True
ToggleButton1.Caption = "Printbaar"
End If
End Sub

 

[golfboy03]

niemand die hulp kan aanbieden

 

[VenA]

En je verwacht dat het binnen een uurtje voor je opgelost wordt? Je kan eens beginnen met een voorbeeldje plaatsen en een heldere vraag stellen. Scheelt vaak wat in de doorlooptijd van een vraag

 

[HSV]

range("g6:g14").interior.colorindex = 1 'zwart
else
 range("g6:g14").interior.colorindex = xlnone    '= geen kleur;  2 = wit

Beetje uitgewerkt ziet het er zo uit.

Private Sub ToggleButton1_Click()
With ToggleButton1
  Resimyildirim.Visible = .Value
  Rows("56:62").EntireRow.Hidden = .Value
  ToggleButton1.Caption = IIf(.Value = True, "Printbaar", "PDF")
  Range("g6:g14").Interior.ColorIndex = IIf(.Value, xlNone, 1)
  End With
End Sub

 

[gast0660]

Hallo,
Gezien jij geen passend vbtje hebt gepost kan ik het in uw code niet testen maar bij deze
Volgende code

Select Case Range("G6:G14").Interior.ColorIndex
    Case xlNone
        Range("G6:G14").Interior.ColorIndex = 1
    Case Else
        Range("G6:G14").Interior.ColorIndex = xlNone
    End Select

 

[golfboy03]

Beste allemaal probleem met de kleuren is opgelost met de onderstaande code. Dank u wel allemaal. Nu heb ik de probleemje dat alle niet tegelijk in de wisselknop gaan verbergen. Dus meer aan en uit knop dat ik wil maken eigenlijk.
Heb er een vb bestandje toegevoegd. Graag even te checken.

Private Sub ToggleButton1_Click()
With ToggleButton1
  testafbeelding.Visible = .Value
  Rows("20:24").EntireRow.Hidden = .Value
  ToggleButton1.Caption = IIf(.Value = True, "PDF", "Printbaar")
  Range("A11:A14").Font.ColorIndex = IIf(.Value, 2, xlAutomatic)
  End With
End Sub

Bekijk bijlage vb_bestandje.xlsm

 

[HSV]

Ik heb het bestand even gecheckt, maar wat moet er veranderd worden?

Private Sub ToggleButton1_Click()
With ToggleButton1
  testafbeelding.Visible = .Value
  Rows("20:24").Hidden = .Value
  .Caption = IIf(.Value, "PDF", "Printbaar")
  Range("A11:A14").Font.ColorIndex = IIf(.Value, 2, xlAutomatic)
  End With
End Sub

 

[golfboy03]

De afbeelding en de rest moet tegelijk verbergen. Nadien terug zichtbaar bij het drukken van wisselknop.

 

[HSV]

Zo?

testafbeelding.Visible = Not .Value

 

[golfboy03]

Moet het maar weten he. Nogmaals bedankt. Na het beveiligen van blad krijg ik een debug scherm en voert het macro niet uit. Dit met het verbergen van rijen denk ik. Hoe kan ik dit dan omzeilen.

Private Sub ToggleButton1_Click()
With ToggleButton1
  testafbeelding.Visible = Not .Value
  [COLOR="#FF0000"]Rows("20:24").EntireRow.Hidden = .Value[/COLOR]
  ToggleButton1.Caption = IIf(.Value = True, "PDF", "Printbaar")
  Range("A11:A14").Font.ColorIndex = IIf(.Value, 2, xlAutomatic)
  End With
End Sub

 

[HSV]

Private Sub ToggleButton1_Click()
Me.Unprotect
With ToggleButton1
  testafbeelding.Visible = Not .Value
  Rows("20:24").Hidden = .Value
  .Caption = IIf(.Value, "PDF", "Printbaar")
  Range("A11:A14").Font.ColorIndex = IIf(.Value, 2, xlAutomatic)
  End With
 Me.Protect
End Sub

Is het met een wachtwoord?, dan....

Private Sub ToggleButton1_Click()
Me.Unprotect "wachtwoord"
With ToggleButton1
  testafbeelding.Visible = Not .Value
  Rows("20:24").Hidden = .Value
  .Caption = IIf(.Value, "PDF", "Printbaar")
  Range("A11:A14").Font.ColorIndex = IIf(.Value, 2, xlAutomatic)
  End With
 Me.Protect "wachtwoord"
End Sub

Ps: De 'entirerow' is overbodig, daar je met Rows("20:24") de gehele rij al te pakken hebt.

 

[golfboy03]

Beste Hsv en de rest natuurlijk. Ben dankbaar voor jullie hulp, alles werkt naar wens. Ik ga het opgelost opzetten.

 

[HSV]

Graag gedaan.