Code Aanpassen Werkt Niet

Status
Niet open voor verdere reacties.
Userform show werkt niet meer als ik op een cel in kolom b klik

Daarnaast werkt het kleuren van de onderste regel ook ineens niet meer, als bed afgekeurd is dat hij rood moet worden

Snap niet wat er nu ineens allemaal fout gaat :confused::confused:
 

Bijlagen

  • ONDERHOUD V16220.1 (laatste update 16_02_2020).xlsb
    733,7 KB · Weergaven: 37
Userform show werkt niet meer als ik op een cel in kolom b klik
Klik om te vergroten...
Spijtig genoeg kom ik er niet achter waarom het opeens niet meer werkt.:(
Als ik de regel in userform_initialize blokkeer opent de form wel. Wachten op de specialist:d
2e vraag moet ik nog even naar kijken.
 
Daarnaast werkt het kleuren van de onderste regel ook ineens niet meer, als bed afgekeurd is dat hij rood moet worden
Klik om te vergroten...
Bedoel je hiermee het kleuren van combobox1?
En in welk form vind ik de code.
 
Ja klopt, deze mooie optie had jij voor mij ingebouwd.

Deze staat in

Private Sub CMB_01_Click()

Maar nu ik de regel in userform_initialize blokkeer van Frm_Status zoals jij aangaf werkt dit ineens ook weer

Heel vaag allemaal:shocked::confused:
 
verander:
Code: 
If .[C58].Value = "Bed is nog niet goedgekeurd  en wacht op reparatie/oplossing" Then
in
Code: 
If .[C58].Value = sheets("Data").range("H2").value Then
En als je goed kijkt zie je waarom het niet werkte.
Je hebt nml. de tekst in H2 gewijzigd.

Misschien nog als extra toevoeging:
Code: 
Private Sub ComboBox1_Change()
With ComboBox1
    If .Value = Sheets("Data").Range("H2").Value Then
        .BackColor = vbRed
    Else
        .BackColor = vbGreen
    End If
End With
End Sub
 
Dat is vreemd want ik heb de text bij mijn weten wel gewijzigd :eek:

Zal straks eens goed kijken, wederom bedankt voor je snelle oplossing
 
Bedankt voor onderstaande code :thumb: maakt het geheel weer een stuk duidelijker.

Hoe krijg ik hem dat als er niks is ingevuld het veld gewoon wit is en pas kleurt als een keuze word gemaakt? Heb al wat dingen geprobeerd maar blijkbaar werkte dat niet:shocked:

Misschien denk ik gewoon weer te moeilijk

Code: 
Private Sub ComboBox1_Change()
With ComboBox1
    If .Value = Sheets("Data").Range("H2").Value Then
        .BackColor = vbRed
    Else
        .BackColor = vbGreen
    End If
End With
End Sub
 
voeg rode gedeelte toe in de knoppen afsluiten en opslaan.
Code: 
Me.Hide
For i = 8 To 10
  Me("TextBox" & i) = ""
Next i

ComboBox1 = ""
TextBox19 = ""
[COLOR="#FF0000"]ComboBox1.BackColor = vbWhite[/COLOR]
 
Dat bedoel ik dus, zo simpel kan het zijn....:eek::eek::eek::eek:

Ik ga me nu in een hoekje zitten schamen
 
Nog even over de Frm_status
Heel vreemd dat de vraag in #142 niet werkt met het instellen van de Frm_Status.Top=Activecell.Top + 60
Instellen van .Left werkt wel.
 
Userform loopt vast

Als ik in kolom b op een cel klik komt automatisch Frm_Status tevoorschijn,

nadat ik onderstaande code heb toegevoegd om de userform op hoogte van de geselcteerde cel te laten verschijnen werkt het ineens niet meer.

Het werkt wel op de eerste paar cellen, maar als ik verder op het blad een cel aanklik gebeurt er niets ook op de eerste cellen gebeurt er dan niks meer

Ik zie niet wat er fout gaat en waar er codes botsen met elkaar

Code: 
Private Sub userform_initialize()
Me.Top = ActiveCell.Top + 60 'waarde eventueel aanpassen
End Sub
 

Bijlagen

  • ONDERHOUD V16220.1 (laatste update 16_02_2020).xlsb
    721,2 KB · Weergaven: 42
Laatst bewerkt:
Wat een manier van reageren, ik dacht dat men hier was om elkaar te helpen.

Ben vandaag heel de dag bezig geweest om te achterhalen waar de fout kan zitten, dus begin niet over geen initiatief tonen.

Omdat ik en mijn geweldige hulp Albert in dit alles er even niet uitkomen, dacht ik dat dit even wat handiger was.

Dit is de laatste drempel, daarna zou het bestand klaar moeten zijn.

Ik wil een mooie donatie aan het forum doen voor alle hulp, maar ga dan niet zo beginnen
 
Ik krijg een melding dat het bestand is beschadigd.
 
je gebruikt titel blokkering, als je naar beneden scrolt en je laad de form verdwijnt deze naar onderen ver buiten beeld en kun je deze niet afsluiten... enzo ook geen nieuwe laden.
het simpelste wat je kunt doen zou kunnen zijn het getal 415 als .Top gebruiken dan zit je toch elke keer aardig in de buurt en pas dit getal naar wens aan
Code: 
Private Sub userform_initialize()
    With Me
        .StartUpPosition = 0
        .Top = 415
        .Left = ActiveCell.Offset(0, 1).Left
    End With
End Sub
 
voor de Frm_Status volgorde van code wijzigen in:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, ListObjects(1).ListColumns(1).DataBodyRange) Is Nothing Then
    Frm_Status.Show
End If

If Application.CutCopyMode = False Then
  Application.Calculate
End If
 
End Sub
Wel nog zelf even kijken naar de userform_initialize
 
2 topics samengevoegd om enigzins duidelijkheid te verschaffen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan