Formül ve Koşullu biçimlendirmeyi makroya çevirmek.

[Garuramon]

Selam,

ekteki Excel dosyasında C sütunundaki formül ve koşullu biçimlendirmeyi makroya çevirme konusunda çözüm bulunabilirmi.

iyi çalışmalar dilerim.

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne yapıştırın.
Formülleri silin, koşullu biçimlendirme kalsın.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [B3:B500]) Is Nothing Then Exit Sub
    If Target.Value = "" Then Target.Offset(0, 1) = ""
    Target.Offset(0, 1) = (Target.Value - Date)
End Sub

. . .

 

[Garuramon]

selam

. . .

Çalışma sayfasının kod bölümüne yapıştırın.
Formülleri silin, koşullu biçimlendirme kalsın.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [B3:B500]) Is Nothing Then Exit Sub
    If Target.Value = "" Then Target.Offset(0, 1) = ""
    Target.Offset(0, 1) = (Target.Value - Date)
End Sub

. . .

Hüseyin Bey,

Çözüm öneriniz için teşekkürler sorun çözüldü konu kapatılabilir.

iyi çalışmalar dilerim.