Cellpointer na macro,terug keren een cel daarnaast.

[karell]

Jawel eh....blad4(blad1)

 

[HSV]

Ik zie toch echt niet hoor!
Dan zijn de drie regels zeker met dezelfde kleur opgemaakt als de achtergrondkleur. :d

 

[karell]

Denk ik weet welk er schort.
Heb dat toen edmoor zei"dat het een wirwar was" opgekuist en in het oude zal dat gelijk je zegt niet in blad4(blad1) staan.
Dus wil niet vervelend doen eh.....maar download dat laatste progje is welk ik stuurde daarnet.

 

[HSV]

Ik wil ook niet vervelend doen, maar jij kan toch de rode regels toevoegen.
Daarna verneem ik wel of het werkt of niet en of je dat voor ogen had.

 

[karell]

HVS<Ik wil ook niet vervelend doen, maar jij kan toch de rode regels toevoegen.
Ge hed gelijk.

Deed dat alwel en zette het dan in de macro op blad4(blad1) en deed toen in macro blauww waar ie naartoe gaat als a30 is Range("E14").Select weg ,nu deed ik dat niet en het is stukken beter als dit hieronder
"Ander vraag om rijnummer automatisch naar cel te kopiëren heb ik intussen gevonden op internet ,was
=MAX((A120<>"")*RIJ(1:20)) (dan ctrl+shift en enter ) "
want nu geeft ie in cel e14 de rijnummer veel beter in.
Bedoel met veel beter,het is van a1 tot d20 dat je getallen kan ingeven,die max gaf altijd de grootste rijnummer weer en dit niet.
Dat is een verbetering.
Maar hoe moet dat de cursor in de cel rechts van het getal welk ik intikte zetten?

 

[HSV]

Het komt doordat je in alle modules in je bestand "select" hebt staan.

Range("E1").select
with selection.interior
bla, bla

Dat kan ook zonder select.

with Range("E1").interior

Maar ik ga niet al je codes bijlangs, dus verruil de gehele code voor onderstaande.

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
 .EnableEvents = False
 Range("E14") = Target.Row
  Set KeyCells = Range("A30:D36")
     'gaat b.v.b dan van macro blauw hier,naar b.v.b volgende macro groenn.
        If Range("A30") = ":-)" Then blauw Else
        If Range("B30") = ":-)" Then rood Else
        If Range("C30") = ":-)" Then groen Else
        If Range("D30") = ":-)" Then paars Else
    .Goto Target.Offset(, 1)
    .EnableEvents = True
    End With
End Sub

 

[karell]

Deed dat zo eh...en kreeg toen dit welk ik meestuur.

 

[karell]

Code:
Range("E1").select
with selection.interior

Dit moet ik er misschien wel bijzeggen,dat hierboven was met "macro opnemen" in het tabblad "ontwikkelaars" gemaakt eh....

 

[HSV]

Lees mijn vorig bericht nog eens goed.

with Range("E1").interior

 

[karell]

Dan ie dat wel met de cursor gelijk je zegt als ik die with toevoeg,maar dan past ie kleur niet aan.

 

[HSV]

Er staat ook nog ergens in een paar modules.

Range("E13").select

of

Range("E14").select

Verwijder dit ook.

 

[karell]

Dat is het,maar dan zegt pc wel welke kleur er eerst staat,maar dan past ie kleur in E1 en in a24 tot
D24 nimmer aan.
Hoe kan dat ?

 

[HSV]

Natuurlijk wel.
Hier het bestandje.
Ik heb niet verder gekeken naar de opbouw, want dat kan volgens mij nog wel anders dan er nu staat met zoveel modules.

Volgens mij werkt het naar behoren.
Het is me zowel een wirwar aan modules als de layout zelf.

Bekijk het maar eens, dan verneem ik het wel, en zal er dan misschien iets beter naar kijken.

 

[karell]

Bedankt eh.... want dat is het. :thumb:
Ik vind het trouwens ongelofelijk,dat je het ondanks mijne stuntelige uitleg met een paar regeltjes opgelost hebt. :d

 

[HSV]

Graag gedaan karell.

Zou je de vraag nog als opgelost willen markeren?
Bvd.