formül otomatik çalışmıyor

[işsiz123]

b:b sununda olan

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c2:c1048576]) Is Nothing Then Cells(Target.Row, "b") = Format(Now, "dd.mm.yyyy")

End Sub

formüle tıklamadan

A:A sutunundaki

=EĞER(B2<>BUGÜN();"";TOPLA.ÇARPIM((GÜN(B$2:$B2)=GÜN(B2))*1))

formül çalışmıyor

 

[Korhan Ayhan]

Dosyanızı ekleseydiniz daha sağlıklı olurdu.

Dosyanızda hesaplama yöntemi manuelde olabilir. Bunu kontrol edin.
Ayrıca "B" sütunundaki tarih gibi görünen veri METİN biçiminde saklanmış olabilir. Bunu kontrol edin.

 

[işsiz123]

dosya ekte

 

[TEGCreative]

Sayın işsiz123 ; A sütununda sanırım sıra numarası veriyorsunuz. Peki neden otomatik olarak değilde formülle ?

If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, -1).Value = Target.Row - 1

Bu şekilde bir kod ile direk sıra numarası verilebilir aslında

 

[Korhan Ayhan]

"B" sütunundaki tarihler sola dayalı görünüyor. Yani METİN gibi algılanıyor.

Kodu aşağıdaki gibi değiştirip deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then
        Cells(Target.Row, "B") = CDate(Format(Now, "dd.mm.yyyy"))
    End If
End Sub