Tıklama ile verileri diğer sayfaya aktarma: yardım!

[Emine Şahin]

Merhaba Arkadaşlar.
Yardımınıza ihtiyacım var.
Ekte sumuş olduğum dosyada bir isim ve adres bilgisi var.
Ben adres, isim veya her hangi bir hücrenin üzerine tıkladığımda
hazırlamış olduğum diğer sayfaya tıklanan satırdaki verileri aktarmasını istiyorum.
Yalnız bu tıklanan sayfaya veri girişide artırılacağından şimdiki veriler örnek olarak sunulmuştur.
Yardımlarınızı rica ediyorum.

 

[Orion1]

Dosyanız ektedir.
Satıra çift tıklayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim adet As Long, k As Range
If Intersect(Target, Range("A2:D" & Cells(65536, "B"). _
End(xlUp).Row)) Is Nothing Then Exit Sub
sat = Sheets("GÜNLÜK TAKİP").Cells(65536, "C").End(xlUp).Row + 1
If sat >= 65533 Then
    MsgBox "Satır doldu başka kayıt yapamazsınız!", vbCritical, "EVREN"
    Exit Sub
End If
Cancel = True

Set k = Sheets("GÜNLÜK TAKİP").Range("C3:C65536").Find(Cells(Target.Row, "B").Value, , xlValues, xlWhole)
    If k Is Nothing Then
        Sheets("GÜNLÜK TAKİP").Cells(sat, "A").Value = sat - 2
        Sheets("GÜNLÜK TAKİP").Cells(sat, "B").Value = Date
        Sheets("GÜNLÜK TAKİP").Cells(sat, "B").NumberFormat = "dd.mm.yyyy"
        Sheets("GÜNLÜK TAKİP").Range("C" & sat & ":E" & sat).Value = _
        Range("B" & Target.Row & ":D" & Target.Row).Value
        Sheets("GÜNLÜK TAKİP").Cells(sat, "F").Value = 1
        Else
        Sheets("GÜNLÜK TAKİP").Cells(k.Row, "F").Value = Sheets("GÜNLÜK TAKİP").Cells(k.Row, "F").Value + 1
    End If
End Sub

 

[Emine Şahin]

Dosyanız ektedir.
Satıra çift tıklayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:D" & Cells(65536, "B"). _
End(xlUp).Row)) Is Nothing Then Exit Sub
sat = Sheets("GÜNLÜK TAKİP").Cells(65536, "C").End(xlUp).Row + 1
If sat >= 65533 Then
    MsgBox "Satır doldu başka kayıt yapamazsınız!", vbCritical, "EVREN"
    Exit Sub
End If
Sheets("GÜNLÜK TAKİP").Cells(sat, "A").Value = sat - 2
Sheets("GÜNLÜK TAKİP").Cells(sat, "B").Value = Date
Sheets("GÜNLÜK TAKİP").Cells(sat, "B").NumberFormat = "dd.mm.yyyy"
Sheets("GÜNLÜK TAKİP").Range("C" & sat & ":E" & sat).Value = _
Range("B" & Target.Row & ":D" & Target.Row).Value
Cancel = True
End Sub

Gönderdiğiniz dosyayı denedim. Çok teşekkür ederim.
Yalnız telefon ile adres sütünlerı aktarılan sayfada farklı.
Düzeltilebilir mi? Düzeltilemzse önemli değil artık.
Bir de tıklama sonucu bir uyarı eklenebilir mi?
Mükerrer kayıtları veya olası bir hatayı engellemek için...
Tekrar teşekkür ederim.

 

[Emine Şahin]

Flood yapsam kızar mısınız?
Konu üstteki mesajım gibi günceldir.
Lakin atılan tarihler yazıldığı gibi kalacak değil mi?

 

[Emine Şahin]

Merhaba arkadaşlar.
Yukarıdaki mesajımda cevabını aldığım tabloyu olduğu gibi kullanıyorum.
Ama sormak istediğim bir konu var.
Burada tıkladığım bir aboneyi iki kere tıkladığımda (çif tıklamayı katetmiyorum)
bir alt satıra ikinci kopyasını çıkarıyor.
Bunu bir alt satıra değil de son sütüunda bulunan adet kısmına sayı ile 2 yazabilir miyiz.
Konu biraz aciliyet kazanmıştır.
Yardımlarınız için şimdiden teşekkür ederim.

