Soru Kod ile Seçili Hücre Değeri Üzerinden Eğer Koşulu

[cavanoos]

Merhaba arkadaşlar;

Seçili hücre üzerinden satır ve sütunlar arasındaki gezinmek için ActiveCell.Offset(0, -1).Select bunu kullanıyorum diyelim.
Yine bu kod yapısını kullanarak aşağıdaki işlemleri yapmak istiyorum. Yardımcı olur musunuz ?

B2 seçili hücre iken A2 hücre değeri B2 ve C2 değerinin toplamına eşitse D2 hücresine İşlem Yapma yazsın.

B2 seçili hücre iken A2 hücre değeri B2 ve C2 değerinin toplamından büyükse D2 hücresine Matrah Yükselt yazsın.

B2 seçili hücre iken A2 hücre değeri B2 ve C2 değerinin toplamından küçükse D2 hücresine Kdv Yükselt yazsın.

 

[Muzaffer Ali]

Merhaba.

Bu şekilde yapmak yerine Bir de KDV Oranı başlığı açsanız ve her satırda KDV oranı da belirtseniz, Tutar yazdığınızda Matrah ve KDV yi otomatik hesaplayıp yazılsa daha pratik olmaz mı?

Aşağıdaki kodu Sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A:B"), Target) Is Nothing Then
        Cells(Target.Row, "C") = Cells(Target.Row, "A") / (1 + Cells(Target.Row, "B"))
        Cells(Target.Row, "D") = Cells(Target.Row, "B") * Cells(Target.Row, "C")
    End If
End Sub

 

[cavanoos]

Muzaffer Ali;

Bu kodun öncesi var, araya bu eğer kodu girecek ve sonrası da olacak.
Böyle olunca sayfanın kod kısmına yazarak bunu çözemem.

B sütununda kdv tutarı var. Aşağıdaki kodu çalıştırıyorum. B sütunu matrah oluyor. C sütununa formül kullanarak kdv tutarını yazıyorum.
Bundan sebep kdv oranı açmama gerek yok.
ActiveCell.Offset(0, 0).Value = ActiveCell.Offset(0, 0).Value / 0.2 bu kod ile

Yukarıdaki kod yapısı mantığını eğer ile birleştirerek kod yazmamız gerekir.

 

[Muzaffer Ali]

O zaman aşağıdaki kodu kullanın.

Sub kalem()
    With ActiveCell
        Cells(.Row, "D") = IIf(Cells(.Row, "A") = (Cells(.Row, "B") + Cells(.Row, "C")), "İşlem Yapma", "")
        Cells(.Row, "D") = IIf(Cells(.Row, "A") > (Cells(.Row, "B") + Cells(.Row, "C")), "Matrah Yükselt", "")
        Cells(.Row, "D") = IIf(Cells(.Row, "A") < (Cells(.Row, "B") + Cells(.Row, "C")), "Kdv Yükselt", "")
    End With
End Sub

 

[cavanoos]

Muzaffer Ali;

Kod çalışmıyor, dosya ektedir.

 

[Muzaffer Ali]

4. mesajdaki kodu yeniledim.

 

[cavanoos]

Muzaffer Ali;

Kodu denedim. B2 ve B3 hücreleri seçili iken çalıştı ama sonuç yok. B4 hücresinde çalıştı ve sonuç var. Yani tam olarak doğru çalışmıyor.

Bir yandan da eğer kodunu anlamaya çalışıyorum.
Ekli dosyada hem sizin kodunuz hemde deneme amaçlı yaptığım kod var. Kod aşağıda ama hata veriyor. Hata nerede bulamadım.

Sub deneme()
IIf (ActiveCell.Offset(0, -1) > ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 3).Select ActiveCell.FormulaR1C1 = "DENEDİM" , "")
End Sub

 

[Muzaffer Ali]

Dosya ekte

 

[cavanoos]

Teşekkür ederim. emeğinize sağlık

 

[cavanoos]

Merhaba;

Ekli dosyamda B2 ve C2 nin toplamı A2 hücresine eşit o halde D2 hücresi seçili iken butona basıyorum ve "Matrah Yükselt" yazıyor.
Halbuki yazması gereken "İşlem yapma" olmalı idi

A2 hücresinde =B2+C2 formülü veriyorum. D2 hücresinde butona basıyorum ve "İşlem Yapma" yazıyor ve doğru hareket bu.

İlkinde manuel olarak A2 hücresine değer giriyorum olmuyor, ikincisinde formülle giriyorum oluyor. Aynı sayı, sonuç farklı.
Nedenini bulamadım, yardımcı olur musunuz ?

 

[Korhan Ayhan]

Ben şimdi denedim. D2 hücresinde "İşlem Yapma" ifadesi yazdı..

 

[cavanoos]

Korhan Bey;

Siz denediğinizde A2 hücresinde formül vardı. Butona bastınız ve "İşlem yapma" çıktı galiba.
Ekteki dosyada A2 hücresinde formül yok. D2 hücresinde butona basıyorum ve "Matrah Yükselt" çıkıyor.

Ama tutar aynı, sonuç niye farklı.
Ekli dosyada A2 hücresinde formül yok, şimdi deneyin. Bakalım "İşlem Yapma" çıkacak mı ?