Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen.

Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!


Rik123

Cel laten kleuren door dubbel te klikken.

Aanbevolen berichten

Beste lui,

 

Ik een ander topic heb ik deels een oplossing gevonden voor hetgeen wat ik in Excel wil. Namelijk dat je dubbel kan klikken en de cel automatisch in groen veranderd.

De code hiervoor is de onderstaande.

 

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean) If target.Interior.ColorIndex = xlNone Then target.Interior.ColorIndex = 43 ElseIf target.Interior.ColorIndex = 43 Then target.Interior.ColorIndex = xlNone End If End Sub

 

Het probleem wat zich voortdoet is dat dit alleen werkt wanneer een cel geen kleur heeft. Weet iemand hoe je deze code kan veranderen zodat je ook een gekleurde cel kan aanpassen naar groen met dubbelklik?

Deel dit bericht


Link naar bericht
Delen op andere sites

welkom op het forum. Mad ik er u attent op maken dat de snelste oplossingen gevonden worden aan de hand van een voorbeeld bestand(je)?

Deel dit bericht


Link naar bericht
Delen op andere sites
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
 If target.Interior.ColorIndex = xlNone Then
        target.Interior.ColorIndex = 43
 ElseIf target.Interior.ColorIndex = 43 Then
        target.Interior.ColorIndex = xlNone
 End If
End Sub

Dit werkt bij mij.

Deel dit bericht


Link naar bericht
Delen op andere sites

Geplaatst: (aangepast)

Ik denk dat deze beter aansluit bij de vraagsteller zijn doel

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    With Target.Interior        .Pattern = xlNone        .Pattern = xlSolid        .Color = 65535    End WithEnd Sub


 

aangepast door emielDS

Deel dit bericht