Saygılarımla...

 

[Orion1]

Merhaba arkadaşlar.
Yukarıdaki mesajımda cevabını aldığım tabloyu olduğu gibi kullanıyorum.
Ama sormak istediğim bir konu var.
Burada tıkladığım bir aboneyi iki kere tıkladığımda (çif tıklamayı katetmiyorum)
bir alt satıra ikinci kopyasını çıkarıyor.
Bunu bir alt satıra değil de son sütüunda bulunan adet kısmına sayı ile 2 yazabilir miyiz.
Konu biraz aciliyet kazanmıştır.
Yardımlarınız için şimdiden teşekkür ederim.

Saygılarımla...

Dosyayı 2 numaralı mesajda günceledim.Oradan indirebilirsiniz.

 

[Emine Şahin]

Teşekkür ederim Evren Bey.
Son sütünda bulunan adet kısmına çift tıklanan aboneler için 2
yada daha çok tıklananlar için 3 veya 4 gibi yazıyor.
Ama tık tıklananlar içinde "1" yazdırabilirmiyiz.
Örneğin, aşağıda ki boş görünen hücreler...

Saygılarımla...

 

[Emine Şahin]

Konu güncel ve ivedidir

 

[Orion1]

Dosyayı güncelledim.
2 numaralı mesajdan indirebilirsiniz.

 

[Emine Şahin]

Merhaba Evren Bey...
Biliyorum şimdi, çok oldunuz der gibisiniz ama...
Bir ismi ne kadar tıklarsan o kadar adet sütununda rakam veriyor.
Ama, bu sefer isimleri alt alta mükerrer olarak veriyor.
Bunu düzeltebilirmiyiz.
Yani bir ismi 3 kere tıklamışsak ve karşısında 3 yazıyorsa diğer 2 ve 1 yazan mükerrer kayıtların olmaması gerek.
Sonuçta buradaki rakalar toplanıp toplam adet bulunacağında dolayı hesaplamada da hata çıkmaktadır.
Mümkün mü?

 

[Orion1]

Merhaba Evren Bey...
Biliyorum şimdi, çok oldunuz der gibisiniz ama...
Bir ismi ne kadar tıklarsan o kadar adet sütununda rakam veriyor.
Ama, bu sefer isimleri alt alta mükerrer olarak veriyor.
Bunu düzeltebilirmiyiz.
Yani bir ismi 3 kere tıklamışsak ve karşısında 3 yazıyorsa diğer 2 ve 1 yazan mükerrer kayıtların olmaması gerek.
Sonuçta buradaki rakalar toplanıp toplam adet bulunacağında dolayı hesaplamada da hata çıkmaktadır.
Mümkün mü?

Yani bir keremi olsun istiyorsunuz istediğiniz şartlara uyan mükerrer giriş olmasınmı istiyorsunuz.
İyi ama o zaman şimdiye kadar bunları niye yaptık.Baştan söyleyebilirdiniz.Yani baştan söyleseydiniz yapamazmıydım.Onu anlamadım.

 

[Emine Şahin]

Ben konuyu eksik anlattım başında galiba...
Ne deseniz haklısınız. KIsaca sözle söyleyeyim.
Tablonun son şekli tamam.
Ama, aynı kişinin üzerine ne kadar tıklarsak tıklayalım, adet sütünunda tıklama adedi çıksın, mükerrer çıkmasın. Yani alt alta ismi tekrar edip gitmesin.
Anlatabil dim mi?

Saygılarımla...

 

[Orion1]

İnşallah bu sefer doğru anlamışımdır.
Dosyayı 2 nolu mesajda güncelledim.

 

[Emine Şahin]

Tamam Evren bey.
Tam istediğim gibi oldu. Allah razı olsun.

 

[Orion1]

Tamam Evren bey.
Tam istediğim gibi oldu. Allah razı olsun.

Rica ederim.
iyi çalışmalar.