• 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.

hele regel laten oplichten tijdens het invullen

Status
Niet open voor verdere reacties.
kuin047

kuin047

Gebruiker
Lid geworden
9 aug 2002
Berichten
444
Bij een kasboek programma wil ik graag dat de hele regel blijft opgelicht, terwijl ik de gegevens invul van die datum.
(dit om te voorkomen dat ik een regel er boven of onder ga zitten.)
Is dit mogelijk?
 
@ Dirktimm

Rijkleuren 2 is precies wat ik zoek.
Maar hoe krijg ik die in mijn werkblad?
Ik heb een geringe kennis van vba en macro's.
Ik kan er een opnemen maar deze er uit peuteren dat gaat me te ver.

Ik heb zelf een jaaroverzicht met alle dagen van het jaar.
En dan moet die regelkleuring er dus horizontaal op de dagen komen.
Ik probeer er een gedeelte van het bestand als bijlage er bij te doen.

Bekijk bijlage help.xls

Gelukt. Het hele bestand is 2 mb. dus die kan ik er niet bij doen
 
Laatst bewerkt:
Nadeel van deze vb is wel dat elke kleur die je zelf op je werkblad hebt gezet verdwenen is nadat je een bepaalde rij aangepast hebt.
Probeer daarom onderstaande eens uit
 

Bijlagen

rij regel

Die kleurt verticaal. Ik wil hem horizontaal hebben. svp.
 
Horizontaal kleurt hij toch ook ????:shocked:
 
nee

Hij kleurt bij mij vanaf de aangeklikte cel naar boven.
Ik wil als je een cel aanklikt hij dan de hele horizontale regel kleurt die je dan met gegevens kan invoeren.
 
Yess

Ja, dat is um.
Geweldig, ik moet mijn kennis toch eens een beetje bijspijkeren.
Kan ik die makro nu overnemen in de originele werkmap?
En hoe doe ik dat ? dat moet dus gebeuren op 1 -2 of meer tabbladen, afhankelijk van het aantal chauffeurs.
 
Laatst bewerkt:
kuin047 zei:
Ja, dat is um.
Geweldig, ik moet mijn kennis toch eens een beetje bijspijkeren.
Kan ik die makro nu overnemen in de originele werkmap?
En hoe doe ik dat ? dat moet dus gebeuren op 1 -2 of meer tabbladen, afhankelijk van het aantal chauffeurs.
Klik om te vergroten...

Hallo

Klik in het venster VBA-project het juiste tabblad aan en plaats daar je code.
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Range("A1") = Target.Row
End Sub
Wil je een 2e tabblad, dan klik je naar het juiste tabblad en zet je weer dezelfde code erin.
Let op! Er zit nog een klein stukje in de voorwaardelijke opmaak, bekijk dat ook maar eens.

Met vr gr
Jack
 
ow

Ik plak hem er in maar dan werkt hij niet. Ik zal ongetwijfeld ergens iets fout doen.
Ik open het bestand.
Klik op de tab ontwikkelaars en dan in vba.
Dubbelklik op blad 1 dan opent zich een venster met blad1(code).
Daar plak ik de code in en sla het op, maar vervolgens doet hij niet wat ik wil.
Geen kleuring van de regel.
??
ps. bedankt voor je tijd.
 
kuin047 zei:
Ik plak hem er in maar dan werkt hij niet. Ik zal ongetwijfeld ergens iets fout doen.
Ik open het bestand.
Klik op de tab ontwikkelaars en dan in vba.
Dubbelklik op blad 1 dan opent zich een venster met blad1(code).
Daar plak ik de code in en sla het op, maar vervolgens doet hij niet wat ik wil.
Geen kleuring van de regel.
??
ps. bedankt voor je tijd.
Klik om te vergroten...

Volgens mij heb je mijn vorige quote niet goed gelezen.
Let op! Er zit nog een klein stukje in de voorwaardelijke opmaak, bekijk dat ook maar eens.
Klik om te vergroten...
Met vr gr
Jack
 
Als ik hem op een tweede blad kopieer en de macro er in doe dan doet hij t wel.
Als ik het blad beveilig dan werkt de makro niet meer.
Hij blijft dan steken op > Range("A1") = Target.Row
Wat je bedoelt met de voorwaardelijke opmaak?
Dat de makro geldt voor de selctie tussen C21 en AP21.
Dat is prima.

Ik ga morgen weer eens verder puzzelen.
Kijken of ik m in het gewone bestand kan knutselen.
En of hij dan ook werkt als het werkblad beveiligd is. want verschillende cellen moet ik beveiligen tegen invoer omdat de totalen er in worden uitgerekend.
Moet nu even gaan werken.
 
Laatst bewerkt:
kuin047 zei:
Ik ga morgen weer eens verder puzzelen.
En of hij dan ook werkt als het werkblad beveiligd is. want verschillende cellen moet ik beveiligen tegen invoer omdat de totalen er in worden uitgerekend.
Moet nu even gaan werken.
Klik om te vergroten...

Voeg dit aan je macro toe
Code: 
Sheets( ??  ).Unprotect Password = " ?? "
  Range("A1") = Target.Row
Sheets( ?? ).Protect Password = " ?? "
vervang ? door jouw sheetsname en ? door jouw password .
Of je zet deze in ThisWorkBook
Code: 
Private Sub Workbook_Open()

    Sheets( ?? ).Protect Password:=" ?? ", UserInterFaceOnly:=True
    
End Sub
 
Beste kuin047 ;)

Heb er ook nog eentje.
Hier kan je kiezen wat je wilt, Rij, Kolom, Rij en Kolom of cel.

Kijk naar de Voorwaardelijke Opmaak en naar de code in de VBA editor.

Groetjes Danny. :thumb:
 

Bijlagen

Of zonder password in ThisWorkBook
Code: 
Private Sub Workbook_Open()
   Sheets("jou sheet naam").Protect , userinterfaceonly:=True
 End Sub
Met vr gr
Jack
 
Laatst bewerkt:
helaas

Het lukt me niet.
Ik heb een tijd zitten rommelen maar krijg het niet voor elkaar.
Danny als ik jouw regel er in kopieer dan krijg ik geen resultaat, helaas.
Ik doe er nu een gedeelte van het bestand bij waar die in moet.
De tabbladen zijn beveiligd zonder pasword.
Het is dus de bedoeling dat de horizontale rij oplicht als die wordt aangeklikt.
bedankt voor de moeite.
Bekijk bijlage test2 kentekens .zip

De resultaten van jack lukte nog het beste, maar werkte niet als ik het blad beveiligde.
En waar ik de code moet toevoegen?? ik maak er ongetwijfeld ergens een fout mee.
 
Laatst bewerkt:
Uh

Ik open hem, hij wordt paars naar links (dus niet de hele regel)
Klik ik een andere regel aan dan doet ie niets.
Ik heb de macrobeveiliging uitgeschakeld.

Op de laptop doet hij het wel. Daar heb ik office xp op staan. (alleen naar links licht hij op)
Maar op mijn comp. met excel 2007 gaat het dus fout??
Hint?

Daarnet geprobeerd de macro in het werkboek te zetten op de andere comp.. Maar hij doet het dan ook niet.
Ik maak toch ergens een fout.

Fout nog groter >> laptop gecrasht
Dus ga verder op de gewone desktop
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan