Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Pagina 1 van 2 1 2 LaatsteLaatste
Weergeven resultaten 1 tot 20 van 26

Onderwerp: rij oplichten

  1. #1
    Senior Member
    Geregistreerd
    19 januari 2013
    Vraag is opgelost

    rij oplichten

    is er een vba code die, als ik op een cel sta de gehele rij een lichte kleur word bij elke verspringing van de cel

    MVG mr0007
    Attached Files Attached Files

  2. #2
    Kijk bij de link of je het kunt gebruiken.
    https://www.helpmij.nl/forum/showthr...en#post6093477
    Met vriendelijke groet,
    Vergeet niet de vraag als opgelost te zetten als je tevreden ben.

    EA

  3. #3
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Volgens mij is daar veel over te vinden in de zoekfunctie.
    Maar goed, nog maar een keer.
    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Cells.Interior.Color = xlNone
     Rows(Target.Row).Interior.ColorIndex = 36
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    Senior Member
    Geregistreerd
    19 januari 2013
    dank je wel, werkt wel, alleen de kleuren die ik er in heb zitten verdwijnen, door de link die je er bij heb gedaan vindt ik een bestandje van VanA die werkt met kleuren behoeden, ik moet het alleen nog overzetten in mijn
    bestand die ik werkelijk gebruik, lukt nog niet, ga vanavond weer verder, dus ik zet het nog niet als opgelost,

    dank je wel voor de hulp
    MVG mr0007

  5. #5
    Junior Member RogerReijkers's avatar
    Geregistreerd
    4 november 2015
    Locatie
    Huizen
    Afstand tot server
    ±73 km
    Ik gebruik deze:
    [CODEPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cl As Range, x As Integer, y As Integer
    For Each cl In [B3:J154]
    If cl.Interior.ColorIndex = 20 Then
    cl.Interior.ColorIndex = -4142
    End If
    Next cl
    y = ActiveCell.Row
    If y < 3 Or y > 154 Then Exit Sub
    For x = 3 To 10
    If Cells(y, x).Interior.ColorIndex = -4142 Then
    Cells(y, x).Interior.ColorIndex = 20
    End If
    Next x
    End Sub][/CODE]
    M.v.g. Roger

  6. #6
    Junior Member RogerReijkers's avatar
    Geregistreerd
    4 november 2015
    Locatie
    Huizen
    Afstand tot server
    ±73 km
    Herstel:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cl As Range, x As Integer, y As Integer
    For Each cl In [B3:J154]
    If cl.Interior.ColorIndex = 20 Then
    cl.Interior.ColorIndex = -4142
    End If
    Next cl
    y = ActiveCell.Row
    If y < 3 Or y > 154 Then Exit Sub
    For x = 3 To 10
    If Cells(y, x).Interior.ColorIndex = -4142 Then
    Cells(y, x).Interior.ColorIndex = 20
    End If
    Next x
    End Sub
    M.v.g. Roger

  7. #7
    Senior Member
    Geregistreerd
    19 januari 2013
    werkt wel maar hij is kort ik heb de 10 1000 van gemaakt maar de blauw blijft dan staan
    en hoe kan ik dat het dan ook de eerste cel pakt hij pakt nu cel 3


    MVG mr0007


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cl As Range, x As Integer, y As Integer
    For Each cl In [B3:J154]
    If cl.Interior.ColorIndex = 20 Then
    cl.Interior.ColorIndex = -4142
    End If
    Next cl
    y = ActiveCell.Row
    If y < 3 Or y > 154 Then Exit Sub
    For x = 3 To 1000
    If Cells(y, x).Interior.ColorIndex = -4142 Then
    Cells(y, x).Interior.ColorIndex = 20
    End If
    Next x
    End Sub

  8. #8
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    Hier een andere mogelijkheid; een combinatie van VBA en VO
    Attached Files Attached Files
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het xls voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  9. #9
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Code:
    =RIJ()=CEL("row")
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  10. #10
    Senior Member
    Geregistreerd
    19 januari 2013
    =RIJ()=CEL("row") er tussen gedaan doet niets meer wat doe ik fout

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cl As Range, x As Integer, y As Integer
    For Each cl In [B3:J154]
    If cl.Interior.ColorIndex = 20 Then
    cl.Interior.ColorIndex = -4142
    End If
    Next cl
    y = ActiveCell.Row
    If y < 3 Or y > 154 Then Exit Sub
    For x = 3 To 10 = RIJ() = CEL("row")
    If Cells(y, x).Interior.ColorIndex = -4142 Then
    Cells(y, x).Interior.ColorIndex = 20
    End If
    Next x
    End Sub

  11. #11
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    In het bestand van @popipipo.

    Dat hele Vba gebeuren kan je vergeten.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  12. #12
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    Dat hele Vba gebeuren kan je vergeten.
    Bijna alles


    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = True
    End Sub
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het xls voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  13. #13
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Weet ik Willem.

    Ik heb het ooit zelf bedacht.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  14. #14
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    Dan heb ik waarschijnlijk van jou "gestolen"
    Want ik heb het uit mijn archief gehaald waarbij geen auteurs staan.
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het xls voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  15. #15
    Senior Member
    Geregistreerd
    19 januari 2013

    nog iets

    van popipipo heb ik gedaan , wat hier onder zit, en dan krijg ik nog iets , hoe los ik dat op zie bmp file

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = True
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden

  16. #16
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Waar is een forum anders voor bedoeld dan het delen van kennis.
    Laatst aangepast door HSV : 12 oktober 2018 om 21:15
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  17. #17
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Van welke planeet kom je?
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  18. #18
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    opslaan als .xlsm file
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het xls voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  19. #19
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Vervolg van mijn vorig bericht.

    .....en niet om af te zeiken @VenA.
    Als jij je ergert aan vragenstellers kun je beter even een pauze inlassen.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  20. #20
    Senior Member
    Geregistreerd
    19 januari 2013
    .xlsm. lukte niet , ik neem ook even pauze het lukt mij even niet
    dank je wel voor de hulp

    MVG mr0007

Pagina 1 van 2 1 2 LaatsteLaatste

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren