Çift Tıkladığım satırdaki hücrelere belli verileri yazdırmak

[u.L.a.s]

Merhaba

Excel çalışma sayfaısnda L,M,N,O sütunlarında her satıra düşen verilerim var

Örneğin

L2 = aaa
M2 = bbb
N2 = 09.11.2017
O2 = ccc

N sütunu tarih verisinin bulunduğu sütun her daim.

Şimdi satır satır verilerimin olduğunu düşünürsek ve ben A556 ya gelmişim yeni veri giriyorum ama L556,M556,N556,O556 boş henüz bir veri girmediğim için

ben L556 ya çift tıkladığım zaman aşağıdaki veriler hücreye yazılsın istiyorum. Burada tarihi bugünün tarihinden 10 gün sonraki tarihi yazsın istiyorum
L556 = aaa
M556 = bbb
N556 = 19.11.2017
O556 = ccc

Sonrasında 557. satıra geçip verilerimi girdiğimde aynı şekilde L557 ye tıklayınca yukarıdaki gibi verileri yazsın istiyorum.

bilgi ve yardımlarınızı rica ederim

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("L3:L65500")) Is Nothing Then
sat = Target.Row
Cells(sat, "L") = Cells(2, "L")
Cells(sat, "m") = Cells(2, "m")
Cells(sat, "n") = Cells(2, "n")
Cells(sat, "o") = Cells(2, "o")
End If
End Sub

Kodlarını yerleştirin ve L3 L65536 aralığında çift tıklayın.
İyi çalışmalar.

 

[u.L.a.s]

ama ben L2 yi referans alsın istemiyorum L2 hücresinin olduğu satırda farklı veriler olabilir. neden derseniz mesela O sütundaki satırlarda 2 çeşitli veri olabiliyor oradaki veride G sütunundaki hücrede veri olup olmamasına göre farklı bir değer alıyor. G hücresi boşsa tamamlanmadı g hücresinde veri olunca tamamlandı oluyor.

o yüzden şu haldeyken 2. satırda O2 hücresinde tamamlandı verisi var. eğer bunu baz alırsam L557 ye çift tıklayınca O557 ye tamamlandı yazacak ama ben tamamlanmadı yazsın istiyorum. çünkü G557 de henüz veri olmayacak.

 

[muygun]

Ne yazıkki açıklamanızdan hiçbirşey anlamadım. Umarım anlayan biri çıkar...

 

[u.L.a.s]

üstadım örnek dosya aşağıdaki linkte olup dosya içerisinde istediğim durumu anlattım.

http://s5.dosya.tc/server5/jqgf00/cifttik.rar.html

 

[muygun]

Merhaba;
Ekli dosyada L2 : L65536 aralığında çift tıklayarak deneyin.
İyi çalışmalar.

Link:
http://s5.dosya.tc/server5/51piyn/u.L.a.s-cifttik.zip.html

 

[u.L.a.s]

Çok teşekkür üstadım bilginize emeğinize sağlık