• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Pul Dağıtımı

Sn. Baran,
Pul adetlerini, mevcut pullardan bulması gerekiyor. Eğer elinde 5.00 TL'lik pul yoksa o pula değer yazamaz.
 

Ekli dosyalar

Ben de bir şeyler yaptım. %100'e yakın sonuca ulaşıyor. Küpür çeşidi azaldıkça sonuca ulaşma ihtimali düşer. Ne kadar çok düşük küpürden olursa sonuca ulaşma ihtimali artar.
 

Ekli dosyalar

Muhammet hocam ve Ömer hocam ellerinize emeklerinize yüreklerinize sağlık. Çok teşekkür ediyorum her ikinize de . Ömer hocam sizin çalışmanızda Toplam hanesinde kuruşları göstermiyor. Muhammet hocam sizin çalışmanızda da tahmini pul kupürü sayısını 21 yerine 50 yapabilirsek ileride çıkabilecek kupurler içinde kullanacak arkadaşlara faydalı olacak kanaatindeyim. Saygılar sunuyorum...
 
Ayrıca kıymetli hocalarım şunu da belirteyim. Gündüzleri bilgisayarımdan mesaj gönderilemediği için yazamadım.
 
ALTINYAYLA' Alıntı:
Muhammet hocam ve Ömer hocam ellerinize emeklerinize yüreklerinize sağlık. Çok teşekkür ediyorum her ikinize de . Ömer hocam sizin çalışmanızda Toplam hanesinde kuruşları göstermiyor. Muhammet hocam sizin çalışmanızda da tahmini pul kupürü sayısını 21 yerine 50 yapabilirsek ileride çıkabilecek kupurler içinde kullanacak arkadaşlara faydalı olacak kanaatindeyim. Saygılar sunuyorum...
Genişletmek için tıkla ...

L1 hücresindeki "... TL'LİK STOK KALDI" kısmını mı söylüyorsunuz acaba?
 
Sayın Okumuş'un müsadeleriyle, elimde kalmasın, hazırladığım belgeyi gönderiyorum. Düzeltmeler yapıldı.

Belge ekte.
 

Ekli dosyalar

Muhammed hocam sizden bir istirhamda bulunacağım bu programda stoktan düş tuşuna bastığımızda ilgili kupürleri düştükten sonra H3 hücresini boşaltmasını istiyorum gerekli düzenlemeyi yapabilmem hususunda yardımınızı rica ediyorum. Selamlarımla...
 
Sub Stoktan_Düş()
If Range("J3") = "" Then Exit Sub
son = Cells(Rows.Count, 10).End(3).Row
For i = 3 To son
x = WorksheetFunction.Match(Cells(i, 10), Range("B1:B100"), 0)
Cells(x, 3) = Cells(x, 3) - Cells(i, 11)
Next
Range("H3") = ""
End Sub
Genişletmek için tıkla ...

Kırmızı renkli kısmı ilave ediniz.
 
Muhammet Okumuş Hocam'ın da Ömer Baran Hocam'ın da çalışmaları gerçekten harika olmuş. Ellerinize sağlık.

Muhammet Hocam sizin kodlamanızda D sütununda toplam tutarlar 1 TL nin altına düşünce tutar görünmüyor ama Genel Toplama (D25) dahil oluyor.

Mesela; 10, 20, 35 kuruşluk küpürler var. 10 kuruş 10 adetin altına düşünce d sütünunda toplam boş gözüküyor. Yine de bu çok önemli bir problem değil.

Bir de stokdan düştüğü her miktarı ayrı bir sütunda düştüğü tarih ve saat otomatik listelemesi güzel olurdu.
 
Neredeyse 3 yıl geçmiş üzerinden. İsteğe göre düzenlemeler yapmıştım. Dosyayı tekrardan incelemek, mantığını anlamak gerek.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst