Eğer Hücre Doluysa Tarih Yazsın

[acar6783]

Sn. Conqueror20 merhabalar

Sub ekle()

For a = Sheets.Count To 1 Step -1
If (Sheets(a).Name) <> "Rapor" Then Sheets(a).Select
ad = Sheets(a).Name
Set s1 = Sheets(ad)
son = s1.Cells(Rows.Count, 3).End(xlUp).Row
For i = 5 To son
If s1.Range("C" & i) <> "" Then s1.Range("b" & i) = s1.Range("C2")

Next
Next
End Sub

Bunu deneyin

 

[Conqueror20]

teşekkürler sayın acar6783

 

[Conqueror20]

bu kodu eklediğimde direk çalışmıyor. sanırım bir buton ekleyip bu modülü butona ilave etmeden çalışmıyor. otomatik olarak çalışmasının bir ihtimali yokmu.

 

[seda27112013]

sn acar6783 lutfen benım odevımde yardım edın

 

[seda27112013]

Ödevim çok acillll

ad sutunun yazdıgım gıbı olması lazım sn acar6783 formulle ama

 

[acar6783]

sn seda27112013
sanırım formulünüz Sheet1 sayfanızdaki f sütununa yapılacak
f sütunundan AN sütununa kadar olanları silecekmiyiz peki
Ve birde burçlarla ilgili bilgim yok sırasıyla dosyanızı düzenleyip yazarmısınız..

 

[seda27112013]

sheet 1 de evet burçlar duzenlı bır şekilde yazıldı an sutununa kadar olanlar silinmiycek onların hepsi bi yanındakı sutunda yazdığım gibi yazılıcakmış öle dedi hocamız

 

[seda27112013]

Ödevim çok acillll

Eğer fonksiyonları ve ya da veya fonksıyonları iç içe yazılarak yapılıcakmış

 

[Conqueror20]

sayın acar6783,
araya başka konu girdi ve benim mesajım unutuldu sanırım.

 

[acar6783]

bu kodu eklediğimde direk çalışmıyor. sanırım bir buton ekleyip bu modülü butona ilave etmeden çalışmıyor. otomatik olarak çalışmasının bir ihtimali yokmu.

Sorunuzu görmemiştim
Hangi sayfa aktif olduğunda ya da ne yappınca çalışmasını istiyorsunuz.
Veya süreklimi çalışacak?

 

[Conqueror20]

kodun her sayfada sürekli çalışması lazım. Sadece rapor sayfasında çalışmaması gerekiyor

 

[acar6783]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For a = Sheets.Count To 1 Step -1
If (Sheets(a).Name) <> "Rapor" Then Sheets(a).Select
ad = Sheets(a).Name
Set s1 = Sheets(ad)
son = s1.Cells(Rows.Count, 3).End(xlUp).Row
For i = 5 To son
If s1.Range("C" & i) <> "" Then s1.Range("b" & i) = s1.Range("C2")

Next
Next
End Sub

Bu kodu hangi sayfaya yazarsanız yazın her veri girdiğinizde çalışacaktır kod.