çift tıklama ile verı aktarımı

[kakara]

Merhaba ustadlarım gecen paylastıgım ve sorunumu anlasılır bır sekılde anlatamayıp sızlerın zamanını caldıgım ıcın kusura bakmayın. dosyamı yalın bır hale getırıp sızlerle paylaşıyorum. sızlerden rıcam cıft tıklama ıle dıger sayfaya verı aktarımıdır. detayları ektekı dosyamda yazdım ılgı ve alakanız ıcın sımdıden tesekkur ederım. forumda verı aktarımı ıle neredeyse tum dosyaları ınceledım malesef kendıme uyarlıyamadım bu yuzden sızlerden destek beklıyorum.

 

[tahsinanarat]

Aşağıdaki kodu denermisiniz;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a4:a65000]) Is Nothing Then Exit Sub
Set s1 = Sheets("Sayfa2")
Cancel = True
sat = Target.Row


sat2 = s1.[c65536].End(3).Row + 1
s1.Rows(sat2).Insert
s1.Cells(sat2, "c") = Cells(sat, "c")
s1.Cells(sat2, "d") = Cells(sat, "d")
s1.Cells(sat2, "e") = Cells(sat, "e")
s1.Cells(sat2, "f") = Cells(sat, "f")
s1.Cells(sat2, "g") = Cells(sat, "g")
s1.Cells(sat2, "h") = Cells(sat, "h")
s1.Cells(sat2, "ı") = Cells(sat, "ı")
s1.Cells(sat2, "j") = Cells(sat, "j")
s1.Cells(sat2, "k") = Cells(sat, "k")
s1.Cells(sat2, "l") = Cells(sat, "l")
s1.Cells(sat2, "m") = Cells(sat, "m")
MsgBox "  AKTARMA TAMAMLANDI   "
End Sub

 

[kakara]

@tahsinanarat ustadım tesekkur ederım ılgınız alakanız ıcın kod calısıyor kendı dosyamda deneyecegım ısallah oraya da yaparım .

 

[kakara]

@tahsinanarat ustadım orjınal dosyamda bu makroyu kullanıcagım sayfada baska makrolarda var kodu sayfaya kopyaladıgımda ıslemıyor kodu sayfanın basındakı makronun yerıne koydugumda calısıyor ıkı makroyuda kullanabılecegım bır yol var mı acaba ?

 

[kakara]

@tahsinanarat ustadım benım hatam özur dılerım zamanınızı calmak ıstemezdım kusura bakmayınız.

 

[ÖmerFaruk]

Sayfanızdaki diğer kodları da paylaşırmısınız?

 

[kakara]

@ÖmerFaruk ustadım ılgınız ıcın tesekkur ederım yanlıslık benden kaynaklanıyormus @tahsinanarat ustadımın kodu dosyada calısıyor