- Katılım
- 15 Mart 2005
- Mesajlar
- 11
verdiğim 2 tarih arası listeleme yapmasını istiyorum acaba yardımcı olabilirmisiniz ???
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
2 tarih arası listeleme
- Konbuyu başlatan muratboy31
- Başlangıç tarihi
- Katılım
- 15 Mart 2005
- Mesajlar
- 11
lütfen yardım
- Katılım
- 15 Mart 2005
- Mesajlar
- 11
eline koluna sağlık fakat tarihleri de görmem gerekiyor... ayrıca bütün diğer yaptıklarımıda silmişsin ama benim onlara ihtiyacım var...
Son düzenleme:
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
- Katılım
- 15 Mart 2005
- Mesajlar
- 11
teşekkürler son bir ricam değişikliği bu dosya üzerinde yapabilirmisin acaba ? ben birleştirmeyi yapamadım...
http://excel.web.tr/attachment.php?attachmentid=37553&d=1206454751
http://excel.web.tr/attachment.php?attachmentid=37553&d=1206454751
Son düzenleme:
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Bu linkte benim az önce eklediğim dosya var.
Bu dosyada ne yapılmasını istiyorsunuz?!
- Katılım
- 15 Mart 2005
- Mesajlar
- 11
benim konuyu açarken ilk eklediğim dosyaya sizin örneğinizi monte etmenizi istiyorum...
teşekkürler Evren Gizlen
teşekkürler Evren Gizlen
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Dosyanız hazır.
Kod:
Sub SORGU()
Dim ILKTARIH As Variant
Dim SONTARIH As Variant
Dim ODEMETRH As Variant
Dim Z As Integer
Z = 3
ILKTARIH = InputBox("ODEME BASLAMA TARIHINI YAZINIZ", "ODEME BASLAMA TARIHINI YAZINIZ", "01.01.2008")
SONTARIH = InputBox("ODEME BİTİŞ TARIHINI YAZINIZ", "ODEME BASLAMA TARIHINI YAZINIZ", "15.03.2009")
ILKTARIH = CDate(ILKTARIH)
SONTARIH = CDate(SONTARIH)
Application.ScreenUpdating = False
Range("P3:S65536").ClearContents
For X = 3 To Cells(65536, "B").End(xlUp).Row
ODEMETRH = Cells(X, 5).Value
If (ODEMETRH >= ILKTARIH) And (ODEMETRH <= SONTARIH) Then
Cells(Z, "P").Value = Cells(X, 5)
Cells(Z, "Q").Value = Cells(X, 3)
Cells(Z, "R").Value = Cells(X, 6)
Cells(Z, "S").Value = Cells(X, 7).Value
Z = Z + 1
End If
Next X
Cells(Z, "Q").Value = "TOPLAM..:"
Cells(Z, "R").Formula = "=sum(R3:R" & Z - 1 & ")"
Cells(Z, "S").Formula = "=sum(S3:S" & Z - 1 & ")"
Application.ScreenUpdating = True
MsgBox "Sorgulama Yapıldı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub
Son düzenleme:
- Katılım
- 15 Mart 2005
- Mesajlar
- 11
çok teşekkürler Evren Gizlen süper olmuş
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Hayır olmamış şimdi farkettim.
Toplama aralığını düzeltmeyi unutmuşum,yanlış yeri topluyor, onuda düzeltip dosyayı tekrardan ekleyecem.
Evren üstadın kodlarının düzenlenmiş hali Teşekkürler üstad
Kod:
Sub Makro1()
On Error Resume Next
Dim start As Date
Dim finish As Date
Dim ILKTARIH As Variant
Dim SONTARIH As Variant
Dim ODEMETRH As Variant
Dim Z As Integer
Z = 31
ILKTARIH = InputBox("ODEME BASLAMA TARIHINI YAZINIZ", "ODEME BASLAMA TARIHINI YAZINIZ", Format(Date, "dd.mm.yyyy")) '"01.01.2008")
1
SONTARIH = InputBox("ODEME BİTİŞ TARIHINI YAZINIZ", "ODEME BASLAMA TARIHINI YAZINIZ", "15.03.2009")
ILKTARIH = CDate(ILKTARIH)
SONTARIH = CDate(SONTARIH)
If IsDate(SONTARIH) = False Then GoTo 1
'End If
start = Time
Debug.Print start
Application.ScreenUpdating = False
Range("H31:M65536").ClearContents
For X = 3 To Cells(65536, "B").End(xlUp).Row
ODEMETRH = Cells(X, 5).Value
Debug.Print X
'--------------------------ytl yazdır----------------------------
If (ODEMETRH >= ILKTARIH) And (ODEMETRH <= SONTARIH) Then
Cells(Z, 9).Value = Cells(X, 3) 'bayi adı
Cells(Z, 10).Value = Cells(X, 6) 'ödeme ytl
Z = Z + 1
End If
Next X
Cells(Z, "I").Value = "TOPLAM..:"
Cells(Z, "I").Font.Bold = True
Cells(Z, "J").Formula = "=sum(J31:J" & Z - 1 & ")"
Cells(Z, "J").Font.Bold = True
Cells(29, "I") = ILKTARIH & " ile " & SONTARIH
Cells(29, "L") = ILKTARIH & " ile " & SONTARIH
Z = 31
For X = 3 To Cells(65536, "B").End(xlUp).Row
ODEMETRH = Cells(X, 5).Value
Debug.Print X
'--------------------------dolar yazdır----------------------------
If (ODEMETRH >= ILKTARIH) And (ODEMETRH <= SONTARIH) And Cells(X, 7) <> isnotNull Then
Cells(Z, 12).Value = Cells(X, 3) 'bayi adı
Cells(Z, 13).Value = Cells(X, 7).Value 'ödeme $
Z = Z + 1
End If
Next X
Cells(Z, "L").Value = "TOPLAM..:"
Cells(Z, "L").Font.Bold = True
Cells(Z, "M").Formula = "=sum(M31:M" & Z - 1 & ")"
Cells(Z, "M").Font.Bold = True
Cells(29, "L") = ILKTARIH & " ile " & SONTARIH
Application.ScreenUpdating = True
finish = Time
Debug.Print finish
Call MsgBox(Format(finish - start, "hh:mm:nn") & "saniye de işlem tamamlandı", vbInformation)
End Sub- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Sayın abdi kodları ben yazmadım.Sayın arifcell yazmış.Ben sadece birkaç ilave yaptım ve bir iki değişiklik yaptım.
İyi çalışmalar.
- Katılım
- 15 Mart 2005
- Mesajlar
- 11
ufak bir soru daha var... acaba boş tutarları almasını nasıl engellerim ?
mesela dolar hanesini yada ytl hanesini boş bıraktığım firmalarıda yarın yapılacak ödemelerde ve tarihe göre sıralamada görebiliyorum acaba bunu nasıl süzebilirim ???
mesela dolar hanesini yada ytl hanesini boş bıraktığım firmalarıda yarın yapılacak ödemelerde ve tarihe göre sıralamada görebiliyorum acaba bunu nasıl süzebilirim ???
Bu arada arifcell ve Evren üstada teşekkürler
onların yazdıkları kodları biraz revize edince dosya sizin istediğiniz hale geldi
Benim düzenlediğim kodlar zaten bunu yapıyor
dosyanıza uyarlanmış hali ekte
onların yazdıkları kodları biraz revize edince dosya sizin istediğiniz hale geldi
Benim düzenlediğim kodlar zaten bunu yapıyor
dosyanıza uyarlanmış hali ekte
Arkadaşlar ilginize teşekkür ederim.Sayın Muratboy312in işi görülsün diye acele ile ufak bi çalışma yaptım.Siz degerli dostlarım tamamen işi halletmişsiniz.Hepinize Teşekkür ederim.