- Katılım
- 2 Nisan 2008
- Mesajlar
- 132
- Excel Vers. ve Dili
- 2003 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 25.05.2019
Selam arkadaşlar;
aşağıda çalışan bir kod var. Buna sorgulama eklemek istiyorum ama ben başaramadım.
F8 Hücre durumuna göre işlem yapmasını istiyorum.
1-F8 "-" ise; "ÜCRET ÇIKMADIĞI İÇİN ÖDEME YAPILAMAZ",
2-F8 "ÖDENDİ" ise; "ÖDEME YAPILDIĞI İÇİN TEKRAR ÖDEME YAPILAMAZ" ve
3-F8 "800" ise; "800 TL.ÖDEME YAPMAK İSTEDİĞİNİZDEN EMİN MİSİNİZ ?"
Bu 3 duruma göre aşağıdaki koda ekleme yaparak çalışmasını istiyorum.
Teşekkürlerrrr...
aşağıda çalışan bir kod var. Buna sorgulama eklemek istiyorum ama ben başaramadım.
F8 Hücre durumuna göre işlem yapmasını istiyorum.
1-F8 "-" ise; "ÜCRET ÇIKMADIĞI İÇİN ÖDEME YAPILAMAZ",
2-F8 "ÖDENDİ" ise; "ÖDEME YAPILDIĞI İÇİN TEKRAR ÖDEME YAPILAMAZ" ve
3-F8 "800" ise; "800 TL.ÖDEME YAPMAK İSTEDİĞİNİZDEN EMİN MİSİNİZ ?"
Bu 3 duruma göre aşağıdaki koda ekleme yaparak çalışmasını istiyorum.
Teşekkürlerrrr...
Kod:
Sub tıklaöde1()
durum = Range("f8")
ödemeayı = Range("r2")
ücret = Range("d8")
adı = Range("b8")
Sheets("ÖDEMELER").Select
Sheets("ÖDEMELER").Unprotect Password:=""
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Range("d1000").End(xlUp).Offset(1, 0) = ödemeayı
Range("e1000").End(xlUp).Offset(1, 0) = adı
Range("f1000").End(xlUp).Offset(1, 0) = ücret
End Sub
Son düzenleme: