Vba'da Toplama işlemi

[vanetta]

Merhabalar,

Bir excel dosyasında 2 sayfam var 1. sayfa Analiz 2. Sayfa Ankara depo adıyla

Analiz Sayfasında A2 "Ürün Kodu", B2 "Gönderilen Miktar", C2 "Satılan Miktar"
Ankara Depo Sayfasında A1 "Ürün Kodu", B1 "Stok Miktarı"

Benim sorum Ankara Depo Sayfasında ki her bir ürün kodunun aynısını Analiz sayfasında bulduğunda ankara depo sayfasındaki ürünün "Stok Miktarı" ile analiz sayfasındaki aynı ürünün satılan miktarını toplayıp "Gönderilen Miktar" sütununda ki hücreye yazması

 

[Muzaffer Ali]

Merhaba. Örnek dosya hazırlamalısınız.

 

[vanetta]

Merhaba. Örnek dosya hazırlamalısınız.

Excel dosyamı buraya nasıl ekleyeceğimi bir türlü bulamadım. Nereden ekleyeceğim dosyayı ?

 

[Necdet]

Merhaba,
Dosya ekleyebilmek ve dosyaya erişebilmek için altın üye olmalısınız.

Dosyanızı dosya yükleme sitelerinden birine yükleyebilirsiniz.

Büyük Dosyalar Gönderme - Dosya Paylaşımı - TransferNow

Transfer başına 250 GB'a kadar büyük dosyaları göndermek ve paylaşmak için en kolay, en hızlı ve en güvenli ücretsiz dosya aktarım çözümü. Kayıt gerekmez.

www.transfernow.net

Dosya Upload - Dosya Yükle indir

Ücretsiz olarak dosya upload edebileceğiniz dosya yükleme sitesi. Hızlı dosya yükle ve paylaş.

www.dosyaupload.com

Send Large Files Free - Fast Secure File Transfer - Filemail

Send large files free via email and links. Paid accounts share files of any size. Fast secure online file transfer using our file sharing site & apps.

www.filemail.com

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[vanetta]

Merhaba,
Dosya ekleyebilmek ve dosyaya erişebilmek için altın üye olmalısınız.

Dosyanızı dosya yükleme sitelerinden birine yükleyebilirsiniz.

Büyük Dosyalar Gönderme - Dosya Paylaşımı - TransferNow

Transfer başına 250 GB'a kadar büyük dosyaları göndermek ve paylaşmak için en kolay, en hızlı ve en güvenli ücretsiz dosya aktarım çözümü. Kayıt gerekmez.

www.transfernow.net

Dosya Upload - Dosya Yükle indir

Ücretsiz olarak dosya upload edebileceğiniz dosya yükleme sitesi. Hızlı dosya yükle ve paylaş.

www.dosyaupload.com

Send Large Files Free - Fast Secure File Transfer - Filemail

Send large files free via email and links. Paid accounts share files of any size. Fast secure online file transfer using our file sharing site & apps.

www.filemail.com

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Transfer expired – TransferNow

Click to download the files for this transfer with TransferNow

www.transfernow.net

 

[vanetta]

Merhaba. Örnek dosya hazırlamalısınız.

Transfer expired – TransferNow

Click to download the files for this transfer with TransferNow

www.transfernow.net

 

[Muzaffer Ali]

Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub Topla()
    Dim syfDepo As Worksheet
    Dim syfAnaliz As Worksheet
    Dim Bak As Long
    Dim Bul As Range
    
    Set syfAnaliz = Worksheets("Analiz")
    Set syfDepo = Worksheets("Ankara Depo")
    
    For Bak = 2 To syfDepo.Cells(Rows.Count, "A").End(xlUp).Row

        Set Bul = syfAnaliz.Range("A:A").Find(What:=syfDepo.Cells(Bak, "A"), LookAt:=xlWhole)
        If Not Bul Is Nothing Then
            Bul(1, "B") = syfDepo.Cells(Bak, "B") + Bul(1, "C")
        End If
    Next
    MsgBox "Tamamlandı.", vbInformation
End Sub

 

[vanetta]

Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub Topla()
    Dim syfDepo As Worksheet
    Dim syfAnaliz As Worksheet
    Dim Bak As Long
    Dim Bul As Range
   
    Set syfAnaliz = Worksheets("Analiz")
    Set syfDepo = Worksheets("Ankara Depo")
   
    For Bak = 2 To syfDepo.Cells(Rows.Count, "A").End(xlUp).Row

        Set Bul = syfAnaliz.Range("A:A").Find(What:=syfDepo.Cells(Bak, "A"), LookAt:=xlWhole)
        If Not Bul Is Nothing Then
            Bul(1, "B") = syfDepo.Cells(Bak, "B") + Bul(1, "C")
        End If
    Next
    MsgBox "Tamamlandı.", vbInformation
End Sub

Çok teşekkür ederim elinize ve bilginize sağlık

 

[vanetta]

Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub Topla()
    Dim syfDepo As Worksheet
    Dim syfAnaliz As Worksheet
    Dim Bak As Long
    Dim Bul As Range
   
    Set syfAnaliz = Worksheets("Analiz")
    Set syfDepo = Worksheets("Ankara Depo")
   
    For Bak = 2 To syfDepo.Cells(Rows.Count, "A").End(xlUp).Row

        Set Bul = syfAnaliz.Range("A:A").Find(What:=syfDepo.Cells(Bak, "A"), LookAt:=xlWhole)
        If Not Bul Is Nothing Then
            Bul(1, "B") = syfDepo.Cells(Bak, "B") + Bul(1, "C")
        End If
    Next
    MsgBox "Tamamlandı.", vbInformation
End Sub

Tekrardan Merhaba,

Gerçek verilerle çalışmaya başladığımda bir sıkıntı çıktı

1. Muhasebe programından Ankara Depo sayfasındaki değerleri otomatik çekiyorum. Eğer ürün stoğu 0 ise muhasebe programı kodu getirmiyor. Bu sebepten dolayı Analiz sayfasında "SARI" ile işaretlediğim satırdaki B11 hücresini boşluk olarak alıyor. Böyle bir durumda Gönderilen Miktar; Satılan Miktara eşit olması gerekmektedir.
2. Sizden ricam Analiz sayfasındaki Kalan Miktar sütununu otomatik getirsin.
3. Stok seviyesi diye 3. bir sayfa açtım. Buraya her kodun stok seviyelerini giriyorum. Bu girdiğim değerlere göre Analiz sayfasındaki Sipariş durumu kolonuna, kalan miktar stok seviyesinden küçük ise hücre rengini kırmızı yapıp sipariş ver yazısını yazsın.

Sizi çok yoruyorum sanırım. Yardımcı olursanız minnettar olacağım. Örnek dosya linki aşağıda. Şimdiden teşekkürler.

Transfer expired – TransferNow

Click to download the files for this transfer with TransferNow

www.transfernow.net

 

[Muzaffer Ali]

Dosyanız ekte.
Hücre rengi Koşullu Biçimlendirme ile yapıldı.

Ankara_Depo_Analizi.xlsm dosyasını indir - download

Ankara_Depo_Analizi.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc