Pagina 1 van 2 12 LaatsteLaatste
Weergegeven resultaten: 1 t/m 10 van 19
  1. #1
    Gevorderd   peterus's schermafbeelding
    Geregistreerd
    12 May 2005
    Berichten
    300
    Bedankjes
    483
    Bedankt
    180 keer in 153 posts

    Excel: Visual basic en opvulkleuren toekennen,wijzigen.

    Hallo, leden

    Eerst en vooral ik ben een leek wat betreft VB

    Ik wil graag het volgende proberen.
    wanneer je een "naam" invult dan krijgen bepaalde cellen een andere opvulkleur(rood).

    For Each c In Range("B4:B" & Range("B65536").End(xlUp).Row)
    If c = "naam" Then
    Range("C6,E4,D4,D7,F6").Interior.ColorIndex = 3

    ElseIf c = "andere naam2" Then
    Range("C4,C5,D5,F4").Interior.ColorIndex = 3

    ElseIf c = "naam3" Then
    Range("F4").Interior.ColorIndex = 3

    End if

    Tot daar werkt het, nu wil ik echter wanneer ik op één van deze cellen klik dat de opvulkleur verandert(geel), echter moet dit blijvend zijn , dus wanneer ik nogmaals een "naam" ingeef" zou er GEEN mogelijkheid mogen zijn om de cel ten eerste een tweede maal aan te klikken en de opvulkleur zou (geel) moeten blijven.

    Ik hoop dat dit een beetje duidelijk is?

    Peterus
    Peterus

  2. #2
    Up-to-date   bucky47's schermafbeelding
    Geregistreerd
    30 October 2014
    Locatie
    Ergens in de polder van Zeeuws-Vlaanderen
    Berichten
    18
    Bedankjes
    0
    Bedankt
    5 keer in 5 posts
    Hallo Peterus,

    Ik ben ook geen VBA expert, maar ik zie wel dat je niet de hele code hebt gepost.
    Ik krijg steeds foutmeldingen.......dus graag ff de eerste regel van je code dus "Private sub (...........)"
    Laat niet als dank.......maar laat ff weten of de geboden oplossing je heeft geholpen of niet.

    bucky47

  3. De volgende gebruiker bedankt bucky47 voor deze nuttige post:

    peterus ( 2 November 2014)

  4. #3
    Gevorderd   peterus's schermafbeelding
    Geregistreerd
    12 May 2005
    Berichten
    300
    Bedankjes
    483
    Bedankt
    180 keer in 153 posts
    Hier de Sub

    Sub CommandButton1_Click()
    For Each c In Range("B4:B" & Range("B65536").End(xlUp).Row)
    If c = "naam" Then
    Range("C6,E4,D4,D7,F6").Interior.ColorIndex = 3

    ElseIf c = "andere naam2" Then
    Range("C4,C5,D5,F4").Interior.ColorIndex = 3

    ElseIf c = "naam3" Then
    Range("F4").Interior.ColorIndex = 3

    End if
    Next
    End Sub

    Dit is het script
    Peterus

  5. #4
    Up-to-date   bucky47's schermafbeelding
    Geregistreerd
    30 October 2014
    Locatie
    Ergens in de polder van Zeeuws-Vlaanderen
    Berichten
    18
    Bedankjes
    0
    Bedankt
    5 keer in 5 posts
    Peterus,

    Met deze code worden de cellen Geel, door er op te dubbelklikken. Hoe de zaak vast te zetten wordt weer een ander verhaal, maar ik ga op zoek.

    Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C4:C6,D4,D5,E4,D7,F4,F6")) Is Nothing Then
    ActiveCell.Interior.ColorIndex = 27
    End If
    End Sub
    Laat niet als dank.......maar laat ff weten of de geboden oplossing je heeft geholpen of niet.

    bucky47

  6. De volgende gebruiker bedankt bucky47 voor deze nuttige post:

    peterus ( 2 November 2014)

  7. #5
    Gevorderd   peterus's schermafbeelding
    Geregistreerd
    12 May 2005
    Berichten
    300
    Bedankjes
    483
    Bedankt
    180 keer in 153 posts
    Bedankt bucky de formule werkt PERFECT.
    De eerste stap is gezet , als ik nu nog een vb script kan vinden dat wanneer een cel opvulkleur geel is deze niet mag gewijzigd worden dan is de cirkel compleet.

    Alvast bedankt voor het meedenken

    Peterus
    Peterus

  8. #6
    Up-to-date   bucky47's schermafbeelding
    Geregistreerd
    30 October 2014
    Locatie
    Ergens in de polder van Zeeuws-Vlaanderen
    Berichten
    18
    Bedankjes
    0
    Bedankt
    5 keer in 5 posts
    Ik ben bang dat ik hier niet uit ga komen. Maar miss. kun je met je vraag naar een ander forum, waar je een bijlage kunt posten.
    Ik zou dan een voorbeeld bestandje maken met de codes die je nu hebt. Omdat er nu twee codes gebruikt worden krijg je dit niet voorelkaar, misschien kunnen experts op VBA gebied een oplossing vinden. Je moet er dan wel bij vermelden wanneer en hoe de gele cellen weer gereset worden. Ik zou als ik jou was zou ik hier eens mijn ligt opsteken, vergeet niet te vermelden dat je de vraag hier ook hebt gesteld, dit voorkomt een hoop ergernis bij de helpers op het andere forum.
    Laat niet als dank.......maar laat ff weten of de geboden oplossing je heeft geholpen of niet.

    bucky47

  9. #7
    Up-to-date   bucky47's schermafbeelding
    Geregistreerd
    30 October 2014
    Locatie
    Ergens in de polder van Zeeuws-Vlaanderen
    Berichten
    18
    Bedankjes
    0
    Bedankt
    5 keer in 5 posts
    Peterus,

    Voor de zekerheid......klik op hier in bovenstaande post.
    Laat niet als dank.......maar laat ff weten of de geboden oplossing je heeft geholpen of niet.

    bucky47

  10. De volgende gebruiker bedankt bucky47 voor deze nuttige post:

    peterus ( 3 November 2014)

  11. #8
    Gevorderd   peterus's schermafbeelding
    Geregistreerd
    12 May 2005
    Berichten
    300
    Bedankjes
    483
    Bedankt
    180 keer in 153 posts
    Om het "geel" te behouden had ik gedacht om twee voorwaarden toe te kennen (als dit al lukt)

    Vb: if c = "naam" AND interior.color=2 (wit) Then
    Range("C6,E4,D4,D7,F6").Interior.ColorIndex = 3

    Ik krijg het enkel niet in de juiste formule :(
    Peterus

  12. #9
    Up-to-date   bucky47's schermafbeelding
    Geregistreerd
    30 October 2014
    Locatie
    Ergens in de polder van Zeeuws-Vlaanderen
    Berichten
    18
    Bedankjes
    0
    Bedankt
    5 keer in 5 posts
    Je zegt hier: Als c = "naam" (c is kolom B) En de Cel kleur index is 2 (van kolom B dus)
    Dan selectie("C6,E4,D4,D7,F6").Cel Kleur index = 3

    Hetgeen je wilt bekomen is:
    Dat wanneer er in de selectie ("C6,E4,D4,D7,F6") één of meer cellen de kleur index 2 heeft, dat alléén die cellen mogen meedoen.
    Ik ben bang dat ik je hier niet mee kan helpen.
    Laat niet als dank.......maar laat ff weten of de geboden oplossing je heeft geholpen of niet.

    bucky47

  13. #10
    Gevorderd   peterus's schermafbeelding
    Geregistreerd
    12 May 2005
    Berichten
    300
    Bedankjes
    483
    Bedankt
    180 keer in 153 posts
    Dat bedoel ik , ik zal nog enkele dagen mijn hoofd breken
    Peterus

Discussie informatie

Users Browsing this Thread

Momenteel bekijken 1 gebruikers deze discussie. (0 leden en 1 gasten)

Soortgelijke discussies

  1. Puntensysteem in Excell Visual Basic => PHP
    Door eventure in forum Webdevelopment & Programming
    Reacties: 3
    Laatste bericht: 3 May 2010, 16:14
  2. Visual Basic in Excel
    Door ultddave in forum Office
    Reacties: 4
    Laatste bericht: 23 October 2008, 12:58
  3. link naar site met visual basic
    Door brۍht in forum Overige software
    Reacties: 9
    Laatste bericht: 23 October 2005, 17:59

Favorieten/bladwijzers

Favorieten/bladwijzers

Regels voor berichten

  • Je mag geen nieuwe discussies starten
  • Je mag niet reageren op berichten
  • Je mag geen bijlagen versturen
  • Je mag niet je berichten bewerken
  •