İSTATİSTİK SAYFASINA KOŞULLU VERİ AKTARMA(AYLIK İSTATÃ

[Ongun]

Selamlar, yukarıdaki kodlara göre istatistik sayfasına bilgileri getirebiliyoruz.

Peki birden fazla sayfada farklı sütunlarda ki verileri istatistik sayfasının seçtiğim ilgili diger hücrelerine de yazdırılmasını saglamak için kodları nasıl düzenleyebiliriz.

ilginize şimdiden teşekkür eder, saygılar sunarım. Bana bu konuda da bilgi verirseniz beni mutlu edersiniz. saglıkla kalın. :hey:

 

[Ongun]

Düzenlemeyi bu kodlara göre yapabilirmiyiz. Teşekkürler.

birden fazla sayfada farklı sütunlarda ki verileri istatistik sayfasının seçtiğim ilgili diger hücrelerine de yazdırılmasını saglamak için kodları nasıl düzenleyebiliriz.

Private Sub ComboBox1_Change()
Sheets("İSTATİSTİK").Select
Dim Yüzler As String
Dim Onlar As String
Dim Besler As String
Dim Donem As String
Dim a As Integer, say As Integer, ffc As Integer, ffd As Integer, ffe As Integer
Dim bb As Integer, cc As Single, dd As Single, ee As Single, ff As Integer
Dim bbc As Single
Dim bbd As Single
Dim bbe As Single
ReDim Adlar(100)
Set s1 = Sheets("İSTATİSTİK")
Set s2 = Sheets("TEMİNAT")
s1.[B511].ClearContents
s1.[a2] = ComboBox1.Value
For a = 2 To s2.Cells(65536, 2).End(xlUp).Row
If Year(s2.Cells(a, 11)) & " " & UCase(Format(s2.Cells(a, 11), "mmmm")) = ComboBox1.Value Then
For say = 1 To bb
If Adlar(say) = s2.Cells(a, 2) Then GoTo BIR
Next say
If say = bb + 1 Then
Adlar(say) = s2.Cells(a, 2)
bb = bb + 1
End If
BIR:
cc = cc + s2.Cells(a, 6).Value

ff = ff + 1
If s2.Cells(a, 6).Value > 0 Then
bbc = bbc + 1
ffc = bbf + 1
End If

End If
Next a
For i = 5 To 5
Cells(i, 2) = bb
Cells(i, 3) = ff
Next i
Cells(5, 4) = Round(cc, 2)
End Sub

Private Sub UserForm_Initialize()
Set s1 = Sheets("TEMİNAT")
For a = 2 To s1.Cells(65536, 2).End(xlUp).Row

If WorksheetFunction.CountIf(Range("B2:B" & a), Cells(a, 2)) = 1 Then
ComboBox2.AddItem s1.Cells(a, 2).Value
End If
Next
ComboBox2.Visible = True
For yıl = 2005 To 2005
For b = 1 To 12
ComboBox1.AddItem yıl & " " & UCase(Format("01." & b & ".2005", "mmmm"))
Next
Next
End Sub