DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
arkadaşlar bu problem ile ilgili bir çözümü olan varmı..
tarihi formül olarak bir hücreye aktardığımız için BUGÜN formülü ertesi gün o günün tarihini alıyor.. bunun fonksiyon ile çözümü mümkün mü acaba.. saygılar..
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
End Sub
ihsan bey teşekkür ediyorum yardımınız için.. benim kulladığım sayfada D sutununa veri girildiğinde a hücresine sayı b hücresine tarih yazıyor.. verdiğiniz kodu buna göre düzenleyebilir misiniz.. dosyayı ekliyorum.. çok teşekkür ediyorum yardımlarınız için
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ts
If Intersect(Target, Range("D6:D65536")) Is Nothing Then Exit Sub
Target.Offset(0, -2) = Format(Now, "dd.mm.yyyy")
ts = Range("D65536").End(xlUp).Row
Range("A6") = 1
Range("A6:A" & ts).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=True
End Sub
İhsan Bey yardımlarınız için çok teşekkür ediyorum.. Sağolun..
Merhaba ihsan bey bir yardıma ihtiyacım var.. gelen evrakda bir hata oluştu.
Range("A6:A" & ts).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=True satırını sarı olarak gösteriyor ve sayı fonksiyonu çalışmıyor.
yardımcı olabilirseniz çok sevinirim
saygılar, selamlar
teşekkür ediyorum öncelikle cevabınız için..
normalde Evrak türünü seçtiğimde sayı ve tarihi otamatik olarak atıyordu.. ancak bugün ne olduysa sürekli belirttiğim satıra yönlendiriyor ve hata diyor.
yardımınız için şimdiden teşekkürlerl..
çok teşekkür ediyorum İhsan Bey, dediğiniz gibi düzenlemeyi yaptım sorun ortadan kalktı.. çok teşekkürler ediyorum tekrar
saygılar, selamlar