iki ayrı sayfadaki raporu birleştirmek

[balabanturk]

Arkadaşlar ,
daha evvel iki sefer aynı konuyu burada yazdım.Ali bey yardımcı oldu fakat çözüm olmadı...
ekli dosyayı incelemenizi rica ediyorum.
İsteğim bu iki raporda aynı olan isimlerin satırlara karşılıklı gelmesi.sayfa1 A1 hücresindeki değer sayfa2 de var ise safya3 te karşılıklı gelmesi.ama burada bitmiyor. bi isimlerin devamındaki hücrelerinde A1 hücresiyle birlikte taşınması . Yani diyelimki A1 hücerisinin devamındaki B1-C1-D1 vs hücrelerininde A1 hücrsiyle birlikte birleştirme sayfasına taşınması.Tabiki sayfa2 de aynı isim mevcut ise bu işlemin aynı şekilde tekrarlanması ve sayfa 3 te karşılıklı gelmeleri.eğer sayfa1 ve sayfa2 de bulunan değerler sadece 1 sayfada bulunuyorsa 3.sayfada karşılığının boş kalması...
herkese saygılar...

 

[Ali]

Ekteki örneği inceleyiniz.

 

[balabanturk]

iki farklı sayfadaki raporların karşılaştırılması

Ali bey , saygılar sunarım. sayf3 de sayfa2 nin mevcutlarını almış olduk sanırım.sayfa1 ile karşılılı oldu.bunun tam tersi de sayfa2 de olup sayfa1 de olmayanları verir .peki sayfa3 de bunları akrşılıklı biraraya getirebilme şansımız varmı?İlginize ve yardımlarınıza teşekkür ederim.
saygılar

 

[balabanturk]

Ali Bey , sanırım bu işlemi formülizasyonla halledemeyeceğim..yazmış olduğunuz formüller işlem yaptı, fakat bizim sorunumuz dahada farklı.bizim stok modülünde kullandığımız kodlama ile muhasebe kodları birbirinden farklı ve daha da kötüsü isimlerde birebir benzeşmiyor.dolayısıyla neye göre neyi bulacak formülizasyon?sizi uğraştırdığım için özür dilerim.iyi çalışmalar

 

[balabanturk]

Ali Bey,
verdiğiniz formüller istenileni yapıyor.Fakat benim sorunum dahada aşılmaz gibi.çünki ,bizim stok modülünde kullanılan kodlama ve isimler muhasebede kullanılan kodlama ve isimlerle uyuşmuyor.ve iş çıkılmaz bir hal alıyor.sizi uğraştırdığım için özür dilerim.
iyi çalışmalar

 

[Orion1]

Bende alternatif olarak kod ile bir şeyler yaptım.
Ekli dosyayı inceleyiniz.

Sub karsilastir_tasi()
Dim k As Range, sat As Long, i As Long
Sheets("rapor1").Select
Application.ScreenUpdating = False
With Sheets("Rapor2")
    Sheets("Sayfa3").Range("A1:K65536").ClearContents
    For i = Cells(65536, "B").End(xlUp).Row To 1 Step -1
        Set k = .Range("B1:B" & .Cells(65536, "B").End(xlUp).Row) _
        .Find(Cells(i, "B").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            sat = sat + 1
            Range("A" & i & ":E" & i).Copy Sheets("Sayfa3").Range("A" & sat)
            Range("A" & i & ":E" & i).Delete (xlUp)
            .Range("A" & k.Row & ":E" & k.Row).Copy Sheets("Sayfa3").Range("G" & sat)
            .Range("A" & k.Row & ":E" & k.Row).Delete
        End If
    Next i
End With
Sheets("Sayfa3").Select
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[Ali]

,bizim stok modülünde kullanılan kodlama ve isimler muhasebede kullanılan kodlama ve isimlerle uyuşmuyor

Böyle bir sıkıntı var ise tüm programlar bu durumda yetersiz kalacaktır. Kıyaslanacak mutlaka bir doğru parametre olmalıdır.

 

[balabanturk]

Bu forumda bilgilerini bizlerle paylaşan bütün arkadaşlara saygılarımı sunarım.bu gerçekten büyük bir hizmet. Ali bey , cari modülden muhasebe kodlarıyla birlikte bir rapor alma modülü eklettik muhasebe programına. verdiğiniz formülde biraz değişiklik yaparak başarılı olduk . Çok Teşekkür ederim .ayrıca Evren Beyin hazırladığı kodları da becerebilirsem sayfalara uyarlamaya çalışacağım. Emeğiniz ve harcadığınız zaman için teşekkür ederim. saygılar sunarım.