Günlük Kasa Raporda düzenleme

[acebeci]

Çok değerli arkadaşlar ekli dosyada detaylarını anlattığım gibi 2 tarih arasında raporlama yaparken diyelimki AKBANK diye seçtiğimde o 2 tarih arasındaki AKBNAK hareketlerini raporlayabilirmiyim bu konuda yardımlarınıza ihtiyacım var lütfen yardım eder misiniz

 

[acebeci]

Hala ümidimi yitirmedim eğer mümkünse lütfen yardım edin

 

[halit3]

Kod:

Private Sub CommandButton5_Click()
Dim S1 As Worksheet, S2 As Worksheet
If Calendar1 > Calendar2 Then MsgBox "Dikkatli Tarih Seçiniz": Exit Sub
Set S1 = Sheets("RAPOR")
aranan = InputBox("Aranan kelimeyi yazın.", "Aranan değer", "AKBANK")
If aranan = "" Then
MsgBox "İşlemi iptal ettiniz"
End If
say = 2
say2 = 2
S1.Range("A2:K" & Rows.Count).ClearContents
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> "ŞABLON" Then
If Sheets(i).Name <> "RAPOR" Then
Set S2 = Sheets(Sheets(i).Name)
tarih = CDate(Format(Sheets(i).Name, "dd.mm.yyyy"))
For j = 4 To 21
If tarih >= Calendar1 And tarih <= Calendar2 Then
If aranan = S2.Cells(j, 1).Value Then
S1.Cells(say, 1).Value = say - 1
S1.Cells(say, 2).Value = tarih
S1.Cells(say, 3).Value = S2.Cells(j, 1).Value
S1.Cells(say, 4).Value = S2.Cells(j, 2).Value
S1.Cells(say, 5).Value = S2.Cells(j, 4).Value
say = say + 1
End If
If aranan = S2.Cells(j, 6).Value Then
S1.Cells(say2, 7).Value = say2 - 1
S1.Cells(say2, 8).Value = tarih
S1.Cells(say2, 9).Value = S2.Cells(j, 6).Value
S1.Cells(say2, 10).Value = S2.Cells(j, 7).Value
S1.Cells(say2, 11).Value = S2.Cells(j, 8).Value
say2 = say2 + 1
End If
End If
Next
End If
End If
Next
MsgBox "işlem tamam"
End Sub

 

[acebeci]

Sayın halit3 çok ama çok teşekkür ederim.

 

[halit3]

Sayın halit3 çok ama çok teşekkür ederim.

Teşekkürler iyi çalışmalar.

 

[sonertaner]

kasa programı sorunu

Excell 2007 çalışan kasa programım
Excell 2010 yükledim mevcut programı çalıştıramadım.
konu hakkında yardımlarınızı bekliyorum. İyi çalışmalar