Excel Vba Countifs tarih sorunu

[ESEZEN]

Merhabalar,
S1 A sütunun da bulunan tarihlere göre P sütununda olan bilgiyi say diyorum fakat tarihi countifs görmüyor.Sayı olarak çevirdiğim zaman görüyor.

Ne yaptıysam halledemedim.Varmıdır bir çaresi üstadlar.
Desteğinizi rica ederim.


Private Sub listele_Click()
Dim S1 As Worksheet
Set S1 = Sheets("FTL Data")

operasyon.Caption = Application.CountIfs(S1.Range("A:A"), tarih, S1.Range("P"), "Operasyon")


End Sub



Private Sub UserForm_Initialize()
Dim S1 As Worksheet
Set S1 = Sheets("FTL Data")

For i = 6 To S1.Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(S1.Range("A6:A" & i), S1.Cells(i, 1)) = 1 Then
tarih.AddItem Sheets("FTL Data").Cells(i, 1).Value
End If
Next
End Sub

 

[Ömer]

Merhaba,

CDbl(CDate(tarih))

Yazarak deneyiniz.

 

[ESEZEN]

Merhaba,

CDbl(CDate(tarih))

Yazarak deneyiniz.

Ömer Bey,
Dönüş için teşekkürler biraz vba da acemiyim nerede denemem gerekiyor?

 

[Ömer]

operasyon.Caption = Application.CountIfs(S1.Range("A:A"), tarih, S1.Range("P:P"), "Operasyon")

yukarıdaki tarih yazan bölüme; (aşağıdaki gibi)

operasyon.Caption = Application.CountIfs(S1.Range("A:A"), CDbl(CDate(tarih)), S1.Range("P:P"), "Operasyon")

 

[ESEZEN]

operasyon.Caption = Application.CountIfs(S1.Range("A:A"), tarih, S1.Range("P:P"), "Operasyon")

yukarıdaki tarih yazan bölüme; (aşağıdaki gibi)

operasyon.Caption = Application.CountIfs(S1.Range("A:A"), CDbl(CDate(tarih)), S1.Range("P:P"), "Operasyon")

Ömer Bey,
denedim ama olmadı.Son 12 ve 14 tarihli olanları saydı nedense.
Dosya ekliyorum yardımlarınızı rica ederim.

 

[byfika]

Merhabalar,
Userform kodlarına alta ki kodu ilave edip dener misiniz?

Private Sub tarih_Change()

Application.EnableEvents = False

tarih.Value = Format(tarih.Value, "mm/dd/yyyy")

Application.EnableEvents = True

End Sub

 

[ESEZEN]

Merhabalar,
Userform kodlarına alta ki kodu ilave edip dener misiniz?

Private Sub tarih_Change()

Application.EnableEvents = False

tarih.Value = Format(tarih.Value, "mm/dd/yyyy")

Application.EnableEvents = True

End Sub

Maalesef olmadı

 

[byfika]

Siz comboboxta tarih seçip listele yapınca;
Tedarik eden birim bölümünde operasyon, garaj ekibi, filo ve diğer opr.gelen bölümlerinde sayım yaptırmıyor musunuz?
Dosyayı inceler misiniz?

 

[ESEZEN]

Siz comboboxta tarih seçip listele yapınca;
Tedarik eden birim bölümünde operasyon, garaj ekibi, filo ve diğer opr.gelen bölümlerinde sayım yaptırmıyor musunuz?
Dosyayı inceler misiniz?

evet,tarihi seçince o tarihte tedarik eden birimleri sayıp labellere işlemesini istiyorum ama gönderdiğiniz tablodada saymıyor 0 olarak atıyor bilgileri

 

[byfika]

Gönderdiğim dosyada alttaki tarihleri seçtiğimde aldığım sonuçlar görülmekte.

1.12.2020 SEÇİLİNCE ==> Operasyon 10

Diğerleri 0

2.122020 SEÇİLİNCE ==> Operasyon 29

Filo 1

Diğerleri 0



3.122020 SEÇİLİNCE ==> Operasyon 19

Garaj ekibi 2

Filo 3

Diğeri 0

4.122020 SEÇİLİNCE ==> Operasyon 30

Garaj ekibi 0

Filo 3

Diğeri 1

 

[ESEZEN]

Gönderdiğim dosyada alttaki tarihleri seçtiğimde aldığım sonuçlar görülmekte.

1.12.2020 SEÇİLİNCE ==> Operasyon 10

Diğerleri 0

2.122020 SEÇİLİNCE ==> Operasyon 29

Filo 1

Diğerleri 0



3.122020 SEÇİLİNCE ==> Operasyon 19

Garaj ekibi 2

Filo 3

Diğeri 0

4.122020 SEÇİLİNCE ==> Operasyon 30

Garaj ekibi 0

Filo 3

Diğeri 1

bende 0 olarak atıyor anlayamadım.Tarih seçiyorum Listele diyorum veriler 0 olarak atıyor.

 

[Ömer]

UserForm_Initialize kodlarını aşağıdakilerle değiştirerek deneyiniz.

Private Sub UserForm_Initialize()
Dim S1 As Worksheet
Set S1 = Sheets("FTL Data")

For i = 6 To S1.Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(S1.Range("A6:A" & i), S1.Cells(i, 1)) = 1 Then
tarih.AddItem Format(Sheets("FTL Data").Cells(i, 1).Value, "dd.mm.yyyy")
End If
Next
End Sub

 

[ESEZEN]

UserForm_Initialize kodlarını aşağıdakilerle değiştirerek deneyiniz.

Private Sub UserForm_Initialize()
Dim S1 As Worksheet
Set S1 = Sheets("FTL Data")

For i = 6 To S1.Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(S1.Range("A6:A" & i), S1.Cells(i, 1)) = 1 Then
tarih.AddItem Format(Sheets("FTL Data").Cells(i, 1).Value, "dd.mm.yyyy")
End If
Next
End Sub

İşte şimdi tamamdır.Çok teşekkürler ilgi alakanıza Ömer Bey ve byfika