Stok Çıkış sisteminde boş olan hücrelerin verilerini eklememek.

[Kavinsky]

Üstatlar herkese merhaba.
Benim stok çıkış sistemim de mevcut olan sistemde , çıkış yapılacak ürünlerin ya da ürünün gerekli bilgileri giriliyor ve çıkış yapılıyor. Fakat şöyle bir problemim var ; 6 adet ürün çeşidi için satır yaptım dolu olanları aynı şekilde güzelce alıp PERSPEKTİF sayfasına yapıştırıyor, fakat boş olan ürünlerin bilgilerini de yapıştırıyor. Örnekte göreceksiniz ben 3 adet ürün için çıkış yaptım fakat 6 adet şirket ismi ve fatura numarasını yapıştırıyor. Boş olanı yapıştırmama olayına bilgim yetersiz geldiği için biraz eski usûl kopyala yapıştır mantığıyla gittim. Hatta her satır için fatura no ve şirket ismi ve tarihi tek tek yapıştırıyor. Mantığı umarım anlatabilmişimdir.Dosya aşağıda ektedir perspektif sayfasına baktığınız da demek istediğimi çok daha rahat anlayacaksınız. Hatta aklınıza kodun pratikleşmesi ile alakalı bir şey gelirse yardımlarınızı bekliyorum. Şimdiden çok teşekkür ederim.

http://dosya.co/55mjswjbud0p/Kitap1.xlsm.html

 

[Ömer BARAN]

Merhaba.

Yanlış anlamıyorsam sayfadaki düğme ile aşağıdaki kod blokunu ilişkilendirdiğinizde istediğiniz işlem gerçekleşir.
-- Fatura Seri-Sıra No bilgisi FATURA sayfası C5 hücresinden alınır.
-- Aktarma sonrasında, YÜKLEME sayfasındaki dolu hücreler (A:E sütunu) ile
F2 hücresi yeni bilgi girişi için hazır olması bakımından boşaltılır.
-- F3 ve altındaki hücrelerdeki bilgileri formülle çağırdığınızı varsaydığımdan o alanı sildirmedim,
o hücreler de silnecekse kod'daki kırmızı satırdaki hücre adresini F2:F6 olarak değiştirin.
.

[B][COLOR="blue"]Sub AKTAR()[/COLOR][/B]
adet = Sheets("YÜKLEME").Cells(Rows.Count, 1).End(3).Row - 1
If adet > 1 Then
    Sheets("YÜKLEME").Range("A2:D" & adet + 1).Copy
        psat = Sheets("PERSPEKTİF").Cells(Rows.Count, 12).End(3).Row + 1
        Sheets("PERSPEKTİF").Cells(psat, 12).PasteSpecial Paste:=xlPasteValues
    For sat = psat To psat + adet - 1
        Sheets("PERSPEKTİF").Cells(sat, "P") = Sheets("YÜKLEME").[F2]
        Sheets("PERSPEKTİF").Cells(sat, "Q") = Sheets("YÜKLEME").[G1]
        Sheets("PERSPEKTİF").Cells(sat, "R") = Sheets("FATURA").[C5].Value
    Next
    Sheets("YÜKLEME").Range("A2:E" & adet + 1).ClearContents
    [COLOR="Red"]Sheets("YÜKLEME").[F2].ClearContents[/COLOR]
    MsgBox "Bilgiler, PERSPEKTİF sayfasına aktarıldı."
End If
[B][COLOR="Blue"]End Sub[/COLOR][/B]

 

[Kavinsky]

Üstat ellerine sağlık istediğim gibi olmuş fakat bir adet ürün aktarmak istediğimde yapmıyor iki ve üzeri ürün olursa aktarıyor perspektife. Onu da

If adet > 1 Then

1 değerini 0 yaparak çözdüm ellerine sağlık.