Offset

[don42]

Beste helpers,

Ik wil graag de waarde hebben
Uit kom a
Voorbeeld de geselecteerde cel = o5
Dan de waarde van A4
0f anders gezegd de waarde van 1 rij hoger
In kolom A

Wie weet de oplossing
Bvd
Don

 

[SjonR]

Wat wil je precies? Plaats een voorbeeldje desnoods.

Zonder het voorbeeldbestand een poging:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Cells(Target.Row - 1, 1).Value
End Sub

Werkt bij dubbelklikken in een cel.

 

[don42]

Ga het zo proberen
Ik vul via een userform namen in
Na dubbelkik wordt de naam in de geselecteerde
Cel gezet en de cel er onder wordt geselecteerd
Nu wil ik de waarde van cel A in een msgbox
Ter controle
Voorbeeld
Ik selecteer cel h7 om daar een naam te zetten
Dan heb ik de waarde nodig van A7
Dus 1 rij hoger en kolom A

 

[edmoor]

Dat is nog steeds zonder voorbeeldbestand.

 

[don42]

Zal vanmiddag een voorbeeld plaatsen
Bestandje staan namen in

 

[emields]

of plaats deze code in de betreffende textbox in uw userform. (natuurlijk textbox1 aanpassen naar de naam van de textbox)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox TextBox1
End Sub

 

[don42]

ben een stukje verder
Met:

Cells(Target.Row, 1).Value

haal ik de waarde uit kolom A
Nu een stapje verder, ik heb ook nog de waarde nodig van de target kolom en dan uit rij 3
wie helpt mij verder?

 

[SjonR]

Maak van de 1 een 3 :thumb:

 

[edmoor]

Dat is de kolom

 

[don42]

Iets anders

stel ik heb cel G15 geselecteerd
dan heb ik de waarde nodig van A15
dat doen we dus met

Cells(Target.Row, 1).Value

en dan nog de waarde van G3
de geselecteerde kolom rij 3

 

[edmoor]

G3: Range("G3").Value
Geselecteerde kolom rij 3: Cells(3, Target.Column).Value

 

[don42]

ja hoor

Dit is hem
je hebt me maar weer eens geholpen

iedereen bedankt
Don

 

[SjonR]

Ik ga even naar Specsavers Edmoor :shocked:

 

[don42]

sorry sorry

Ik ben maar wat blij met jullie fijne hulp
:thumb: