İki ayrı sayfadaki verilerin tek sayfada raporlanması.

[İsmail Küçükşengün]

Merhabalar;

Sayın Leventm’in yaptığı aşağıdaki kod ile, “liste (2)” sayfasındaki “t” sütunu dolu olanlar (bu sütunda veri olanlar) “mahkeme” sayfasına, tarih sırasına göre sıralanmaktadır. (Rapor alınmaktadır.)

On Error Resume Next
Set s1 = Sheets("liste (2)")
Set S2 = Sheets("mahkeme")
S2.[a3:f65536].ClearContents
For a = 2 To s1.[a65536].End(3).Row
If s1.Cells(a, "t") <> 0 Then
c = c + 1
S2.Cells(c + 2, "a") = s1.Cells(a, "g")
S2.Cells(c + 2, "b") = s1.Cells(a, "a")
S2.Cells(c + 2, "c") = s1.Cells(a, "h")
S2.Cells(c + 2, "d") = s1.Cells(a, "q")
S2.Cells(c + 2, "e") = s1.Cells(a, "r")
S2.Cells(c + 2, "f") = s1.Cells(a, "t")
End If
Next
S2.Select
Range("A3:G120").Select
Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select

UserForm_Initialize
ListBox1.RowSource = "mahkeme!a3:f" & [mahkeme!f65536].End(3).Row
MsgBox "TÜM (Mahkemeler) DURUŞMA LİSTESİ RAPORLAMA SAYFASINA YAZILDI."
End Sub



Ayrıca liste adlı sayfam var. Bu sayfadan da “u” adlı sütunda veri varsa, bunlar da, ayrıca
Raporlar adlı sayfaya aktarılmaktadır. (rapor alınmaktadır.

Private Sub CommandButton76_Click()
On Error Resume Next
Set s1 = Sheets("liste")
Set S2 = Sheets("raporlar")
S2.[a3:f65536].ClearContents
For a = 2 To s1.[a65536].End(3).Row
If s1.Cells(a, "u") <> 0 Then
c = c + 1
S2.Cells(c + 2, "a") = s1.Cells(a, "q")
S2.Cells(c + 2, "b") = s1.Cells(a, "a")
S2.Cells(c + 2, "c") = s1.Cells(a, "b")
S2.Cells(c + 2, "d") = s1.Cells(a, "s")
S2.Cells(c + 2, "e") = s1.Cells(a, "t")
S2.Cells(c + 2, "f") = s1.Cells(a, "u")

End If
Next
S2.Select
Range("A3:G120").Select
Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select

UserForm_Initialize
ListBox1.RowSource = "raporlar!a3:f" & S2.[f65536].End(3).Row
MsgBox "TÜM İcra Ceza DURUŞMA LİSTESİ RAPORLAMA SAYFASINA YAZILDI. "
End Sub



SORUNUM:

Yukarıda yazdığım ik adet kodun 1’ e indirilerek, her iki sayfadaki ; “liste” sayfasının “u”
“liste (2)” sayfasının “t” sütununda veri varsa bunların “mahkeme” sayfasına aktarımı:

Mahkeme sayfasına ;
A 3.ten itibaren liste(2) nin G sütunundaki ve liste’nin Q sütunundaki verilerin,
B “ “ “ A “ “ A “
C “ “ “ H “ “ B “
D “ “ “ Q “ “ S “
E “ “ “ R “ “ T “
F “ “ “ T “ “ U “ verilerin

Yukarıdaki kodlara uygun olarak listelenmesi için KOD’un nasıl olması gereklidir.

İlgilenenlere şimdiden teşekkürlerimi sunarım.

 

[İsmail Küçükşengün]

Bir fikir veren olabilir mi?