waarde geven(en houden) als cel geselecteerd is geweest

[Ralbers]

Hallo allemaal,

Ik heb een excel bestand gemaakt wat gebruikt gaat worden voor de controle van bepaalde formulieren.
De details hiervan zijn vertrouwelijk maar ik heb een voorbeeld gemaakt waarbij het naar mijn idee duidelijk moet zijn. Zo niet dan laat maar weten.

Iedere regel moet gecontroleerd worden. Als deze geweest is zou ik graag willen hebben dat als je op de cel erachter klikt (kolom C) dat er in kolom D een 1 neergezet word zodat er een voorwaardelijke opmaakt gemaakt kan worden.
Als ik echter gewoon een ALS() formule gebruik dan gaat die 1 natuurlijk weer weg als de cel niet meer geselecteerd is.

Dus eigenlijk moet er in VBA iets gemaakt worden dat als op die regel 1 is dat de cel erachter 1 hard erin gezet word. Zodat die blijft staan. Ik weet dat het kan maar mijn kennis in VBA is net te beperkt om dit in elkaar te fietsen. Vooral omdat dit natuurlijk een private sub zal worden en geen gewone sub weet ik echt niet waar en hoe ik moet beginnen.


Bekijk bijlage Helpmij1waarde na selecteren.xlsm

Alvast bedankt,

Groeten Roel

 

[Ralbers]

ik heb dus zelf al een beetje zitten frotten

en ben hier op uitgekomen

Sub test()
If [ges_kol] = "3" Then
ActiveSheet.Cells([ges_rij], 4).Value = 1
Else
End If

in combinatie met

Private Sub worksheet_selectionchange(ByVal target As Range)
[ges_rij] = target.Row
[ges_kol] = target.Column
End Sub

Dit werkt en moet eigenlijk altijd werken niet alleen als de macro uitgevoerd word. Hoe doe ik dit?

Groeten Roel

 

[sander17111988]

uhh zoiets:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    myRow = Target.Row
    myCol = Target.Column
    Cells.Interior.Pattern = xlNone
    With Columns(myCol)
        .Interior.ColorIndex = 36
    End With
    With Rows(myRow)
        .Interior.ColorIndex = 6
    End With
End Sub

Ik snap niet echt wat je er mee wilt bereiken dat er automatisch een 1 komt?
Ben geen programmeer held, maar misschien heb je hier wat aan:

http://www.felcor.nl/index.php/accordion-a/markering-actieve-rij-kolom

 

[Ralbers]

Dat is dus wat ik al heb.
Van een andere site maar met precies hetzelfde verhaaltje en plaatjes;p

Het probleem hiervan is dat het als je hem vervolgens deselecteerd hij weer wit wordt. En dat is nu net niet de bedoeling
Die 1tjes is puur hulprij om daar vervolgens voorwaardelijke opmaak voor te maken dat ie die opmaak geeft
dus als waarde 1 is dan moet ie kleur krijgen zo kun je het ook zien in het voorbeeld.

Toch bedankt voor het meedenken

 

[Ralbers]

Ik heb het probleem al opgelost

blijkbaar is de titel achter sub bij een private sub wel belangrijk
dat detail had ik gemist en verklaard waarom hij het dus niet deed

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[ges_rij] = Target.Row
[ges_kol] = Target.Column
If [ges_kol] = "3" Then
ActiveSheet.Cells([ges_rij], 4).Value = 1
Else
End If
End Sub

klein detail maar wederom dankzij uitgebreid zoeken op helpmij toch een oplossing kunnen vinden