Ay bazında veri çekme

rekormuhendislik · 12 Mart 2018

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 · 12 Mart 2018

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

rekormuhendislik · 12 Mart 2018

yanginci34' Alıntı:
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

Kod:

  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 · 12 Mart 2018

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

rekormuhendislik · 12 Mart 2018

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

Kod:

 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 · 12 Mart 2018

Sonuna end if koyun.

yanginci34 · 12 Mart 2018

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

rekormuhendislik · 13 Mart 2018

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

yanginci34 · 13 Mart 2018

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

rekormuhendislik · 19 Mart 2018

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 ?

Kod:

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 · 25 Mart 2018

Kod:

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

Ay bazında veri çekme

Uzman