son dolu hücrenin sonuna veri eklemek

[ozkance]

Merhaba excelde sıralı bir tarih sütunum var. Bu sütunun sonuncu dolu hücresi bugünün tarihine eşit ise birşey yapmayacak eğer bugünün tarihine eşit değil ise bugünün tarihini atacak. Nasıl yaparım.

ÖRNEK:

A1

1 Nisan 2021 Perşembe
2 Nisan 2021 Cuma
3 Nisan 2021 Cumartesi
4 Nisan 2021 Pazar
5 Nisan 2021 Pazartesi
6 Nisan 2021 Salı

Son değer bugüne eşit değil bugünün tarihini ekle

A1

1 Nisan 2021 Perşembe
2 Nisan 2021 Cuma
3 Nisan 2021 Cumartesi
4 Nisan 2021 Pazar
5 Nisan 2021 Pazartesi
6 Nisan 2021 Salı
7 Nisan 2021 Salı

Son değer bugüne eşit birşey yapma

 

[YUSUF44]

Deneyiniz:

Sub bugun()
    son = Cells(Rows.count,"A").End(3).Row
    If Cells(son,"A")<>Date Then
         Cells(son+1,"A") = Date
    End If
End Sub

 

[ozkance]

Deneyiniz:

Sub bugun()
    son = Cells(Rows.count,"A").End(3).Row
    If Cells(son,"A")<>Date Then
         Cells(son+1,"A") = Date
    End If
End Sub

Hocam sizi yoracağım ama. Peki son tarihten bugünkü tarihe kadar nasıl yazdırırız.

 

[YUSUF44]

Şöyle deneyin:

Sub bugun()
    son = Cells(Rows.Count, "A").End(3).Row
    If IsDate(Cells(son, "A")) = False Then
        MsgBox "A sütununun son dolu hücresinde tarih bulunmadığından işlem yapılmadı!", vbInformation
    ElseIf Cells(son, "A") > Date Then
        MsgBox "A sütununun son dolu hücresindeki tarih bugünden büyük olduğundan işlem yapılmadı!", vbInformation
    Else
        Do Until Cells(son, "A") + 1 > Date
            Cells(son + 1, "A") = Cells(son, "A") + 1
            son = son + 1
        Loop
    End If
End Sub