Eğerli makro ve msgbox

[tatarcık]

arkadaşlar aramalardan sorunumu çözebilicek en yakın örneklere baktım ama ya ben bulamadım yada yakın örnekler ile sonuca ulaşamadım.
benim sizlerden eğer(If) ile formül yapmak ve sonucu msgbox ile belirtilmisidir.gerekli açıklama ekli örneğe yazdım teşekkürler

 

[tatarcık]

beklemedeyim

arkadaşlar ya ben sizler için basit bir sual sordum yada ben ekli örnekteki sorunumu tam anlatamadığımı düşünüyorum.
çünkü ilk defa sorunuma cevap gelmedi ((

 

[mesuttasar]

Sayfa 1 e bu kodları eklerseniz iş tamamdır. Bu arada kimse cevap vermiyor diye düşünme .Sorduğum tüm soruların yanıtını aldım ben.:hihoho: Mutlaka birileri ilgilenir sorununuzla.

Sub aa()
Range("j13").Select
If Range("j13").Value < Range("f13").Value Then GoTo 10
MsgBox "Kalan Tutar" & "  " & Range("F13").Value & "  " & "Lirad&#305;r"
10
MsgBox "Bakiye Yeterlidir ..."
End Sub

 

[tatarcık]

kod olmadı

sayın mesuttasar bey ilginize teşekkür ederim ama vermiş olduğunuz kodu sayfa1 uyguladım ama çalışmadı.

 

[mesuttasar]

Kodları değiştirdim son haliyle baksaydınız.

Ben dosyayı gönderiyorum.

 

[tatarcık]

dileğim gibi olabilir mi

sayın mesuttasar bey vaktinizi bana ayırdığınız için teşekkürler
ama benim istediğim belirtilen hücreler arasındaki farkı makro ile çıkartma işlemi yaparak kalan tutar girdiğiniz miktardan (çıkan sonuç) dan fazla olamaz diye hemen msgbox ile uyarı vermesini istemiştim.
acaba bu dediğim olabilirmi???

 

[mawi_adam]

merhaba az önce dosyanızı inceledim.ama tam olarak ne istediğinizi anlamadım.
yani j13-f13<f13 m&#252; olmal&#305;.&#246;rne&#287;in j13 90 ve f13 40 oldu&#287;unda sonu&#231; 50 olacakt&#305;r.buda 40 tan b&#252;y&#252;k olodu&#287;u i&#231;in ge&#231;ersiz say&#305;lacakt&#305;r gibimi.

 

[tatarcık]

hayır öyle değil

sorumu biraz karmaşık bir şekilde anlattım sanırım
sayın mawi adam benim yapmak isteğidim
şimdi diyelim ki j13 teki miktar 30 olsun f13 teki miktar ise 10
J13-f13= çıkan sonuç j13>f13 ise
msgbox"[f13] girilen tutarda herhangibir sorun yok" gibi
eğer(j13<f13 ise )
msgbox" girdiğiniz miktar [j13] ten büyük olamaz ancak ...... Şu kadar miktar girebilirsiniz"
diye uyarmasını istiyorum

 

[mawi_adam]

cevap

neyi değerlendireceğinizi anlayamadım.yani j13-f13 işleminin sonucunumu yoksa f13 yada j13 e girilen değerlerimi.örneğin j13=30 f13=10,j13-f13=a olsun
a=20 bulunmuş olur.a>f13 olduğu için hata mesajı vermesinimi istiyorsunuz.yoksa örneğin j13=30 f13=40 olsun f13>j13 olduğu için hata mesajı vermesini istiyorsunuz.
kuralları yazsanız daha iyi anlaşılır.yani atıyorum j13 f13 ten büyük olamaz
veya j13-f13 farkı f13 ten büyük olamaz gibi.bu kuralları net bişekilde yazarsanız gerisini hallderiz

 

[tatarcık]

kısacası diyelim

J13>f13 ten büyük olamaz

 

[mesuttasar]

VBA da sayfa 1 kod b&#246;l&#252;m&#252;ne bu kodlar&#305; ekle.Umar&#305;m bu sefer olmu&#351;tur.
J13 , F13 ten b&#252;y&#252;k oldu&#287;u zaman uyar&#305; veriyor.Ayr&#305;ca J13 h&#252;cresini temizliyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sayfa1").Select
Range("j13").Select
If Range("j13").Value < Range("f13").Value Then GoTo 10
MsgBox "Kalan Tutar" & " " & Range("F13").Value & " " & "Lirad&#305;r"
Range("j13").ClearContents
GoTo 20
MsgBox "Bakiye Yeterlidir ..."
10
20
End Sub

 

[tatarcık]

tşk

sayın mesuttasar bey çok teşekkür ederim ilginiz ve zamanınızı bana ayırdığınız için
peki F13=J13 e eşit ise msg box'ın uyarı veriyor bu uyarıyı sadece F13<J13 ten büyük olduğu zaman vermesini birde bakiye yeterli olduğu zaman msgbox uyarısı vermiyor.

 

[mesuttasar]

sayın mesuttasar bey çok teşekkür ederim ilginiz ve zamanınızı bana ayırdığınız için
peki F13=J13 e eşit ise msg box'ın uyarı veriyor bu uyarıyı sadece F13<J13 ten büyük olduğu zaman vermesini birde bakiye yeterli olduğu zaman msgbox uyarısı vermiyor.

Bakiye yeterli olduğunda da uyarı veriyor artık.:hihoho:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sayfa1").Select
Range("j13").Select
If Range("j13").Value <= Range("f13").Value Then GoTo 10
MsgBox "Kalan Tutar" & " " & Range("F13").Value & " " & "Liradır"
GoTo 20
10 MsgBox "Bakiye Yeterlidir ..."
20
End Sub

 

[tatarcık]

tamamdır

sayın mesuttasar bey teşekkürler şimdi oldu
excel bilenlerin hali bir başka