sütün'a otomatik tarih

[Erdem Akdemir]

a sütununa işlem tipini girince, yanındaki b sütünundaki hücreye, tarihi otomatik yazdırmak istiyorum.

 

[dEdE]

Merhaba,

Aşağıdaki kodu sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Date, "dd.mm.yyyy")
End Sub

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Date, "dd.mm.yyyy")
End Sub

sağolun sayın dede

iyi akşamlar:hey:

 

[Ali]

Sayın kuvari aşağıdaki linkte bununla ilgili tarih çalışmasındada bu kodlar mevcuttur.

Tarih & Zaman & Saat Fonksiyonları Uygulamaları

.

 

[Erdem Akdemir]

kod çalışmadı

sayın dede bakabilir misiniz?

 

[Erdem Akdemir]

Sayın kuvari aşağıdaki linkte bununla ilgili tarih çalışmasındada bu kodlar mevcuttur.

Tarih & Zaman & Saat Fonksiyonları Uygulamaları

.

tarihi formüllerle otomatik yazdırabiliyorum ama benim istediğim tarihin sonradan değişmemesi, fonksiyonlarla olmuyor.

 

[Ali]

Fonksiyon demedimki zaten

Son sekmedeki Hücre değişimi&tarih adlı sayfadaki VBA kodlarına bakmadınız sanırım.

 

[dEdE]

Kodu modüle değil, sayfanın koduna yazmalısınız.
Dosyanızı açın.
Sayfa adına sağ tıklayın.
Kod görüntüleyi seçin ve açılan sayfaya kodu yapıştırın.

 

[Erdem Akdemir]

Fonksiyon demedimki zaten

Son sekmedeki Hücre değişimi&tarih adlı sayfadaki VBA kodlarına bakmadınız sanırım.

ben hepsini fonksiyon sandım, sonda kodlar varmış

sağolun Ali bey amacım örnek kod bulmaktı, çok yardımcı oldunuz

teşekkür ederim

 

[Erdem Akdemir]

Kodu modüle değil, sayfanın koduna yazmalısınız.
Dosyanızı açın.
Sayfa adına sağ tıklayın.
Kod görüntüleyi seçin ve açılan sayfaya kodu yapıştırın.

evet şimdi çalışıyor

sayın dede tekrardan sağolun