- Katılım
- 29 Ağustos 2011
- Mesajlar
- 63
- Excel Vers. ve Dili
- 2007
Arkadaşlar x ve y adında iki sayfam var. Bunlardan x sayfasının a sütunudaki bir hücreye herhangi bir değer girdiğimde x sayfasındaki bazı hücrelerdeki değerlerin aynısını y sayfasında belirttiğim bir sütunlardaki ilk boş hücreye otomatik taşınmasını istiyorum. Örneğin aşağıdaki kodu bir hücreye bir değer girdiğimde otomatik tarih-saat atması için kullanmıştım. Sanırım mantık aynı. Yukardaki olayı gerçekleştirmem için bu kodu nasıl geliştirebilirim. Yardımcı olabilirseniz sevinirim.
If Not Intersect(Target, [A2:A65536]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy, hh.mm.ss")
İyi çalışmalar
If Not Intersect(Target, [A2:A65536]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy, hh.mm.ss")
İyi çalışmalar
