• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Bütçe Proğramı

C

CAFERCİFTCİ

Katılım
5 Nisan 2009
Mesajlar
533
Excel Vers. ve Dili
2003-2007
Değerli Üstadlar,
Dün açtığım ancak cevap alamadığım bir konuyu daha ayrıntılı,görsellik katarak biraz da değiştirerek yeniden açmak istiyorum.istediğimi forumda aradım fakat bulamadım.Ekli çalışmada da görüleceği gibi bir GELİRLER bir de GİDERLER sayfası var.Bir diğer sayfa da BÜTÇE SORGULAMA sayfası.İşte GELİRLER ve GİDERLER sayfasına girilen verilerden sorgulama yaptırarak istediğim zaman aralığında ayrıntılı döküm görmek istiyorum.Yardımlarınız için şimdiden teşekkürler..
 

Ekli dosyalar

Eki inceleyiniz. Alacakları hesaplarken son ödeme tarihi baz alıyor.

iyi akşamlar..
 

Ekli dosyalar

Merhaba,
kullandığınız dil türkçe ise formülü şu şekilde değiştirin


SUMIFS(GELİRLER!D:D;GELİRLER!H:H;">="&'BÜTÇE SORGULAMA'!A1;GELİRLER!H:H;"<="&'BÜTÇE SORGULAMA'!F1)

SUMIFS kısmını ÇOKETOPLA(...) diye değiştiriniz.

kolay gelsin.
 
Cafer bey merhaba,
bir alternatifiniz de benden olsun. Ancak tarih sütunlarundaki standart olmayan
formata dikkat etmelisiniz. Saygılar.
 

Ekli dosyalar

dentex' Alıntı:
Cafer bey merhaba,
bir alternatifiniz de benden olsun. Ancak tarih sütunlarundaki standart olmayan
formata dikkat etmelisiniz. Saygılar.
Genişletmek için tıkla ...
Mehmet Bey,
İlginize ve yardımlarınıza teşekkür ediyorum.Epeydir görüşemiyoruz.Umarım ve dilerim sağlığınız,huzurunuz yerindedir.İnanılmaz bir iş yoğunluğu var.Ne zamandır foruma da giremiyordum.İnanın şu an bile ancak öğle tatilinde foruma girebiliyorum.Bir de gece.Elinize,emeğinize sağlık,çok güzel olmuş.Yalnız sonradan aklıma gelen bir ayrıntıyı da sormak istiyorum.Seçilen zaman aralıkları arasında GELİRLER ve GİDERLER sayfalarını da gösterebilirmiyiz.Filtrelemede olduğu gibi.Hani seçtiğimiz tarih aralıklarında filtreleme yaptırdığımızda o tarihleri içeren tablo ekrana geliyor ya,işte onun gibi.Saygılarımla...
 
Cafer bey merhabalar,
sağolun teşekkür ederim, umarım siz de iyisinizdir. Filtreleme benzetmesinden kastınız, tarihleri seçince ilgili sayfaların tarih aralıklarında filtrelenmesi midir?
 
Merhaba

dentex' Alıntı:
Cafer bey merhabalar,
sağolun teşekkür ederim, umarım siz de iyisinizdir. Filtreleme benzetmesinden kastınız, tarihleri seçince ilgili sayfaların tarih aralıklarında filtrelenmesi midir?
Genişletmek için tıkla ...
Evet Mehmet Bey,seçilen tarih aralıklarında sayfanın filtrelenmesi.Ancak,şu an yaptığımızc sorgulamanın ayrıntılarını görecek şekilde.Yani filtrelemeyi yaptığımız zaman hem gelirler hem de giderler aynı sayfada gelmeli.Sorgulama butonu ile elde ettiğimiz gelirlerin ve giderlerin neler olduğunu görebilmeliyiz.tabiiki mümkün olabiliyorsa.Saygılarımla...
 
Tekrar merhaba,
sorgulama sonuçlarını, "bütçe sorgulama" sayfasında mı yoksa ayrı bir sayfada istiyorsunuz. İyi akşamlar.

Not: Sonuçları ayrı sayfada gösteren bir dosya ektedir.
 

Ekli dosyalar

Son düzenleme:
İyi Akşamlar

