İki tarih arası raporlama hakkında yardım lütfen

[hagecit]

Herkese merhaba,

1. Tablo 3 ve Raporlama tablolarındaki tarih kısımlarında tarihi, rapor_detay sayfasındaki tarihlerden seçim yapmak istiyorum.

2. Raporlama tablosunda başlangıç ve bitiş tarihlerinde seçim yaptığımda bu sayfada satış türünün adedi ve tutar bazında bunların toplamlarını görüntülemek istiyorum

3. Raporlama tablosunun sağında yer alan DETAY butonuna bastığımda da rapor_detay sayfasında sadece o ürünlere ait bilgileri ya rapor_detay sayfasında yada başka bir sayfada detayını görüntülemek istiyorum.
(Örneğin Kredi Kartı detay butonuna bastığımda belirtilen tarihler arasında kimlere kaç adet satış yapmışım görmek istiyorum. Bu rapor_detay sayfasında da görüntülenebilir , diğer başka bir sayfada da)

4. Bir de TABLO 1 deki tarih hücresine tarihi araların nokta veya kesma koymadan yazdıktan sonra noktayı otomatik kendisi koysun istiyorum.

Bunlar acaba mümkünmüdür arkadaşlar?

YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLER.

 

[tahsinanarat]

Tarih formatı için sayfanın kod bölümüne;
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim DateStr As String
On Error GoTo EndMacro
If Application.Intersect(Target, Range("C4:C4")) Is Nothing Then
Exit Sub
End If
If Target.Cells.Count > 3 Then
Exit Sub
End If
If Target.Value = "" Then
Exit Sub

Nod; kodlar evvelce bu siteden temin edilmiştir.
End If
Application.EnableEvents = False
With Target
If .HasFormula = False Then
Select Case Len(.Formula)
Case 4 ' e.g., 9298 = 2-Sep-1998
DateStr = Left(.Formula, 1) & "/" & _
Mid(.Formula, 2, 1) & "/" & Right(.Formula, 2)
Case 5 ' e.g., 11298 = 12-Jan-1998 NOT 2-Nov-1998
DateStr = Left(.Formula, 1) & "/" & _
Mid(.Formula, 2, 2) & "/" & Right(.Formula, 2)
Case 6 ' e.g., 090298 = 2-Sep-1998
DateStr = Left(.Formula, 2) & "/" & _
Mid(.Formula, 3, 2) & "/" & Right(.Formula, 2)
Case 7 ' e.g., 1231998 = 23-Jan-1998 NOT 3-Dec-1998
DateStr = Left(.Formula, 1) & "/" & _
Mid(.Formula, 2, 2) & "/" & Right(.Formula, 4)
Case 8 ' e.g., 09021998 = 2-Sep-1998
DateStr = Left(.Formula, 2) & "/" & _
Mid(.Formula, 3, 2) & "/" & Right(.Formula, 4)
Case Else
Err.Raise 0
End Select
.Formula = DateValue(DateStr)
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "Sanırım yanlış bir tarih girdiniz. Ay,gün ve yılın son iki rakamını da girseniz olur"
Application.EnableEvents = True
End Sub

 

[hagecit]

yardımlarınız için teşekkürler

 

[hagecit]

Herkese merhaba,

1. Tablo 3 ve Raporlama tablolarındaki tarih kısımlarında tarihi, rapor_detay sayfasındaki tarihlerden seçim yapmak istiyorum.

2. Raporlama tablosunda başlangıç ve bitiş tarihlerinde seçim yaptığımda bu sayfada satış türünün adedi ve tutar bazında bunların toplamlarını görüntülemek istiyorum

3. Raporlama tablosunun sağında yer alan DETAY butonuna bastığımda da rapor_detay sayfasında sadece o ürünlere ait bilgileri ya rapor_detay sayfasında yada başka bir sayfada detayını görüntülemek istiyorum.
(Örneğin Kredi Kartı detay butonuna bastığımda belirtilen tarihler arasında kimlere kaç adet satış yapmışım görmek istiyorum. Bu rapor_detay sayfasında da görüntülenebilir , diğer başka bir sayfada da)

4. Bir de TABLO 1 deki tarih hücresine tarihi araların nokta veya kesma koymadan yazdıktan sonra noktayı otomatik kendisi koysun istiyorum.

Bunlar acaba mümkünmüdür arkadaşlar?

YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLER.

Arkadaşlar yokmu yardımcı olabilecek birisi?