Link naar bericht
Delen op andere sites
  • Topicstarter
  •    0

    Beste bedankt voor de reactie,

     

    Ik heb een document bijgevoegd met een voorbeeld. De code werkt met een lege cel

    Als je echter de blauwe cel probeert te kleuren met dubbelklikt werkt dit niet. Ik ben benieuwd of jullie dat ook werkend kunnen krijgen bedankt!

     

    Mvg,

     

    Rik voorbeeld forum.xlsmvoorbeeld forum.xlsm

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    Geplaatst: (aangepast)
    Quote

    Ik ben benieuwd of jullie dat ook werkend kunnen krijgen

    Dat is het probleem niet.

    Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
     If target.Interior.ColorIndex = xlNone Or target.Interior.Color = RGB(149, 179, 215) Then
            target.Interior.ColorIndex = 43
     ElseIf target.Interior.ColorIndex = 43 Then
            target.Interior.ColorIndex = xlNone
     End If
    End Sub

    Ik denk dat het tijd is om een gelijkend voorbeeldje te posten waaruit duidelijk blijkt wat je wenst te bereiken.

    aangepast door dotchiejack

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    Probeer deze eens.

     

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
     If Target.Interior.ColorIndex = 43 Then
            Target.Interior.ColorIndex = xlNone
     Else: Target.Interior.ColorIndex = 43
     End If
      
    End Sub

    Als de cel groen is, wordt ze op blanco gezet, in alle andere gevallen wordt de cel groen

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
  • Topicstarter
  •    0
    Op 11/5/2019 om 11:07, kweezie wabbit zei:

    Probeer deze eens.

     

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
     If Target.Interior.ColorIndex = 43 Then
            Target.Interior.ColorIndex = xlNone
     Else: Target.Interior.ColorIndex = 43
     End If
      
    End Sub

    Als de cel groen is, wordt ze op blanco gezet, in alle andere gevallen wordt de cel groen

     

    Toppie het werkt op deze manier voor 95% wat ik wil.. Op het perfect te maken zou het volgende moeten gebeuren. Als ik dubbelklik op een reeds gekleurde cel (stel blauw) wordt deze groen. Klik ik erna nogmaals dubbel wordt de cel weer blanco. Kan het ook zo dat de tweede keer dubbelklik de ''oude kleur'' van de cel (blauw) weer verschijnt. Ben benieuwd. Mvg, Rik

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    • Welkom op PC Helpforum

    • Leden statistieken

      • Aantal leden
        39.645
      • Meeste online
        1.765

      Nieuwste lid
      Gerald Bostock
      Registratiedatum
    • Gerelateerde inhoud

      • Door Rik123
        Beste leden,
         
        Voor mijn werk ben ik een Excel bestand/dashboard aan het maken. Momenteel wordt van alles handmatig een rapportage gemaakt. Omdat ik dacht dit kan handiger ben ik gaan knutselen.
        Ik ben erg ver gekomen en tevreden met mijn resultaat.
         
        Nu kan het altijd beter. Het dashboard werkt namelijk voor een hele maand. In de ideale wereld kan ik zelf een datum invullen en het dashboard laat dan alleen de data zien van die datum. Of nog beter 2 datums en dashboard laat de data tussen deze twee datums zien.
         
        Het gaat in het bestand om de datum in cel A2 >
         
        Ik ben benieuwd of dit mogelijk is of dat er andere suggesties zijn.
        Alvast bedankt voor de moeite!
         
        (PS ik heb het bestand dusdanig aangepast zodat geen privé gegeven erin staan..)
        Voorbeeld bestand voor forumhelp.xlsx
      • Door bennieboef
        Hallo Allemaal,

        Mijn macro zoekt in een windows map op de volgende manier : "prd." + <cell value> + ".dld"
        Het probleem is dat er niet wordt gezocht in inderliggende bmappen

        Hier de macro :

        Option Explicit

        Sub Find_DLD()
        Dim AckTime As Integer, InfoBox As Object
        Dim iRow As Integer ' ROW COUNTER.
        Dim sSourcePath As String, currentpath As String
        Dim sDestinationPath As String
        Dim sFileType As String
        Dim sFileType1 As String

        Dim bContinue As Boolean

        bContinue = True
        iRow = 2

        ' THE SOURCE AND DESTINATION FOLDER WITH PATH.
        sSourcePath = "S:"
        sFileType = ".dld" ' TRY WITH OTHER FILE TYPES LIKE ".pdf".
        sFileType1 = "prd."


        ' LOOP THROUGH COLUMN "B" TO PICK THE FILES.
        While bContinue

        If Len(Range("E" & CStr(iRow)).Value) = 0 Then ' DO NOTHING IF THE COLUMN IS BLANK.
        Set InfoBox = CreateObject("WScript.Shell")
        AckTime = 1
        Select Case InfoBox.Popup("Klaar.", _
        AckTime, "Hieperdepiep", 0)
        Case 1, -1
        Exit Sub
        End Select
        Else
        ' CHECK IF FILES EXISTS.

        If Len(Dir(sSourcePath & sFileType1 & Range("E" & CStr(iRow)).Value & sFileType)) = 0 Then
        Range("F" & CStr(iRow)).Value = "Geen kantprogramma"
        Range("F" & CStr(iRow)).Font.Bold = True
        Else
        Range("F" & CStr(iRow)).Value = "Kantprogramma bestaat!"
        Range("F" & CStr(iRow)).Font.Bold = False

        End If
        End If
        iRow = iRow + 1 ' INCREMENT ROW COUNTER.
        Wend
        End Sub

        Het zou fantastisch zijn al iemand deze code zo kan aanpassen dat de macro ook in de onderliggende mappen van s:\ gaat zoeken.

        Alvast bedankt voor jullie hulp.
         
        Bijlage :  bestand met macro.
        Controle dxf + kantprogramma.xlsm
      • Door Benjaplus
        Hoi hoi,
         
        Ik ben bezig met het opstellen van een factuur in Excel alleen heb ik nog niet al te veel ervaring met Excel en ik kan niks vinden over mijn probleem op internet.
         
        Mijn probleem:
        Ik wil deze zin onderaan mijn factuur: U wordt vriendelijk verzocht het bedrag van (Bedrag uit H36(volledig uitgeschreven in euros)) voor (VANDAAG+14) over te maken op NL00 RABO 0123 4567 89 t.n.v. Naam onder melding van factuurnummer: (nummer uit A14)
         
        Alle ( ) moeten formules worden
         
        Dingen die vet gedrukt zijn moet dat ook zijn in excel
         
        Ik kom zelf tot: ="U wordt vriendelijk verzocht het bedrag van €"&H36&" voor "&VANDAAG()+14&" over te maken naar NL00 RABO 0123 4567 89 t.n.v. Naam onder melding van factuurnummer: "&A14&""
         
        Dan krijg ik: U wordt vriendelijk verzocht het bedrag van €254.1 voor 43775 over te maken naar NL00 RABO 0123 4567 89 t.n.v. Naam onder melding van factuurnummer: 2001
         
        €254.1 moet €254.10 worden (komt door getalnotaties)
        43775 moet 06-11-19 worden (komt door getalnotaties)
        en de andere moet vet gedrukt worden
         
        Het is veel gevraagd, ik weet het, maar ik kom er niet uit. Misschien is het gewoon niet mogelijk, laat het maar weten.
         
        Alvast enorm bedankt!
      • Door Kadoim
        Is er een manier in Excel om automatisch te laten berekenen welke kolommen de minste overlap hebben?
        Ik heb een draaitabel (mijn eerste...) gemaakt van de inschrijvingen in bepaalde opleidingen. De opleidingen gaan altijd door op maandagnamiddag.
        Door het toevoegen van slicers kan ik één voor één bekijken welke opleidingen géén overlappende inschrijvers hebben, maar voor het opmaken van de opleidingskalender, zou ik ook graag automatisch te zien krijgen welke opleidingen de minste overlappers hebben - aangezien het niet altijd haalbaar is om de opleidingen te plannen zonder enige overlap.
         
        Ik heb een bestandje toegevoegd als voorbeeld.
        Vertaald naar dat voorbeeld zou ik dus graag weten of het mogelijk is om op een snelle, geautomatiseerde manier te weten te komen welke twee kolommen de minste overlappende 1'tjes hebben, zodat ik weet dat ik die opleidingen eventueel op eenzelfde dag kan laten doorgaan.
         
        Alvast bedankt voor de hulp!
        Voorbeeld voor pc helpforum draaitabel.xlsx
      • Door lv
        Hallo,
         
        Ik heb een Excelbestand met meerdere kolommen, in de eerste kolom staat het aantal, in de tweede een artikelnummer, in de andere kolommen staat informatie over dit artikelnummer.
        Ik ben op zoek naar een macro waarbij de dubbelen uit kolom 2 (Artikelnummers) gevonden worden, de aantallen in kolom 1 van deze overeenkomende artikelnummers worden opgeteld en dan op 1 na, de dubbele artikelnummers verwijderd worden.
         
        In mijn tabel zitten afbeeldingen en de volgorde is essentieel, waardoor een draaitabel niet geschikt is (voor zover ik weet). Ik ben zelf niet zo thuis in de macro's en heb nog geen goede macro kunnen ontdekken. 

        Iemand die mij hierbij kan helpen?

         
    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×
    ×
    • Nieuwe aanmaken...