dentex' Alıntı:
Tekrar merhaba,
sorgulama sonuçlarını, "bütçe sorgulama" sayfasında mı yoksa ayrı bir sayfada istiyorsunuz. İyi akşamlar.

Not: Sonuçları ayrı sayfada gösteren bir dosya ektedir.
Genişletmek için tıkla ...
Mehmet Bey,
İstediğim bu şekilde değil.Gelirler ve giderler tablolarını 01.03.2011-31.03.2011 tarihleri arası için filtreleyin.O şekliyle sorgulansın istiyorum.İyi akşamlar
 
İyi geceler,
10 no'lu mesajda dosyayı güncelledim. Kolay gelsin.
 
İyi geceler Cafer bey,
bir sorun yok, çalışıyor gözüküyor.
 
İyi Akşamlar

dentex' Alıntı:
İyi geceler Cafer bey,
bir sorun yok, çalışıyor gözüküyor.
Genişletmek için tıkla ...
Mehmet Bey,sorgulama çalıştı.Ancak gelirler ve giderler sayfasında hiç bir veri görünmüyor.sadece sütun başlıkları ve filtreleme okları.Sorguladığımız tarihler arasında gelirler ve giderler sayfaları da aynı anda filtrelenemezmi?Yani sogulama ile bulduğumuz sonuçların gelirler ve giderler sayfalarındaki ayrıntıları.Örneğin 01.03.2011-31.03.2011 tarihleri arasındaki sorgulamada sadece bu tarihler arasındaki gelirler ve giderler ayrıntılı olarak gösterilemezmi?saygılarımla...
 
Cafer bey tekrar merhaba,
bilgisayarınızda ki bölgesel ayarlardan kaynaklanabilir. Tarih formatı dd/mm/yyyy olarak varsayılmıştır. Eğer sizin bilgisayarınızda dd.mm.yyyy olarak ayarlıysa kodları şu şekilde kopyalayıp deneyin. Sonuca göre karar verelim.

