Formülü koda çevirme talebi hkk,

[TiOr]

Merhaba,
=EĞER(A2="";0;$D$1-A2)
İlgili formülü vba da kod olarak yazmamız mümkün mü?
Şöyle izah edeyim Sayf1 de A2 sütunundan başlayıp aşağı doğru takip eden tarihler var 1500 ve üzeri rakamlara çıkabiliyor, D1 de ise =şimdi formülü var bu şekilde iki tarih arasındaki rakamları çıkartarak gecikme gün sayısını alıyorum. Fakat satır ve sütun çok olduğu için kasma sorunu ile karşılaşıyorum. Bu kapsamda vba da kod yardımı ile formülü yazdığım hücreye tek bir tıkla iki tarih arasındaki farkları alabilir miyiz? Buttona tıkladığımda yukardan aşağı farkları dökebilir mi?
Yardımcı olabilir iseniz çok sevinirim.
Teşekkür eder, hayırlı akşamlar dilerim.

Syg,

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bak As Integer
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If IsDate(Cells(Bak, "A")) Then
            Cells(Bak, "B") = Date - Cells(Bak, "A")
        End If
    Next
End Sub

 

[TiOr]

@Muzaffer Ali Hocam Selam,
Yine döktürmüşsün çok ama çok teşekkür ederim hakkını helal et yorduk seni bu gün.
Diğer desteklerinde olduğu gibi işlem tamamdır. Eline emeğine sağlık..
Hayırlı akşamlar.
Syg..

 

[TiOr]

@Muzaffer Ali Hocam utanarak yazıyorum! peki bu kodu userform üzerinden buton ekleyerek sayfa adı vererek nasıl yazabiliriz
Paylaştığın kod sayfa içine eklenen butonda çalıştı hiç bir problem yok. Fakat sayfa 2 de bulunan userform üzerinden butona tıkladığımda sayfa adı tanımlaması yapılmadığı için kod dolayısı ile çalışmadı. Ekte örnek dosyayı tekrar paylaşıyorum. Bu işlemi userform üzerinden yapmam lazım ve sayfa adı tanımlaması gerekmekte. Hocam sen bunu da yaparsın Teşekkürler, syg..

 

[TiOr]

@Muzaffer Ali Hocam Günaydın,
Yardımcı olabilecek misiniz? 4 nolu mesaj için
Teşekkürler, iyi çalışmalar.

 

[Muzaffer Ali]

"SayfaAdı" yerine kendi sayfanızın adını yazın.

Sub Test()
    Dim Bak As Integer
    with worksheets("SayfaAdı")
        For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
            If IsDate(.Cells(Bak, "A")) Then
                .Cells(Bak, "B") = Date - .Cells(Bak, "A")
            End If
        Next
    end with
End Sub

 

[TiOr]

@Muzaffer Ali Hocam Selam,
İşlem tamamdır, elinize, emeğinize sağlık.
Çok çok teşekkür eder, hürmetlerimi sunarım.