Ay bazında veri çekme

[rekormuhendislik]

TOPLAM ' seçtiğimde bu güne kadar olan toplam nakit ve kredi kartı ve bunların toplamını

ayları seçtiğimde ise kimden geldiği önemli değil
ay bazında toplam gelen para nakit - kredi kartı ve toplam para olarak yazsın istiyorum.
kodlar biraz kafamı karıştırdı. Düzenleyebilirseniz çok mutlu olurum.

 

[yanginci34]

Aylara göre getiriyor Toplam için ancak akşam saatlerinde bakabilirim denermisiniz.
Ekli dosyayı görüntüle REKOR SONX.xlsm

 

[rekormuhendislik]

Aylara göre getiriyor Toplam için ancak akşam saatlerinde bakabilirim denermisiniz.
Ekli dosyayı görüntüle 194096

tam istediğim gibi olmuş
kodları değiştirerek yapayım dedim bunu ekledim ama

  If ComboBox5 = "TOPLAM" Then
    TextBox54.Value = Sheets("GELİR").Range("j4").Value
    TextBox55.Value = Sheets("GELİR").Range("L4").Value
    TextBox56.Value = Sheets("GELİR").Range("J6").Value

block ıf withoud end ıf hatası aldım. Çok teşekkür ederim çok mutlu oldum ve akşam olmasını bekliyorum :bravo::bravo:

 

[yanginci34]

yazdığın kodun başını Elseif olarak değiştirin

 

[rekormuhendislik]

Bu sefer de else without ıf hatası alıyorum

 ElseIf ComboBox5 = "TOPLAM" Then
    TextBox54.Value = Sheets("GELİR").Range("j4").Value
    TextBox55.Value = Sheets("GELİR").Range("L4").Value
    TextBox56.Value = Sheets("GELİR").Range("J6").Value

 

[Orion1]

Sonuna end if koyun.

 

[yanginci34]

Dosyayı denermisiniz.
Ekli dosyayı görüntüle REKOR enson.xlsm

 

[rekormuhendislik]

Teşekkür ediyorum. İstediğim gibi olmuş

 

[yanginci34]

Rica ederim dönüş yaptığınız için teşekkürler

 

[rekormuhendislik]

Yanginci34 son bir sorum olucak. Ay bazında veri çekmede listbox'um yok hangi kodları silmeliyim sizce. Listbox'u kaldırdım komple. sadece textboxlara yazdıracağım ?

Private Sub ComboBox5_Change()
Dim myarr(), c As Long, i As Long
Sheets("GELİR").Select
ListBox3.Clear
son = Cells(65536, 3).End(xlUp).Row
ReDim myarr(1 To 11, 1 To son)
For i = 1 To son
If LCase(Replace(Replace(Cells(i, 3).Text, "I", "ı"), "İ", "i")) _
= LCase(Replace(Replace(ComboBox5.Text, "I", "ı"), "İ", "i")) Then
Cells(i, 1).Select
c = c + 1
For Y = 1 To 11
ListBox3.AddItem
myarr(Y, c) = Cells(i, Y).Value
Next
End If
Next
If c > 0 Then
    ReDim Preserve myarr(1 To 11, 1 To c)
    ListBox3.Column = myarr
    End If
    
    If ComboBox5 = "OCAK" Then
    TextBox54.Value = Sheets("GELİR").Range("j10").Value
    TextBox55.Value = Sheets("GELİR").Range("K10").Value
    TextBox56.Value = Sheets("GELİR").Range("L10").Value
    ElseIf ComboBox5 = "ŞUBAT" Then
    TextBox54.Value = Sheets("GELİR").Range("j13").Value
    TextBox55.Value = Sheets("GELİR").Range("K13").Value
    TextBox56.Value = Sheets("GELİR").Range("L13").Value
    ElseIf ComboBox5 = "MART" Then
    TextBox54.Value = Sheets("GELİR").Range("j16").Value
    TextBox55.Value = Sheets("GELİR").Range("K16").Value
    TextBox56.Value = Sheets("GELİR").Range("L16").Value
    ElseIf ComboBox5 = "NİSAN" Then
    TextBox54.Value = Sheets("GELİR").Range("j19").Value
    TextBox55.Value = Sheets("GELİR").Range("K19").Value
    TextBox56.Value = Sheets("GELİR").Range("L19").Value
    ElseIf ComboBox5 = "MAYIS" Then
    TextBox54.Value = Sheets("GELİR").Range("j22").Value
    TextBox55.Value = Sheets("GELİR").Range("K22").Value
    TextBox56.Value = Sheets("GELİR").Range("L22").Value
    ElseIf ComboBox5 = "HAZİRAN" Then
    TextBox54.Value = Sheets("GELİR").Range("j25").Value
    TextBox55.Value = Sheets("GELİR").Range("K25").Value
    TextBox56.Value = Sheets("GELİR").Range("L25").Value
    ElseIf ComboBox5 = "TEMMUZ" Then
    TextBox54.Value = Sheets("GELİR").Range("j28").Value
    TextBox55.Value = Sheets("GELİR").Range("K28").Value
    TextBox56.Value = Sheets("GELİR").Range("L28").Value
    ElseIf ComboBox5 = "AĞUSTOS" Then
    TextBox54.Value = Sheets("GELİR").Range("j31").Value
    TextBox55.Value = Sheets("GELİR").Range("K31").Value
    TextBox56.Value = Sheets("GELİR").Range("L31").Value
    ElseIf ComboBox5 = "EYLÜL" Then
    TextBox54.Value = Sheets("GELİR").Range("j34").Value
    TextBox55.Value = Sheets("GELİR").Range("K34").Value
    TextBox56.Value = Sheets("GELİR").Range("L34").Value
    ElseIf ComboBox5 = "EKİM" Then
    TextBox54.Value = Sheets("GELİR").Range("J37").Value
    TextBox55.Value = Sheets("GELİR").Range("K37").Value
    TextBox56.Value = Sheets("GELİR").Range("L37").Value
    ElseIf ComboBox5 = "KASIM" Then
    TextBox54.Value = Sheets("GELİR").Range("j40").Value
    TextBox55.Value = Sheets("GELİR").Range("K40").Value
    TextBox56.Value = Sheets("GELİR").Range("L40").Value
    ElseIf ComboBox5 = "ARALIK" Then
    TextBox54.Value = Sheets("GELİR").Range("j43").Value
    TextBox55.Value = Sheets("GELİR").Range("K43").Value
    TextBox56.Value = Sheets("GELİR").Range("L43").Value
    ElseIf ComboBox5 = "TOPLAM" Then
    TextBox54.Value = Sheets("GELİR").Range("j4").Value
    TextBox55.Value = Sheets("GELİR").Range("L4").Value
    TextBox56.Value = Sheets("GELİR").Range("J6").Value
    
   End If
   
End Sub

 

[yanginci34]

Dim myarr(), c As Long, i As Long
ListBox3.Clear
son = Cells(65536, 3).End(xlUp).Row
ReDim myarr(1 To 11, 1 To son)
For i = 1 To son
If LCase(Replace(Replace(Cells(i, 3).Text, "I", "ı"), "İ", "i")) _
= LCase(Replace(Replace(ComboBox5.Text, "I", "ı"), "İ", "i")) Then
Cells(i, 1).Select
c = c + 1
For Y = 1 To 11
ListBox3.AddItem
myarr(Y, c) = Cells(i, Y).Value
Next
End If
Next
If c > 0 Then
    ReDim Preserve myarr(1 To 11, 1 To c)
    ListBox3.Column = myarr
    End If