Tarih çakışması sorunu

[orcunkurtar]

Merhaba

E1 sayafasında E7 ve E8 hucresine tıkladığımızda açılan takvimden tarihi hucreye ekliyoruz . Ancak E5 Sayfasında Bugun olarak filtreleme yapınca veri getirmiyor. Aynı tarihi E2 sayfasında bitiş tarihi kısmını yazdığım da çalışıyor. Takvimdeki eklenen tarih formatını nasıl düzeltebilirim. dosya linki

 

[askm]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
Range("G22:O10000").ClearContents
ID = Range("E2")

sonsatir = Sheets("E2").Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To sonsatir
    dongu = Application.WorksheetFunction.CountIf(Range("G:G"), "<>") + 1
    tarih = Sheets("E2").Cells(i, 7)
    If tarih = ID Then
        Sheets("E5").Cells(dongu, 7) = Sheets("E2").Cells(i, 1)
        Sheets("E5").Cells(dongu, 8) = Sheets("E2").Cells(i, 2)
        Sheets("E5").Cells(dongu, 9) = Sheets("E2").Cells(i, 5)
        Sheets("E5").Cells(dongu, 10) = Sheets("E2").Cells(i, 9)
        Sheets("E5").Cells(dongu, 11) = Sheets("E2").Cells(i, 10)
        Sheets("E5").Cells(dongu, 12) = Sheets("E2").Cells(i, 13)
    End If
Next i
End Sub

 

[orcunkurtar]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
Range("G22:O10000").ClearContents
ID = Range("E2")

sonsatir = Sheets("E2").Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To sonsatir
    dongu = Application.WorksheetFunction.CountIf(Range("G:G"), "<>") + 1
    tarih = Sheets("E2").Cells(i, 7)
    If tarih = ID Then
        Sheets("E5").Cells(dongu, 7) = Sheets("E2").Cells(i, 1)
        Sheets("E5").Cells(dongu, 8) = Sheets("E2").Cells(i, 2)
        Sheets("E5").Cells(dongu, 9) = Sheets("E2").Cells(i, 5)
        Sheets("E5").Cells(dongu, 10) = Sheets("E2").Cells(i, 9)
        Sheets("E5").Cells(dongu, 11) = Sheets("E2").Cells(i, 10)
        Sheets("E5").Cells(dongu, 12) = Sheets("E2").Cells(i, 13)
    End If
Next i
End Sub

GETİR komutu çalışıyor . E1 sayfasında ki takvimden tarih seçtiğimiz zaman tarih formatında gözüküyor ama formulde tarih olarak algılamıyor

 

[askm]

Formül nerde tam anlayamadım.

 

[orcunkurtar]

Formül nerde tam anlayamadım.

E1 sayfasında ki formu doldurduktan sonra kayıta basınca veriler E2 sayfasına aktarılıyor. Burda iş izninde girilen tarihe göre H sutununda ON GOING yada OPEN yazması gerekiyor . E5 sayfasındaki getir tuşuna bastığımızda son günü bugun olan iş izinlerini listeliyor. Ama E1 sayfasındaki yere takvimden seçtiğimizde bunu kabul etmiyor.

 

[askm]

Private Sub CommandButton2_Click()
Dim sonsatir As Variant
 
  
sonsatir = Application.WorksheetFunction.CountA(Sheets("E2").Range("A:A")) + 1
Sheets("E1").Cells(1, "E") = sonsatir - 1

Sheets("E2").Cells(sonsatir, "a").Value = Sheets("E1").Cells(1, "e")
Sheets("E2").Cells(sonsatir, "h").Value = Sheets("E1").Cells(2, "e")
Sheets("E2").Cells(sonsatir, "b").Value = Sheets("E1").Cells(3, "e")
Sheets("E2").Cells(sonsatir, "c").Value = Sheets("E1").Cells(4, "e")
Sheets("E2").Cells(sonsatir, "d").Value = Sheets("E1").Cells(5, "e")
Sheets("E2").Cells(sonsatir, "e").Value = Sheets("E1").Cells(6, "e")

Sheets("E2").Cells(sonsatir, "f").Value = CDate(Sheets("E1").Cells(7, "e"))
Sheets("E2").Cells(sonsatir, "g").Value = CDate(Sheets("E1").Cells(8, "e"))
Sheets("E2").Cells(sonsatir, "i").Value = Sheets("E1").Cells(9, "e")
Sheets("E2").Cells(sonsatir, "j").Value = Sheets("E1").Cells(10, "e")
Sheets("E2").Cells(sonsatir, "k").Value = Sheets("E1").Cells(11, "e")
Sheets("E2").Cells(sonsatir, "l").Value = Sheets("E1").Cells(11, "e")

ThisWorkbook.Save
End Sub

 

[orcunkurtar]

Private Sub CommandButton2_Click()
Dim sonsatir As Variant

 
sonsatir = Application.WorksheetFunction.CountA(Sheets("E2").Range("A:A")) + 1
Sheets("E1").Cells(1, "E") = sonsatir - 1

Sheets("E2").Cells(sonsatir, "a").Value = Sheets("E1").Cells(1, "e")
Sheets("E2").Cells(sonsatir, "h").Value = Sheets("E1").Cells(2, "e")
Sheets("E2").Cells(sonsatir, "b").Value = Sheets("E1").Cells(3, "e")
Sheets("E2").Cells(sonsatir, "c").Value = Sheets("E1").Cells(4, "e")
Sheets("E2").Cells(sonsatir, "d").Value = Sheets("E1").Cells(5, "e")
Sheets("E2").Cells(sonsatir, "e").Value = Sheets("E1").Cells(6, "e")

Sheets("E2").Cells(sonsatir, "f").Value = CDate(Sheets("E1").Cells(7, "e"))
Sheets("E2").Cells(sonsatir, "g").Value = CDate(Sheets("E1").Cells(8, "e"))
Sheets("E2").Cells(sonsatir, "i").Value = Sheets("E1").Cells(9, "e")
Sheets("E2").Cells(sonsatir, "j").Value = Sheets("E1").Cells(10, "e")
Sheets("E2").Cells(sonsatir, "k").Value = Sheets("E1").Cells(11, "e")
Sheets("E2").Cells(sonsatir, "l").Value = Sheets("E1").Cells(11, "e")

ThisWorkbook.Save
End Sub

Çok teşekkür ederim.