Hücre değerine göre, hücre değeri değiştirme

[excellkurdu]

Sağdaki satır hücre değerine göre soldaki satır değerini değiştirmek istiyorum.
Şöyleki;
G sütünundaki herhangi bir satıra "ok" yazınca hemen solundaki F sütunundaki satır boş ise hücre değeri 0 (sıfır) olmalı. Eğer solundaki F sütunundaki hücre 0 (sıfır) ve 0'dan büyük ise herhangi bir değişiklik OLMAMALI.

 

[Ömer BARAN]

F sütununda bir formül filan mı var acaba?

 

[excellkurdu]

F sütununda bir formül filan mı var acaba?

Hayır yok. Ama F sütununa elle sayı girişleri yapıyorum. F sutunu boşdur. Elle sayı girişi yaptığımda o sayıları silmemesi gerekli.

 

[Ömer BARAN]

Merhaba.
Sayfa adına fareyle sağ klik yapın ve "Kod Görüntüle"yi seçin, ardından aşağıdaki kodu açılan ekranın sağ tarafındaki boş alana yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [G:G]) = "OK" Then Exit Sub
    If Cells(Target.Row, 6) = "" Then
        Cells(Target.Row, 6) = 0
    End If
End Sub

 

[excellkurdu]

Hocam Çok sağaloasın. Allah razı olsun.

 

[excellkurdu]

Merhaba.
Sayfa adına fareyle sağ klik yapın ve "Kod Görüntüle"yi seçin, ardından aşağıdaki kodu açılan ekranın sağ tarafındaki boş alana yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [G:G]) = "OK" Then Exit Sub
    If Cells(Target.Row, 6) = "" Then
        Cells(Target.Row, 6) = 0
    End If
End Sub

Hocam aynı kodu kullanarak, G sütununa yine "ok" yazdığımızda bu sefer E sütununa hemen solundaki A sütunundaki tarihi yazdırabilir miyiz? Yani

Cells(Target.Row, 6) = 0

0 değilde hemen solundaki A sütunundaki tarih olmalı.
Saygılarımla

 

[Ömer BARAN]

Merhaba.

Aşağıdaki şekilde yazarak deneyin.
.

Cells(Target.Row, 6)=Cells(Target.Row, 1)

 

[excellkurdu]

Çok sağolasın hocam.