Kod: 
Sub topla()
Application.ScreenUpdating = False
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Set sh1 = Sheets("BÜTÇE SORGULAMA")
Set sh2 = Sheets("GELİRLER")
Set sh3 = Sheets("GİDERLER")
sn2 = sh2.Cells(65536, "B").End(xlUp).Row
sn3 = sh3.Cells(65536, "B").End(xlUp).Row
sh2.AutoFilterMode = False
sh3.AutoFilterMode = False
sh1.Range("h3:I8").ClearContents
ilktar = sh1.Range("a1")
sontar = sh1.Range("f1")
If IsDate(ilktar) = False Or IsDate(sontar) = False Then
MsgBox "tarih değildir"
GoTo son
End If
If ilktar > sontar Then Exit Sub

    For i = 4 To sn2
      If CDate(sh2.Cells(i, "h")) >= ilktar And CDate(sh2.Cells(i, "h")) <= sontar Then
        sh1.Range("h3") = sh1.Range("h3") + sh2.Cells(i, "d") 'alacak
        sh1.Range("h4") = sh1.Range("h4") + sh2.Cells(i, "e") 'alınan
        sh1.Range("h5") = sh1.Range("h5") + sh2.Cells(i, "g") 'kalan
        End If
    Next i
     sh2.Range("A3").AutoFilter Field:=8, Criteria1:=">=" & Format(ilktar, "mm.dd.yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(sontar, "mm.dd.yyyy")
    For j = 3 To sn3
      If CDate(sh3.Cells(j, "g")) >= ilktar And CDate(sh3.Cells(j, "g")) <= sontar Then
        sh1.Range("h6") = sh1.Range("h6") + sh3.Cells(j, "d") 'alacak
        sh1.Range("h7") = sh1.Range("h7") + sh3.Cells(j, "e") 'alınan
        sh1.Range("h8") = sh1.Range("h8") + sh3.Cells(j, "f") 'kalan
        End If
    Next j
  sh3.Range("A2").AutoFilter Field:=7, Criteria1:=">=" & Format(ilktar, "mm.dd.yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(sontar, "mm.dd.yyyy")
son:
Set sh1 = Nothing: Set sh2 = Nothing: Set sh3 = Nothing
Application.ScreenUpdating = True
End Sub
 
dentex' Alıntı:
Cafer bey tekrar merhaba,
bilgisayarınızda ki bölgesel ayarlardan kaynaklanabilir. Tarih formatı dd/mm/yyyy olarak varsayılmıştır. Eğer sizin bilgisayarınızda dd.mm.yyyy olarak ayarlıysa kodları şu şekilde kopyalayıp deneyin. Sonuca göre karar verelim.

Kod: 
Sub topla()
Application.ScreenUpdating = False
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Set sh1 = Sheets("BÜTÇE SORGULAMA")
Set sh2 = Sheets("GELİRLER")
Set sh3 = Sheets("GİDERLER")
sn2 = sh2.Cells(65536, "B").End(xlUp).Row
sn3 = sh3.Cells(65536, "B").End(xlUp).Row
sh2.AutoFilterMode = False
sh3.AutoFilterMode = False
sh1.Range("h3:I8").ClearContents
ilktar = sh1.Range("a1")
sontar = sh1.Range("f1")
If IsDate(ilktar) = False Or IsDate(sontar) = False Then
MsgBox "tarih değildir"
GoTo son
End If
If ilktar > sontar Then Exit Sub

    For i = 4 To sn2
      If CDate(sh2.Cells(i, "h")) >= ilktar And CDate(sh2.Cells(i, "h")) <= sontar Then
        sh1.Range("h3") = sh1.Range("h3") + sh2.Cells(i, "d") 'alacak
        sh1.Range("h4") = sh1.Range("h4") + sh2.Cells(i, "e") 'alınan
        sh1.Range("h5") = sh1.Range("h5") + sh2.Cells(i, "g") 'kalan
        End If
    Next i
     sh2.Range("A3").AutoFilter Field:=8, Criteria1:=">=" & Format(ilktar, "mm.dd.yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(sontar, "mm.dd.yyyy")
    For j = 3 To sn3
      If CDate(sh3.Cells(j, "g")) >= ilktar And CDate(sh3.Cells(j, "g")) <= sontar Then
        sh1.Range("h6") = sh1.Range("h6") + sh3.Cells(j, "d") 'alacak
        sh1.Range("h7") = sh1.Range("h7") + sh3.Cells(j, "e") 'alınan
        sh1.Range("h8") = sh1.Range("h8") + sh3.Cells(j, "f") 'kalan
        End If
    Next j
  sh3.Range("A2").AutoFilter Field:=7, Criteria1:=">=" & Format(ilktar, "mm.dd.yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(sontar, "mm.dd.yyyy")
son:
Set sh1 = Nothing: Set sh2 = Nothing: Set sh3 = Nothing
Application.ScreenUpdating = True
End Sub
[/QUOE]
Çok muhterem Mehmet Bey kardeşim,
Yine sizi rahatsız etmenin,meşgul etmenin sıkıntısını yaşamaya başladım.Tarih formatı dd.mm.yyyy şeklinde.Yazdığınız kotu uyarladım ama sonuç alamadım.Size sunduğum bu örnekte daha açıklayıcı olacağını düşünüyorum.Tam olarak istediğim bu.Saygılarımla...
Genişletmek için tıkla ...
 

Ekli dosyalar

Cafer bey iyi geceler,
formatımız çok farklı bir yere gelmiş. Bu tarz dosya pek sağlıklı değil. Hesaplamaları tetikleyeceğimiz hücre adresi her defasında değişecektir bu durumda. Size ilk gönderdiğim ve filtrelemeyi ayrı sayfada yapan örneği sonuç sayfasının altına yaparız. Ancak yarın işyerinde bakabilirim. Görüşmek üzere hoşçakalın.
 
Günaydın

dentex' Alıntı:
Cafer bey iyi geceler,
formatımız çok farklı bir yere gelmiş. Bu tarz dosya pek sağlıklı değil. Hesaplamaları tetikleyeceğimiz hücre adresi her defasında değişecektir bu durumda. Size ilk gönderdiğim ve filtrelemeyi ayrı sayfada yapan örneği sonuç sayfasının altına yaparız. Ancak yarın işyerinde bakabilirim. Görüşmek üzere hoşçakalın.
Genişletmek için tıkla ...
Tamam Mehmet Bey.O Sadece bir fikirdi.Ama önerileriniz doğrultusunda olması da çok güzel ama,sizi yoruyorum,kusurumu bakmayın lütfen.İyi çalışmalar.Saygılarımla...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst