Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Kolom  (gelezen 3162 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Kolom
« Gepost op: 04 mei 2023, 14:12:10 »
Hoi,

Klein vraagje
Private Sub TextBox3_Change()
    With TextBox3
        If .Text = "-" Then
            .BackColor = vbCrimson
        Else
            .BackColor = vbGreen
        End If
    End With
End Sub

dit werkt perfect als het een Textbox is maar bestaat er ook een code als het een KolomA is ?

Alvast bedankt
Excel 365 NL

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Kolom
« Reactie #1 Gepost op: 05 mei 2023, 06:27:10 »
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: Kolom
« Reactie #2 Gepost op: 05 mei 2023, 06:53:31 »
@dizzl

dank jewel, maar dit zoek ik niet sorry
het gaat om een kolom in een userform

Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Kolom
« Reactie #3 Gepost op: 06 mei 2023, 11:59:40 »
Hallo Sunnybat,

kan je bovenstaande even beter uitleggen?

Een Combobox kan wel meerdere kolommen hebben (in een Userform)
Is het dat wat je bedoeld?

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: Kolom
« Reactie #4 Gepost op: 06 mei 2023, 12:43:53 »
@SoftAid

dat klopt

met de andere code werkt het wel op een textbox maar niet op een kolom ( raar )
mss moet de code anders zijn maar krijg het ook niet gevonden

Excel 365 NL

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Kolom
« Reactie #5 Gepost op: 07 mei 2023, 14:14:31 »
SunnyBat, wát is dan een kolom in een Userform??? Je laat mooie .jpg'tjes zien, maar niets wat ons opweg kan helpen.
______________________________

Groet, Leo

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: Kolom
« Reactie #6 Gepost op: 07 mei 2023, 14:51:28 »
@RedHead

in de userform staan kolomA en nog een paar
zodra 1 van die kolommen leeg is of een bepaalde teken heeft dan krijg die een kleur

ik heb een frm erbij gedaan dan kan je mss zien wat ik bedoel

Alvast super bedankt

Excel 365 NL

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Kolom
« Reactie #7 Gepost op: 07 mei 2023, 15:07:22 »
SunnyBat, op een Excel forum vinden de helpers het fijner om een Excel-bijlage te ontvangen ipv een paar plaatjes. Dat 1e helpt namelijk een stuk sneller de vraagsteller op weg. ;) Zet je bestandje hier dan ook even als bijlage.
Maar goed, je hebt het over "kolommen", maar die dingen op een formulier heten "tekstvelden". Dat je die tekstvelden de naam geeft van de kolom waar je ze waarschijnlijk in je sheet wilt wegschrijven, is best wel handig maar heeft verder niets met de sheet-kolommen te maken. Ik begrijp dus dat je de tekstvelden van kleur wilt laten veranderen als er een bepaalde waarde in zo'n veld wordt opgegeven? Dan is het wachten ff op je Excel bijlage.
______________________________

Groet, Leo

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: Kolom
« Reactie #8 Gepost op: 07 mei 2023, 15:30:09 »
@RedHead

hier de voorbeeld

even informatie weg gehaald anders is die te groot

Excel 365 NL

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Kolom
« Reactie #9 Gepost op: 07 mei 2023, 20:51:39 »
Hmmm... waarschijnlijk snap ik je niet helemaal, maar jouw stukje code kan je toch gewoon in je textbox_change events plakken?
Dit voor de textbox "KolomB"?
Private Sub KolomB_Change()
    With KolomB
        If .Text = "-" Then
            .BackColor = vbCrimson
        Else
            .BackColor = vbGreen
        End If
    End With
End Sub

Overigens nog even een tip voor je. De 64Bit versie van Excel gaat steeds algemener worden. Een 16Bit zal je bijna niet meer tegenkomen. Jouw code klapte dus op mijn laptop met een 64Bit versie. Ga dus even opzoek naar de afhandeling daarvoor zodat je met alle versie blijft werken.
______________________________

Groet, Leo

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: Kolom
« Reactie #10 Gepost op: 07 mei 2023, 21:46:23 »
@RedHead

nou snap er geen reet van, plak jou code erin en het werkt gewoon?

alleen moet er wel iets in de cel staan,als de cel leeg is blijft het wit,maar dat moet het een andere kleur zijn anders moet ik de lege cellen een waarde geven
en die versie excel ben ermeer bezig

alvast super bedankt

Excel 365 NL

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Kolom
« Reactie #11 Gepost op: 07 mei 2023, 22:00:15 »
SunnyBat, ik denk dat het slimmer is om je check op alle velden uit te voeren bij de knop Opslaan oid. Zo kan je ze in 1 procedure langslopen en controleren of je foute waardes ziet of dat die leeg is oid. En dat koppel je terug aan de gebruiker. Dat kan een stuk eenvoudiger zijn dan veld voor veld (dus NIET "cel"  ;)) deze uitvraging willen doen.

[EDIT] Hierbij een snel voorbeeldje van internet geplukt met code van hoe je dat doet (in dit geval worden de textboxen geleegd, maar jij moet daar jouw ding doen uiteraard)
Private Sub ClearFields_Click()

    Dim ctrl As Control      ' CREATE A CONTROL OBJECT.

    ' LOOP THROUGH EACH CONTROL, CHECK IF THE CONTROL IS A TEXTBOX.
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            ctrl.Value = ""      CLEAR THE VALUE.
        End If
    Next ctrl
End Sub
______________________________

Groet, Leo

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: Kolom
« Reactie #12 Gepost op: 07 mei 2023, 22:39:27 »
@RedHead

het gaat niet om een check en ja ik ga deze code zeker gebruik ( dank ervoor )
zodra ze iets opvragen en de kolom heeft een kleur dan weten hun die de lijst gebruiken ( ik dus niet )
dat er iets mis is met de registratie

pas alle Kolommen aan met u code, en alle cellen die niet gevuld zijn een waarde geven dan is me vraag opgelost
jammer dat " " of "" geen kleur kan geven volgens mijn is dat een cel die empty of leeg is
maar nogmaals super bedankt _/-\o_
Excel 365 NL

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Kolom
« Reactie #13 Gepost op: 11 mei 2023, 03:00:20 »
Zoals ik het begrijp ben je op zoek naar een manier om visueel lege velden in een formulier te benadrukken zodat ze opvallen.

Heb even met je formulier bewerken gespeeld dus test het even uit.

Open het formulier en typ een waarde in de combobox om het Change-event te triggeren.

Je zal zien dat de lege velden groen gekleurd worden zodat ze opvallen. Van zodra je daar een waarde invult wordt de achtergrond

automatisch terug wit.

Voor het Change-event van de TextBoxen heb ik een Klassemodule toegevoegd omdat je anders dezelfde code 33X moet herhalen.

Bekijk het eens en laat maar iets weten.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

 


www.combell.com