otomatik tarih

[hüseyin91]

merhaba arkadaşlar sorum şu

1- a1 hücresine herhangi bir değer girildiğinde b1 hücresine otomatik olarak gerçek tarih atacak c1 hücresine otomatik olarak gerçek saat atacak yani a1 hücresine değer girildiğiindeki tarih ve saat bilgisini bilgisayardan alıp oraya basacak


saygılarımla

 

[birayfil]

örnek gönderirisen daha iyi olur.

 

[Necdet]

Ekteki dosyada olduğu gibi mi?

 

[danersin]

Sn. Necdet_Yesertener, formüller ile yaptığınız doğru ama kullanma maksadını düşünüyorumda, zannedersem a1 hücresinde son değişiklik yapıldığı gün ve saati sabit olarak istiyor (isteyecek) Hüseyin bey. Bu durumda da makro ile yapmak gerekecek aynı şeyi. sanırım şöyle birşey iş görür ;

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = [a1] And [a1] <> "" Then
[b1] = Date
[c1] = Time
End If
End Sub

 

[hüseyin91]

güzel

evet çok güzel olmuş ama bir husus var onu nasıl hallede bilirim a1,a2,a3,a4 olarak devam edecek yaklaşık 5000 satır gidecek b1,b2.... b5000 olacak c1,c2,c3....c5000 olacak

 

[danersin]

@ hüseyin91, hangi yöntem işinizi görür belirtirmisiniz. Necdet beyin formülü işinizi görüyorsa aşağıya doğru kopyalamanız yeterli.. ama makro ile çözüm istiyorsanız kodları değiştirmek gerekiyor.

 

[hüseyin91]

danersin senin yazdığın makro işimi görüyor ilk yazılan hücre içi formül her açıldığında refresh yapıyor olduğundan işimi görmüyor..
saygılar

 

[danersin]

Bunu bir deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Value <> "" Then
Cells(Target.Row, 2) = Date
Cells(Target.Row, 3) = Time
End If
End Sub

 

[hüseyin91]

çok güzel olmuş ellerinize sağlık
son bir şey daha talep etsem çok olmam heralde
bu makroya aynı şekilde başka bir makro ile yine aynı işlemi başka hücreler için yapmak istiyorum.


çok saygılar

 

[danersin]

Bu satırdaki 1 hangi kolondaki hücreleri kontrol edeceğini belirliyor.
bunu değiştirerek a sütunu yerine istediğiniz sütunu saçin.
If Target.Column = 1 And Target.Value <> "" Then

bu sütundada 2 ve 3 rakamları tarih ve saati o satırda hangi sütunlara yazacağınızı belirliyor.
Cells(Target.Row, 2) = Date
Cells(Target.Row, 3) = Time

Bu değişikliklerle istediğiniz yere uygulayabilirsiniz.

 

[eneskaraman]

Exell çalışma sayfasındaki sütun sayısı artırılabilirmi
Teşekkürler

 

[demhatozcelik]

merhaba arkadaşlar
benim bir sorum olacak
a hücresine yazdığım zaman tarih ve saat yazılıyor
a hücresini sildiğim zaman tarih ve satin silin mesi mümkün mü?

 

[berkos]

otomatik tarih girişi

selam : benim sorunum şu :
a1 e tarih atıyorum a2 a3 a4 a...bu tarih bu günki tarih.mesela(10-10-2005) olsun ertesi gün açtığımda daha evvel çalıştığım tarihler sabit kalsın devam eteceğim a 5 o günki tarihten başlasın ( 11.10.2005 ) gibi
bu böyle devam etsin.istiyorum.İlginize şimdden teşekkür ederim.İyi bayramlar

 

[danersin]

Bu işinizi görür.

Private Sub Workbook_Open()
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
If Selection.Offset(-1, 0) = Date Then Exit Sub
ActiveCell = Date
End Sub

 

[berkos]

danersin, Sanırım bu işinizi görür başlığını benim için yazdınız ancak nasıl kullanacağımıda yazarsanız sevinirim.zira biraz acemiyim.saygılarımla

 

[excellium]

örneği inceleyin,

[vb:1:9fb1abd4f4]Sub autpen()
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
ActiveCell = Now
End Sub[/vb:1:9fb1abd4f4]

 

[berkos]

MODÜL EKLE YE FORMÜLÜ YAZDIM ANCAK şöyle bir hata veriyor.
Sub autpen()
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
ActiveCell = Now
End Sub

run-time error '1004':
method 'cells' of objekt '_ global' failed

lütfen yardımcı olurmusunuz

 

[danersin]

Muhtemelen modül ekleyi aktif çalışma kitabınızda değil personal.xls altında oluşturmuşsunuzdur. Bir dosyaya isim verip kaydedin ve modül eklerken yukarıda resimde gördüğünüz vbaproject penceresinde bu dosya ismini seçerek modül oluşturun ve kodu o modüle yazın.

 

[berkos]

ÇOK TEÞEKKÜR EDERİM.BİRDE DAİMA OTOMATİK BAÐLANTI GÜNCELLEÞTİR DİYOR HER AÇILIÞTA
ONU NASIL KALDIRABİLİRİM.VEYA NEDİR. TEKRAR TEÞEKKÜR EDERİM.İYİKİ VARSINIZ.BİZLER İÇİN NİMETSİNİZ.ELLERİNİZE SAÐLIK.

 

[danersin]

Dosyanızda bir başka excel dosyasından bağlantı var demektir. Bu bağlantının hangi dosyadan olduğunu Düzen>Bağlantılar... menüsünden görebilirsiniz. Gerekli bir bağlantı değilse bağlantının olduğu hücre(leri) silerek kaldırabilirsiniz. Hangi hücrelerden bağlantı olduğunu bulmak için ctrl+f ile ".xls" diye arama yaptırmayı deneyebilirsiniz.