EĞER E6 DOLU İSE F6'YA FORMÜL GELSİN

[cocoa35]

Merhaba üstatlar, Ekli örnek dosyada görüldüğü gibi Sayfa1 'de E6 Hücresi Değiştiğinde veya dolduğunda F6 Hücresine formül gelsin eğer E6 Boş ise F6 Hücresindede formül olmasın istiyorum, bulduğum bir makro ile bunu denedim ama bir hata var sanırım tam çalışmadı, bu konuda yardımınıza ihtiyacım var

 

[AdemCan]

Merhaba, örnek kod.

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case Is = "$E$6"
            If Target.Value > 0 Then
                Target.Offset(0, 1) = Target.Value
            Else
                Target.Offset(0, 1) = ""
            End If
        Case Is = "$E$7"
            If Target.Value > 0 Then
                Target.Offset(0, 1) = Target.Value + Target.Offset(-1, 1).Value
            Else
                Target.Offset(0, 1) = ""
            End If
        Case Is = "$E$8"
            If Target.Value > 0 Then
                Target.Offset(0, 1) = Target.Value + Target.Offset(-1, 1).Value
            Else
                Target.Offset(0, 1) = ""
            End If
        Case Is = "$E$9"
            If Target.Value > 0 Then
                Target.Offset(0, 1) = Target.Value + Target.Offset(-1, 1).Value
            Else
                Target.Offset(0, 1) = ""
            End If
    End Select
End Sub

 

[cocoa35]

Şu şekilde denedim ancak olmadı;

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case Is = "$E$6"
If Target.Value > 0 Then
Target.Offset(0, 1) = Target.Value
Else
Target.Offset(0, 1) = "=EĞER(E6>0;E6;"")"
End If
Case Is = "$E$7"
If Target.Value > 0 Then
Target.Offset(0, 1) = Target.Value
Else
Target.Offset(0, 1) = "=EĞER(E7>0;F6+E7;"")"
End If
Case Is = "$E$8"
If Target.Value > 0 Then
Target.Offset(0, 1) = Target.Value
Else
Target.Offset(0, 1) = "=EĞER(E8>0;F7+E8;"")"
End If
Case Is = "$E$9"
If Target.Value > 0 Then
Target.Offset(0, 1) = Target.Value
Else
Target.Offset(0, 1) = "=EĞER(E9>0;F8+E9;"")"
End If
End Select
End Sub

 

[AdemCan]

Maalesef çalışmaz, paylaştığım hali istediğinizi karşılıyor, kodu değiştirmeden kullanabilirsiniz ya da başka örnek paylaşımı olacaktır. Arkadaşların cevabını bekleyebilirsiniz.

 

[cocoa35]

Sizden rica etsem yazmış olduğunuz Kod'u ekli örnek dosya'ya uyguluyarak gönderebilirmisiniz

 

[AdemCan]

Düzenleme yapar yeniden paylaşırım.

 

[cocoa35]

Çok teşekkürler

 

[AdemCan]

2 numaralı mesajdaki kodu güncelledim.

 

[cocoa35]

Sn AdemCan bey harikasınız çok teşekkürler

 

[winstoncash]

dosyanızın tam yapısını bilmiyorum ama gelmesini istediğiniz formülü G6'ya yazsanız ve F6'ya =EĞER(E6="";"";G6) gibi bir formül yazsanız iş görmez mi? G sütununu da gizlersiniz

hatta f6'ya =eğer(e6="";"";formülünüz) şeklinde de çok basit bir çözüm olabiir.

 

[AdemCan]

Rica ederim.