Hücreye tıklayınca başka hücreye değer atama

[mkuru28]

Arkadaşlar merhaba
Bir çalışma sayfasında B9:B39 aralığında herhangi bir hücreye mause ile tıkladığımda AV9:AV39 aralığında o satırın karşısındaki hücreye ÖDENDİ yazdırabilir miyim. Yani B10 hücresine mause ile tıkladığımda AV10 hücresine, B15 hücresine mause ile tıkladığımda AV15 hücresine ÖDENDİ yazacak.

 

[tugkan]

Merhaba,
Evet, bunu bir VBA kodu ile yapabilirsiniz. Aşağıdaki kod, istediğiniz gibi B9:B39 aralığındaki hücrelere tıkladığınızda, aynı satırdaki AV sütununa "ÖDENDİ" yazdıracaktır.

1. Geliştirici Sekmesi > Visual Basic'e tıklayın.
2. Açılan pencerede, kodu eklemek istediğiniz çalışma sayfasını seçin (örneğin, Sheet1).
3. Bu sayfanın kod penceresine aşağıdaki kodu yapıştırın:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' B9:B39 aralığında bir hücreye tıklanıp tıklanmadığını kontrol ediyoruz.
    If Not Intersect(Target, Me.Range("B9:B39")) Is Nothing Then
        ' Tıklanan hücreyle aynı satırdaki AV sütununa "ÖDENDİ" yazıyoruz.
        Me.Cells(Target.Row, "AV").Value = "ÖDENDİ"
    End If
End Sub

Bu kod, B9:B39 aralığındaki herhangi bir hücreye tıkladığınızda çalışır ve tıklanan hücreyle aynı satırdaki AV sütununa "ÖDENDİ" yazısını ekler.

 

[Trilenium]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
Dim r As Integer

' B9:B39 aralığındaki hücreler hedeflendiğinde
If Not Intersect(Target, Range("B9:B39")) Is Nothing Then
For Each cell In Target
If cell.Row >= 9 And cell.Row <= 39 Then
' Satır numarasını al
r = cell.Row
' AV sütununda ilgili hücreye "ÖDENDİ" yaz
Cells(r, 48).Value = "ÖDENDİ"
End If
Next cell
End If
End Sub

 

[mkuru28]

Arkadaşlar her iki kodu da denedim. Gayet güzel çalışıyor. Emeğinize sağlık çok teşekkür ederim.