Formül doğru ise Başka hücreye değer atama

[vivident]

Merhaba

E3 hücresinde tarih sıfırdan büyükse B3 hücresine 1 değil ise 2 eklesin

EĞER(E3>0;1;2)

bu formülü B3 hücresine yazıp aşağıaya doğru çekersem, Olay bitiyor, ama ben B3 hücresine formül girmek istemiyorum

B sutunundaki hücreler boş olmalı
Nası yapabilirm.

 

[Muzaffer Ali]

İstediğiniz şey VBA kodu ile olabilir.

Ekteki örnekte B sutünunda herhangi bir hücreye "büyükmü" yazmanız halinde istediğiniz işlemi yapacaktır

 

[vivident]

B sutununa hiçbirşey yazmak istemiyorum

E3'ü sorgulasın B3'e yazsın
E4'ü sorgulasın B4'e yazsın
E5'ü sorgulasın B5'e yazsın gibi
çünkü b sutununa ben koşulla göre koşullu biçimlendirme yapmak istiyorum.

 

[Muzaffer Ali]

verdiğim örneği inceleseydiniz istediğiniz orada zaten

 

[vivident]

verdiğim örneği inceleseydiniz istediğiniz orada zaten

örneğinizi inceledim, B sutundaki hücrelerin herhangi birine büyükmü yazınca E sutunundaki tarihe göre 1 veya 2 getiriyor. hiçbirşey yazmadan direk getiremezmiyiz.

Yanlız şöylede bi olay var. Bu kez E sutununda hiçtarih olmadığı için B sutünüdaki tüm hücreleride 2 yapacaktır.
Biz sadece tarih sıfırdan büyükse 1 yapsın, E sutunundaki hücre boşsa hiç ellemesin yapsak daha iyi olur gibi

 

[Muzaffer Ali]

E sutünuna tarih yazınca çalışmasını istiyosanız

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Column = 5 Then Exit Sub
    If Target.Value > 0 Then
        Cells(Target.Row, 2).Value = 1
    Else
        Cells(Target.Row, 2).Value = 2
    End If
End Sub

yada bir buton yapacağız siz o butona tıklattığınızda kontrol edip 1 yada 2 yazacak

 

[vivident]

E sutünuna tarih yazınca çalışmasını istiyosanız

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Column = 5 Then Exit Sub
    If Target.Value > 0 Then
        Cells(Target.Row, 2).Value = 1
    Else
        Cells(Target.Row, 2).Value = 2
    End If
End Sub

yada bir buton yapacağız siz o butona tıklattığınızda kontrol edip 1 yada 2 yazacak

Hocam çalışıyor. Çok teşşekür ederim. Sayı yerine harf eklemek istersek "Value" yerine "text" mi yazmam gerekecek

 

[Muzaffer Ali]

Value : hücre değeri
Text : metin

anlamına gelir. Siz ikisinide kullanabilirsiniz.

 

[vivident]

Hocam son olarak birşey söylemek istiyorum. herşey mükemmel çalışıyor.

Fakat ; örneğin atıyorum E8 hücresine tarih girdim, B8 hücresinde 1 değeri çıktı.
Sonra ben gittim 1 değerini hücreden sildim. fakat tarih E8 hücresinde kaldı.

B8 hücresindeki değerleri silememe gibi bir kod varmı ???

 

[Muzaffer Ali]

Tüm hücreler seçilip sağ tıklat hücreleri biçimlendir.Koruma Tabı Kilitli onayını kaldır. Tamam tıklat
B sutünunu seç sağ tıklat hücreleri biçimlendir Koruma tabı kilitli onaylı yap. Tamamı tıklat

kodu aşağıdaki şekilde değiştir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Unprotect "şifre"
    If Not Target.Column = 5 Then Exit Sub
    If Target.Value > 0 Then
        Cells(Target.Row, 2).Value = 1
    Else
        Cells(Target.Row, 2).Value = 2
    End If
    Protect "şifre"
End Sub