sipariş uygulaması

[yeniaslan]

ekli dosyada bir sipariş ve stok uygulaması hazırladım. hazırladığım çalışma kitabında stok konusunu hallettim. seçilen gramaj ve sıklık oranında ki siparişlerin ayrı sütunlarda gözükmesini sağlayamadım yardımlarınızı bekliyorum. teşekkürler.

 

[yeniaslan]

bir fikir verecek kimse yok mu?

 

[YUSUF44]

Maalesef dosyanızdan ne yapmaya çalıştığınız anlaşılmıyor. Hangi veri hangi hücreye neye göre gelecek anlayamadım. Konuyu hiç bilmeyen bizim gözümüzle incelerseniz siz de bu durumu görebilirsiniz.

Daha açık bir anlatım yapıp, hangi hücreye hangi verinin neye göre gelmesi gerektiğini belirtmenizi tavsiye ederim.

 

[yeniaslan]

Maalesef dosyanızdan ne yapmaya çalıştığınız anlaşılmıyor. Hangi veri hangi hücreye neye göre gelecek anlayamadım. Konuyu hiç bilmeyen bizim gözümüzle incelerseniz siz de bu durumu görebilirsiniz.

Daha açık bir anlatım yapıp, hangi hücreye hangi verinin neye göre gelmesi gerektiğini belirtmenizi tavsiye ederim.

peki üstadım. biraz karışık olduğunun farkındayım. dilimin döndüğü kadarı ile anlatayım.

sayfa 2 ye verilen siparişler sırası ile tarih, sipariş numarası,müşteri adı ve şehri ( bu sütunu eklemeyi unutmuşum ), ürün gramajı, ürün sıklık oranı, ve en üstte en ( ebat ) ölçüsü altındaki renklere sipariş miktarı yazılacak.

sayfa 3 te ise kırmızı olan hücreye gramaj, sarı olan hücreye ise sıklık oranı yazılacak. bu veriler yazıldığı zaman f sütunundan itibaren yazmış olduğumuz gramaj ve sıklık oranı ile eşleşen siparişler her sütunda bir müşterinin siparişi olacak şekilde aşağı doğru yazılmasını yapmaya çalıştım. düşey ara ile tarihi ve sipariş numarasını getirmeyi başardım ama sonrası malum. yapmaya çalıştığım işlemi göstermek için ise 1. - 4. ve 5. siparişler aynı gramaj ve sıklıkta yazdım f sutunundaki 1-2-3-4 ( 1. sipariş ), g sütunundaki 13-14-15-16 ( 4. sipariş ), h sütunundaki 17-18-19-20 ( 5. sipariş ) olması lazım. ayrıca olmayan siparişler boş gözükmesi lazım. yani 3 kişinin siparişi var ise 3 sütun, 20 sipariş var ise 20 sütun olacak. umarım anlatabilmişimdir.
şimdiden teşekkür ederim.

 

[YUSUF44]

Dosyanızın olması gereken hali örneğinizdeki gibi midir? Eğer öyleyse neden F2:F6 arasında ve G2'de 1 yazıyorken G3:G6 arası boş? NEden H1'de tarih olmadığı halde H7:H10'da veri var? Neden H2:H6 boş?

Eğer olması gereken hal böyle değilse dosyanızda bir ya da 2 tane elle düzenlenmiş sonuç paylaşır mısınız?

 

[yeniaslan]

anlatmaya çalıştım.

 

[YUSUF44]

Aşağıdaki makroyu bir modüle kopyalayıp deneyiniz:

Sub siparisler()
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Sayfa3")
s2.[F1:AZ1000].ClearContents
son = WorksheetFunction.Max(s1.Cells(Rows.Count, "B").End(3).Row, 5)
gr = s2.[B2]
sk = s2.[B3]
If gr = "" Or sk = "" Then
    MsgBox "Lütfen Gramaz ve Sıklık Değerlerini kaydettikten sonra makroyu tekrar çalıştırınız!", vbInformation
    Exit Sub
End If
Application.ScreenUpdating = False
    For i = 5 To son
        If s1.Cells(i, "F") = gr And s1.Cells(i, "G") = sk Then
            yeni = s2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
            s2.Cells(1, yeni) = s1.Cells(i, "B")
            s2.Cells(2, yeni) = s1.Cells(i, "C")
            s2.Cells(3, yeni) = s1.Cells(i, "D")
            s2.Cells(5, yeni) = s1.Cells(i, "E")
            s2.Cells(7, yeni) = s1.Cells(i, "H")
            s2.Cells(8, yeni) = s1.Cells(i, "I")
            s2.Cells(9, yeni) = s1.Cells(i, "J")
            s2.Cells(10, yeni) = s1.Cells(i, "K")
        End If
    Next
Application.ScreenUpdating = True
End Sub

 

[yeniaslan]

Aşağıdaki makroyu bir modüle kopyalayıp deneyiniz:

Sub siparisler()
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Sayfa3")
s2.[F1:AZ1000].ClearContents
son = WorksheetFunction.Max(s1.Cells(Rows.Count, "B").End(3).Row, 5)
gr = s2.[B2]
sk = s2.[B3]
If gr = "" Or sk = "" Then
    MsgBox "Lütfen Gramaz ve Sıklık Değerlerini kaydettikten sonra makroyu tekrar çalıştırınız!", vbInformation
    Exit Sub
End If
Application.ScreenUpdating = False
    For i = 5 To son
        If s1.Cells(i, "F") = gr And s1.Cells(i, "G") = sk Then
            yeni = s2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
            s2.Cells(1, yeni) = s1.Cells(i, "B")
            s2.Cells(2, yeni) = s1.Cells(i, "C")
            s2.Cells(3, yeni) = s1.Cells(i, "D")
            s2.Cells(5, yeni) = s1.Cells(i, "E")
            s2.Cells(7, yeni) = s1.Cells(i, "H")
            s2.Cells(8, yeni) = s1.Cells(i, "I")
            s2.Cells(9, yeni) = s1.Cells(i, "J")
            s2.Cells(10, yeni) = s1.Cells(i, "K")
        End If
    Next
Application.ScreenUpdating = True
End Sub

öncelikle emeğiniz için teşekkür ederim, ama bizde macro çalıştıramıyoruz. wps programının ücretsiz versiyonunu kullanıyoruz. formül ile yapabileceğimiz bir yolu var ise çok makbule geçer. teşekkür ederim.

 

[YUSUF44]

Formülle yapılır muhtemelen ama ben nasıl olur bilmiyorum. Ayrıca yapılabileceğini düşündüğüm "dizi formülünün" bahsettiğiniz WPS programında düzgün çalışıp çalışmayacağını da bilmiyorum maalesef.

 

[yeniaslan]

Formülle yapılır muhtemelen ama ben nasıl olur bilmiyorum. Ayrıca yapılabileceğini düşündüğüm "dizi formülünün" bahsettiğiniz WPS programında düzgün çalışıp çalışmayacağını da bilmiyorum maalesef.

ZAHMETLİ OLDUM TEŞEKKÜR EDERİM.