AYNI KAYITLARI RAPORLAMAK

[oerbas]

Herkese selamlar

Arkadaşlar şu anda bizim için çok önemli bir konuda yardımlarınızı istiyorum

Kayıtlar veri sayfasında tutulmaktadır. Birden fazla yapılan kayıtları süzüp veri sayfasındaki format gibi sayfa2 de raporlanmasını istiyorum. Alınan raporda aynı kayıtlar alat alta gelecek şekilde olmalı yardımlarınıza gerçekten çok ihtiyacım var yardımcı olacak arkadaşlara şimdiden teşekkür ederim


Ã?rneğin
veri sayfası
a 1 MASA
b 2 DOLAP
a 1 MASA
c 3 SANDALYE
x 4
b 2 DOLAP
c 3 SANDALYE
y 5

sayfa 2
a 1 MASA
a 1 MASA
b 2 DOLAP
b 2 DOLAP
c 3 SANDALYE
c 3 SANDALYE






örnek dosya ektedir.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:b25b01290e]Sub mukerrer()
Set s1 = Sheets("veri")
Set s2 = Sheets("çift kayıt")
s2.[a2:z65536].ClearContents
For a = 2 To s1.[b65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("b2:b" & a), s1.Cells(a, 2)) = 1 Then
c = c + 1
For b = 1 To 21
s2.Cells(c + 1, b) = s1.Cells(a, b).Value
Next
End If
Next
MsgBox "KAYITLAR AKTARILDI"
End Sub
[/vb:1:b25b01290e]

 

[oerbas]

Hocam eksik anlattım galiba

Amacımız Aynı sözleşme nolu aboneye yapılan işlemleri gözlemlemek. Bir sorggulama programıyla aldığımız bir rapor var burada yaklaşık 5 bin kayıt var.
bu raporu Excel' atacağız ve buradanda

Ã?rneğin 12345612 sözşleşme nolu aboneye 10/01/2005 tarihinde ceza kesilmiş 15/03/2005 tarihinde suyu kesilmiş 25/05/2005 tarihinde de suyu açılmış 12/12/2005 tarihinde tesise ek sözleşme yapılmış şimde ben veri sayfasından sorgulama yaptığım zaman çift olanlar sayfasına aktarılırken tüm bu kayıtların alt alta gelmesi gerekiyor. Kısacası A sütünuna göre çift olan kayıtların tarattırılacak ve çift olanlar sayfasında aynı kayıtlar alt alta gelecek. Ayrıcı Çift olanlar sayfasında diğer tek olan kayıtlar gözükmeyecek.

 

[oerbas]

Hocam gönderdiğiniz kod'un aşağıdaki satırında ufak bir değişiklik yaptım

If WorksheetFunction.CountIf(s1.Range("b2:b" & a), s1.Cells(a, 2)) = 2 Then

Böyle olunca çift kayıtlar seçiliyor ve çift kayıtlar sayfasına atılıyor. Burada tek olan kayıtlarda çift kayıtlar sayfasında gözükmüyor. Mesele Çift olan kayıtlar seçilip tek kayıt olarak değilde çift olan kayıtların tamamının aktarılması

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:fa246809e1]If WorksheetFunction.CountIf(s1.Range("b2:b65536"), s1.Cells(a, 2)) > 1 Then
[/vb:1:fa246809e1]

 

[oerbas]

Hocam mesaiye başladığım şu saatlerde öncelikli yapacağım işlerin başında size teşekkür mesajı yazmak geliyordu.

Alakanıza teşekkür ediyorum hayırlı çalışmalar.