Ba-bs raporu hazırlama

[muratkul]

Merhaba,
Ben iki farklı ticari programdan ba-bs raporu çekiyorum.(müşterilere kestiğimiz aylık fatura adedi ve tutarı raporu).bunları excelde birleştiriyorum ve ÖZET TABLO ile vergi dairelerini baz alıp raporu yapıyorum fakat, Bir ticari programda kayıt C MARKET diye açılmışsa öbür ticari programda C1 MARKET diye açılmış. böyle olunca da vergi numarası aynı olduğu halde ünvan farklı göründüğü için toplamları birleştirmiyor ayrı ayrı gösteriyor.
Benim istediğim vergi dairesi ve tc kimlik numarasına göre karşılaştırıp mükerrer kayıtları tek kayıt oluşturup fatura sayılarını ve fatura tutarlarını toplayarak rapor hazırlamasını istiyorum.
Örnek tablom ektedir.
Yardımlarınız için şimdiden teşekkür ederim.

 

[muygun]

Merhaba;
Örnek verilerinize göre uygulamayı hazırladım.
Eki deneyin.
İyi çalışmalar.

 

[muratkul]

Merhaba muygun.
Öncelikle teşekkür ederim. tam istediğim gibi olmuş. Fakat vergi numarasını b değilde c sutununa göre tekrar düzenleyebilirmisiniz.yani sıralama aşağıdaki gibi, yada örnek dosyamdaki satış ciro sayfamdaki gibi. Size zahmet


Müşteri ID Ünvan Vergi Dairesi Vergi No TC Kimlik No Fatura Sayısı Net

 

[muygun]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

 

[muratkul]

Burada anladığım kadarıyla Satış noktası ciro sayfasındaki J sutununa dokunyacağız yada üstüne herhangi bir veri girmeyeceğiz galiba.

Çok teşekkür ederim. Emeğinize sağlık.

 

[muratkul]

merhabalar muygun,
kusura bakmayın. dosyayı karıştırırken dosyanın içeri bozuldu galiba.

ben size dosyamın orjinalini özelden göndersem dosyaya göre tekrar güncellermisiniz. rica etsem.

 

[muratkul]

Merhaba muygun.
Sizin yaptığınız dosya çalışıyor problem görünmüyor ama ben kendi bilgilerimi kopyaladığımda ve ve GETİR butonuna bastığımda kayıtlar mükerrer geliyor yani 1.sayfada 3 adet aynı vergi numarasından müşteri varsa rapor tarafına da 3 müşteri görünüyor.
1522133 ABDULLAH GÜNEŞ
823974 ABDULLAH GÜNEŞ

691487 AKIN (ATATÜRK)
691495 AKIN KURUY
517959 AKIN KURUY

GİBİ.
orjinal dosyada müşterilerimizin vergi numaraları ve tc kimlik numaraları olduğu için gizlilik açısından göndermek istemiyorum.

 

[muratkul]

muygun hocam ,
sizin yapmış olduğunuz kod müşteri ıd ye göre işlem yapıyor galiba, müşteri ıd değilde 1.sayfadaki yapmış olduğunuz j sütununa göre işlem yaparsa problem çözülebilir çünkü yukarıda da göründüğü gibi AKIN isimli müşterinin 3 farklı müşteri numarası mevcut ama vergi numaraları ve tcleri aynı.

 

[muratkul]

muygun hocam, ekteki tabloma göre tekrar güncelleyebilirmiisniz. Bu arada Hakkınızı Helal Edin.

 

[muygun]

Merhaba;
Aslında J sütununu hazırlama nedeni mükerrerleri burdan analiz etmekti (Tesadüf ki ID nolarında bir sorun olmayınca tablo doğru doğru sonuç üretmişti.)
Ekteki dosyayı J sütununa göre analiz ettim. (ama yine aynı sonuç çıktı)

Şayet doğru sonuç vermediğini tespit ettiyseniz;
Bu tablonun aynısını ekteki tabloda rapor sayfasında sağ kısmı manuel doldurun ve tabloyu ekleyin.

 

[muratkul]

merhaba muygun hocam,
Bu sefer olmuş gibi görünüyor.
ELinize sağlık.
yine bir sorunla karşılaşırsam rahatsız edebilirmiyim. ?
hakkınızı helal edin. Kusura bakmayın emeğinize sağlık.

 

[halit3]

Alternatif kod

Sub getir2()


sayf1 = "satis_noktasi_ciro 1 "
sayf2 = "rapor"


Worksheets(sayf2).Range(Worksheets(sayf2).Cells(3, "a"), Worksheets(sayf2).Cells(Rows.Count, "I")).ClearContents

son1 = Sheets(sayf1).Cells(Rows.Count, "a").End(3).Row
sat = 3

ReDim ara1(son1): ReDim ara2(son1):: ReDim ara3(son1):

For j = 2 To son1
ara1(j) = WorksheetFunction.Trim(Sheets(sayf1).Cells(j, "d"))
ara2(j) = WorksheetFunction.Trim(Sheets(sayf1).Cells(j, "e"))
ara3(j) = 1
Next j

For r = 2 To son1
aranan1 = ara1(r)
aranan2 = ara2(r)

say1 = 0
say2 = 0
say3 = 0

