Fout 1004

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen

Ik heb een knop gemaakt dat alle velden met "WD/WN" oplichten.
Deze knop staat op elk tabblad (elk tabblad is een week)

Nu werkt deze knop tot een bepaald tabblad (week) en de tabbladen daarna krijg ik onderstaande melding?

Op wat slaat deze melding terug?

Bedankt!

Fout 1004 tijdens uitvoering:
Eigenschap Buttons van klasse Worksheet kan niet worden opgehaald.
Klik om te vergroten...
 
Dat betekent dat een aangesproken object niet kon worden gevonden/gebruikt.
 
In dit geval is het "knop 59", als ik deze telkens kopieer blijft dit dan knop 59?

Code: 
sub OPVALLEN_kleuren_EVEN()

'Deze wordt gebruikt

Application.ScreenUpdating = False

'RGB(255, 255, 102) = GEEL
'RGB(146, 208, 80) = GROEN
'RGB(191, 191, 191) = GRIJS

ActiveSheet.Buttons("Knop 59").Caption = IIf(ActiveSheet.Buttons("Knop 59").Caption = "TERUG", "WD/WN", "TERUG")

'ActiveSheet.Cells(3, 2).Select

' EVEN WEEK
'If ActiveSheet.Cells(3, 2).Value Mod 2 = 0 Then

'GRIJS vroege en late ploeg
Dim cl As Range

For Each cl In Range("E16:AB26,E40:AB49")
    Select Case UCase(cl.Value)
    Case "WD", "WN"
        If cl.Font.Bold Then cl.Font.Bold = False Else cl.Font.Bold = True
        If cl.Interior.Color = RGB(255, 255, 102) Then cl.Interior.Color = RGB(191, 191, 191) Else cl.Interior.Color = RGB(255, 255, 102)
    End Select
Next

'GROEN vroege en late ploeg
Dim cl2 As Range
    
For Each cl2 In Range("E28:AB35,E51:AB58")
    Select Case UCase(cl2.Value)
    Case "WD", "WN"
        If cl2.Font.Bold Then cl2.Font.Bold = False Else cl2.Font.Bold = True
        If cl2.Interior.Color = RGB(255, 255, 102) Then cl2.Interior.Color = RGB(146, 208, 80) Else cl2.Interior.Color = RGB(255, 255, 102)
    End Select
Next

'End If

Application.ScreenUpdating = True

End Sub
 
Als je die kopieert krijgt de kopie uiteraard een andere naam.
 
Dus zit de fout waarschijnlijk hierin...

Code: 
ActiveSheet.Buttons("Knop 59").Caption = IIf(ActiveSheet.Buttons("Knop 59").Caption = "TERUG", "WD/WN", "TERUG")

Kan ik "knop 59" variabel ofzo maken dan? Of hoe los ik dit het beste op?
 
Dat kan:
Code: 
Knop = 59
ActiveSheet.Buttons("Knop " & Knop).Caption = IIf(ActiveSheet.Buttons("Knop " & Knop).Caption = "TERUG", "WD/WN", "TERUG")
 
Gebruik ToggleButtons of checkboxes, die zijn daarvoor gemaakt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan