• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

rij oplichten

Status
Niet open voor verdere reacties.
M

mr0007

Gebruiker
Lid geworden
19 jan 2013
Berichten
417
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
 

Bijlagen

  • rij kleuren als cursor op cel staat.xlsx
    8,1 KB · Weergaven: 41
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
 
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
 
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]
 
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
 
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
 
Hier een andere mogelijkheid; een combinatie van VBA en VO
 

Bijlagen

  • rij kleuren als cursor op cel staat-1.xlsm
    13,7 KB · Weergaven: 46
Code: 
=RIJ()=CEL("row")
 
=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
 
In het bestand van @popipipo.

Dat hele Vba gebeuren kan je vergeten.
 
Dat hele Vba gebeuren kan je vergeten.
Klik om te vergroten...

Bijna alles


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

Ik heb het ooit zelf bedacht.
 
Dan heb ik waarschijnlijk van jou "gestolen" :eek: :eek: :eek: :eek:
Want ik heb het uit mijn archief gehaald waarbij geen auteurs staan.
 
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
 

Bijlagen

  • voorwaardelijke opmaak 1.bmp
    1,8 MB · Weergaven: 33
Waar is een forum anders voor bedoeld dan het delen van kennis. ;)
 
Laatst bewerkt:
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.
 
.xlsm. lukte niet , ik neem ook even pauze het lukt mij even niet
dank je wel voor de hulp

MVG mr0007
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan