Çözüldü Kalanı Göster ve Uyarı Ver

[Hsn55]

İyi günler ;
Ekli dosyada
Veri girişi sayfasında G20:T69 hücre aralığında toplam yekün var. Eba-1,Ebat-2, Ebat-3,Ebat-4 ,Ebat-5 saylarım var. Benim yapmak istediğim şu
Ebat-1 sayfasında örneğin L32 hücresinde 52 adet emval emval var . Ben Ebat-1 sayfasında L32 hücresine 55 adet veri girdiğimde bana 3 adet fazla veri girdiniz diye uyarı verecek. Yazmaya izin vermeyecek. 40 yazdığımda veriyi girecek . Kalan miktarı Kalan sayfasında ilgili yere yazacak. Ebat-2 sayfasında ve diğer sayfalarda aynı işlem olacak .Fakat kalan veriden fazla girdiğinde yine aynı uyarıyı verecek. Yardımcı olursanız sevinirim. Saygılarımla

 

[tugkan]

Peki toplam adetin kalanını neye göre belirleyeceğiz?
Veri-1-2-3-4-5 deki adetleri toplayacak mı yoksa en son girilen veriye göre mi belirleyeceğiz?
Mesela veri 1 'e 40 yazdık kalan 12 olacak, veri-2'ye 50 yazabilecek miyiz? veri 2 ye 50 yazınca kalan 12 mi yoksa 2 mi olacak?

 

[Hsn55]

Veri Girişi sayfası da toplam adetler olacak. Ebet1-2-3-4-5 sayfaları ise giden olacak. Kalan sayfa ise
Veri Girişi-(Ebat1+Ebat-2+Ebat-3+ Ebat-4+Ebat-5 )=Kalan olacak. Örneğin Veri Girişi Sayfasında G20 hücresinde toplam 20 adet var.
Ben Ebat-1 G20 hücresine 5 Ebat-2 Hücresine 5 Ebat-3 Hücresine ise 5 , Ebat-4 Hücresine 10 yazdığımda bana Uyarı verecek Çünkü 5+5+5 =15 kalan toplam adedim 5 tir. Fazla girdiğim için Kalan 5 veriden Fazla girdiniz uyarısı verecek ?

 

[Hsn55]

Toplamlar ve çıkanlar hücredeki veriye göre olacak. Genel yekine göre değil

 

[Alicimri]

Aşağıdaki kodu Thisworkbook modülüne yapıştırın
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Hsn55]

Hocam şu kodda hata verdi
If Sheets("VERİ GİRİŞİ").Range(adres) < Top Then

 

[tugkan]

Kontrol eder misiniz

 

[Hsn55]

Sayın Tugkan tam istediğim şekilde çalışıyor. Acaba kalan miktarı gösterince otomatik 1 saniye sonra uyarı kapanabilir mi?. Her defasında tamamı tıklamasak.

 

[Alicimri]

yukarıdaki kodu yeniledim.

 

[Hsn55]

Birde kalan sayfasında tüm kalanların görünmesi gerekiyor. Veri girildikce toplam kalanlar da azalması gerekiyor

 

[Hsn55]

Aşağıdaki kodu Thisworkbook modülüne yapıştırın[CODE
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
For i = 1 To Sheets.Count
If Sheets(i).Name <> "KALAN" Or Sheets(i).Name <> "VERİ GİRİŞİ" Then
adres = Target.Address
Top = Top + Sheets(i).Range(adres)
End If
Next
If Sheets("VERİ GİRİŞİ").Range(adres) < Top Then
MsgBox "YETERSİZ BAKİYE"
Sheets(i).Range(adres).Select
Exit Sub
Else
Sheets("KALAN").Range(adres).Value = Sheets("VERİ GİRİŞİ").Range(adres) - Top
End If
End Sub
[/CODE]

Yine aynı hatayı veriyor

 

[Hsn55]

Sayın Tugkan 10 Nolu mesajıma bakma durumunuz var mı?.Bu da olursa çözülecek gibi

 

[SNNAY]

İyi günler ;
Ekli dosyada
Veri girişi sayfasında G20:T69 hücre aralığında toplam yekün var. Eba-1,Ebat-2, Ebat-3,Ebat-4 ,Ebat-5 saylarım var. Benim yapmak istediğim şu
Ebat-1 sayfasında örneğin L32 hücresinde 52 adet emval emval var . Ben Ebat-1 sayfasında L32 hücresine 55 adet veri girdiğimde bana 3 adet fazla veri girdiniz diye uyarı verecek. Yazmaya izin vermeyecek. 40 yazdığımda veriyi girecek . Kalan miktarı Kalan sayfasında ilgili yere yazacak. Ebat-2 sayfasında ve diğer sayfalarda aynı işlem olacak .Fakat kalan veriden fazla girdiğinde yine aynı uyarıyı verecek. Yardımcı olursanız sevinirim. Saygılarımla

Deneyiniz

 

[Hsn55]

Hocam daireden çıktım eve geçtiğim zaman döner bilgi veririm teşekkür ederim şimdiden

 

[Hsn55]

Hocam her defasında kalan kısmını söylemese de sadece Toplam EBAT değeri, VERİ GİRİŞİ sayfasındaki değerden fazla! olduğu zaman burada girilmesi gereken miktarı gösrerebilir im ? Yani ..... adet kadar veriniz kaldı uyarısı olabilir mi?

Yani Veri Girişi sayfasında 65 veri var. Ben Ebat sayfasına 68 veri girdiğim zaman 3 adet veri fazla gidirdiniz şeklin uyarı verip çıkabilir mi?

 

[Alicimri]

Sizin VERİ GİRİŞ sayfasının isminin sonunda boşluk var onu değiştirin, #5 deki kodlarda Or>>And şeklinde değiştirdim..

 

[SNNAY]

Hocam her defasında kalan kısmını söylemese de sadece Toplam EBAT değeri, VERİ GİRİŞİ sayfasındaki değerden fazla! olduğu zaman burada girilmesi gereken miktarı gösrerebilir im ? Yani ..... adet kadar veriniz kaldı uyarısı olabilir mi?

Yani Veri Girişi sayfasında 65 veri var. Ben Ebat sayfasına 68 veri girdiğim zaman 3 adet veri fazla gidirdiniz şeklin uyarı verip çıkabilir mi?

Deneyiniz; Toplam EBAT değeri, VERİ GİRİŞİ sayfasındaki değerden fazla! " & fazlaAdet & " Adet Fazla Girdiniz uyarısı veriyor

 

[Hsn55]

Sayın tugkan, Sayın Alicimri ve Sayın SNNAY çok teşekkür ederim