For i = r To son1
If ara3(i) = 1 Then
bulunan1 = ara1(i)
bulunan2 = ara2(i)

If aranan1 = bulunan1 And aranan2 = bulunan2 Then

say1 = say1 + CDbl(Sheets(sayf1).Cells(i, "f").Value)
say2 = say2 + CDbl(Sheets(sayf1).Cells(i, "g").Value)
ara3(i) = 0
say3 = say3 + 1
End If
End If

Next i

If say3 > 0 Then

Sheets(sayf2).Cells(sat, "a").Value = Sheets(sayf1).Cells(r, "a").Value
Sheets(sayf2).Cells(sat, "b").Value = Sheets(sayf1).Cells(r, "b").Value
Sheets(sayf2).Cells(sat, "d").Value = Sheets(sayf1).Cells(r, "d").Value
Sheets(sayf2).Cells(sat, "e").Value = Sheets(sayf1).Cells(r, "e").Value

Sheets(sayf2).Cells(sat, "f").Value = say1
Sheets(sayf2).Cells(sat, "g").Value = say2

Sheets(sayf2).Cells(sat, "h").Value = Sheets(sayf1).Cells(r, "h").Value
Sheets(sayf2).Cells(sat, "ı").Value = Sheets(sayf1).Cells(r, "ı").Value

sat = sat + 1
End If

Next r
atla1:

MsgBox "İşleminiz tamamlanmıştır."

End Sub

 

[muratkul]

Teşekkürler Halit HOcam.

 

[muratkul]

Halit Hocam Sizin kod da Vergi Dairelerini yazmıyor. boş geçiyor, vergi dairelerini yazacak şekilde kodu tekrar güncelleyebilirmiisniz.
Halit hocam, kodu satır4 den başlayacak şekilde tekrar düzeltebilirmiisniz.

 

[halit3]

Başka bir konu daha açmışsınız orayı kilitlemişsiniz.

kod

Sub getir2()


sayf1 = "satis_noktasi_ciro 1 "
sayf2 = "rapor"


Worksheets(sayf2).Range(Worksheets(sayf2).Cells([COLOR="Red"]4[/COLOR], "a"), Worksheets(sayf2).Cells(Rows.Count, "I")).ClearContents

son1 = Sheets(sayf1).Cells(Rows.Count, "a").End(3).Row
[COLOR="red"]sat = 4[/COLOR]

ReDim ara1(son1): ReDim ara2(son1):: ReDim ara3(son1):

For j = 2 To son1
ara1(j) = WorksheetFunction.Trim(Sheets(sayf1).Cells(j, "d"))
ara2(j) = WorksheetFunction.Trim(Sheets(sayf1).Cells(j, "e"))
ara3(j) = 1
Next j

For r = 2 To son1
aranan1 = ara1(r)
aranan2 = ara2(r)

say1 = 0
say2 = 0
say3 = 0

For i = r To son1
If ara3(i) = 1 Then
bulunan1 = ara1(i)
bulunan2 = ara2(i)

If aranan1 = bulunan1 And aranan2 = bulunan2 Then

say1 = say1 + CDbl(Sheets(sayf1).Cells(i, "f").Value)
say2 = say2 + CDbl(Sheets(sayf1).Cells(i, "g").Value)
ara3(i) = 0
say3 = say3 + 1
End If
End If

Next i

If say3 > 0 Then

Sheets(sayf2).Cells(sat, "a").Value = Sheets(sayf1).Cells(r, "a").Value
Sheets(sayf2).Cells(sat, "b").Value = Sheets(sayf1).Cells(r, "b").Value
[COLOR="Red"]Sheets(sayf2).Cells(sat, "c").Value = Sheets(sayf1).Cells(r, "c").Value[/COLOR]
Sheets(sayf2).Cells(sat, "d").Value = Sheets(sayf1).Cells(r, "d").Value
Sheets(sayf2).Cells(sat, "e").Value = Sheets(sayf1).Cells(r, "e").Value

Sheets(sayf2).Cells(sat, "f").Value = say1
Sheets(sayf2).Cells(sat, "g").Value = say2

Sheets(sayf2).Cells(sat, "h").Value = Sheets(sayf1).Cells(r, "h").Value
Sheets(sayf2).Cells(sat, "ı").Value = Sheets(sayf1).Cells(r, "ı").Value

sat = sat + 1
End If

Next r
atla1:

MsgBox "İşleminiz tamamlanmıştır."

End Sub

 

[halit3]

kodu yeniden güncelledim

 

[muratkul]

Halit hocam 4 yapınca düzeldi.Cells(3, "a") Doğru yapmışmıyım.

Worksheets(sayf2).Range(Worksheets(sayf2).Cells([B]3[/B], "a"), Worksheets(sayf2).Cells(Rows.Count, "I")).ClearContents

 

[halit3]

evet doğru olmuş ayrıca bir tane daha vardı dört yapılacak
yukarıdaki mesajımda kırmızı yerler

 

[muratkul]

Çok teşekkür ederim halit ve muygun hocam.
emeğinize sağlık.

 

[muratkul]

Halit Hocam Merhaba,
ba-bs raporu ile ilgili göndermiş olduğunuz kodu yapıştırdım ama H ve I SÜTUNLARININ TOPLAMLARINI ALMIYOR.