Excelde birden çok veri seçerek toplatma

[mercanbeyi]

Arkadaşlar 1. Bölge ve 2. Bölge illere sevkiyat ürün listam var .
Izmir ilinden 1. Illere ve 2. Illere sevk edilen
aynı zamanda izmir iline 1. Bölgeden ve 2. Bölgeden gelen ürünleri toplatmam lazım excel tablosunu yükleyemedim yardım edin

 

[Emir Hüseyin Çoban]

. . .

-- altın üye olmayanlar örnek belgeyi dosya.tc, dosya.co, dosyayukleyin.com gibi bir siteye yükleyip, belgeye erişim bağlantı adresini paylaşabilir.

. . .

 

[mercanbeyi]

http://dosya.co/mexy8y1v2ypp/ÜRÜN.xlsx.html
dosyam bu teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Örneğin Şırnak 2 listede de yok. Tablonuzdaki hata mı yoksa listede olmama durumu var mı.
Sonuçlarıda elle yazsaydınız yardımcı olurdu...

. . .

 

[mercanbeyi]

1. ve 2. bölge illeri rastgele yazdım . formulü veya nasıl yapılacağını öğrenebilirsem ekleme ve çıkartmaları kendim yapabilirim.

 

[Emir Hüseyin Çoban]

. . .

Sevkler için aşağıdaki kodları test ediniz.

Sub kod()

For Each alan In Range("L3:U4")
If Not IsNumeric(alan) Then
If WorksheetFunction.CountIf(Range("AJ:AJ"), alan) > 0 Then
sevkbir = sevkbir + alan.Offset(0, 1)
Else
If WorksheetFunction.CountIf(Range("AL:AL"), alan) > 0 Then
sevkiki = sevkiki + alan.Offset(0, 1)
End If
End If
End If
Next

Range("J3") = sevkbir
Range("K3") = sevkiki


End Sub

. . .

 

[mercanbeyi]

çok sağol hocam peki 1. bölgeden gelen ürün ve 2. bölgeden gegln ürünler içinde aynı makroyu yapabilirmisin

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

For Each alan In Range("L3:U4")
If Not IsNumeric(alan) Then
If WorksheetFunction.CountIf(Range("AJ:AJ"), alan) > 0 Then
sevkbir = sevkbir + alan.Offset(0, 1)
Else
If WorksheetFunction.CountIf(Range("AL:AL"), alan) > 0 Then
sevkiki = sevkiki + alan.Offset(0, 1)
End If
End If
End If
Next
Range("J3") = sevkbir
Range("K3") = sevkiki
'''
For Each alan In Range("V3:AG4")
If Not IsNumeric(alan) Then
If WorksheetFunction.CountIf(Range("AJ:AJ"), alan) > 0 Then
gelenbir = gelenbir + alan.Offset(0, 1)
Else
If WorksheetFunction.CountIf(Range("AL:AL"), alan) > 0 Then
geleniki = geleniki + alan.Offset(0, 1)
End If
End If
End If
Next
Range("H3") = gelenbir
Range("I3") = geleniki

End Sub

. . .

 

[mercanbeyi]

hocam teşekkür ederim Allah razı Olsun O kadar Uğraş Verdim ama bu kodları Kendi Çalışma Sayfama Entegre Edemedim. Örnek Olarak sadece İzmiri attım Ama 81 il var bu şekilde bazılarında 1. bölgeden gelen sevk yok bazılarında 2, bölgeye giden sevk yok. Makro Değilde Formül Olarak Yapabileceğimiz Başka Yolu Yokmu , Sen Profesyonel olarak Kod Yazmışsın Ama o kodu anlacak Delikanlı Yok burda

 

[Emir Hüseyin Çoban]

.

Imzamdaki ornek dosya olusturma linkindeki konuyu okuyup, ona gore bir ornek yukleyiniz.

.