Başka hücre değerine göre otomatik Formül yazdırma

[excellkurdu]

G sutununa "ok" yazdığımızda aynı satırdaki C hücresinde tarih varsa, aynı satırdaki B hücresine "FATURALI" yazması gerekir. Şuan bunu fomülle yapıyorum.
Amacım B sutunundaki formülleri silmek, G ye "ok" yazdığımda AYNI formül makro ile otomatik yazılsın. Bunu makro ile çok uğraştım yapamadım.
Formül: =EĞER(C10="";"";"FATURALI") 10 satırı sadece örnektir. Aktif "ok" yazdığımız satır no olacak

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan DerenOte adlı sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan ekranın sağ tarafındaki kod'u tamamen silip, bunun yerine aşağıdaki kod'u yapıştırın.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Target.Row > [A65536].End(3).Row Or [A65536].End(3).Row < 10 Then Exit Sub
If Target.Column <> 3 And Target.Column <> 7 Then Exit Sub
If Target.Column = 3 Or Target.Column = 7 Then
    If Target = "" Then Cells(Target.Row, 2) = ""
    If UCase(Cells(Target.Row, 7)) = "OK" And IsDate(Cells(Target.Row, 3).Text) Then
        Cells(Target.Row, 2) = "FATURALI": End If: End If
[B]End Sub[/B][/FONT]

 

[excellkurdu]

Merhaba.

-- Alt taraftan DerenOte adlı sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan ekranın sağ tarafındaki kod'u tamamen silip, bunun yerine aşağıdaki kod'u yapıştırın.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If [A65536].End(3).Row < 10 Then Exit Sub
If Intersect(Target, Range("G10:G" & [A65536].End(3).Row)) Is Nothing Then Exit Sub
If UCase(Target) = "OK" And IsDate(Cells(Target.Row, 3).Text) Then
    Cells(Target.Row, 2) = "FATURALI"
Else: Cells(Target.Row, 2) = "": End If
[B]End Sub[/B][/FONT]

Hocam ilginize teşekkür ederim. Kod güzel olmuş, fakat sonradan C sütününa girdiğim tarihlerde de aynı şekilde B sutununa yine "FATURALI" yazdırabilir miyiz? Bazen faturalar sonradan yazılıyor.

 

[Ömer BARAN]

Merhaba.

Önceki cevabımda yazdığım kod'u değiştirdim.
Sayfayı yenileyerek önceki cevabımı kontrol ediniz.
.

 

[excellkurdu]

Merhaba.

Önceki cevabımda yazdığım kod'u değiştirdim.
Sayfayı yenileyerek önceki cevabımı kontrol ediniz.
.

Ömer Bey Harika oldu. Önceki gönderdiğiniz de çalışmıştı. Son gönderdiğinizde çalışıyor. Son gönderdiğinizi kullanıyorum.
Allah razı olsun.