aktarma

[ahmett46]

slm
bir excel sayfasında a1 : a20 arasında isimler var. bu ismlerden rastgele birinin üzerine tıkladığımda sayfa 2 deki a1 hücresine ikinci rastgele bir isme tıkladığımda sayfa 2 a2 hücresine aktarabilirmiyiz? teşekkürler

 

[udentr2002]

ekli dosyayı inceleyiniz

tüm sayfalarda hangi hücreye çift tıklarsanız o hücreyi kopyalayıp sayfa2 ye yazdırıyor inşallah işinizi görür

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[udentr2002]

özür dosyayı eklemedim

 

[udentr2002]

costcontrol hocam cevap vermiş bile

 

[ahmett46]

Hocam öncelikle ikinizede teşekkür ediyorum. Bir sorum daha olacak (CostControl Hocama) sayfa 1 deki verileri kod bölümünde (A:AA) şeklinde değiştirdim. aa ya kadar olan bilgileri aktarıyor. Ancak sayfa2 a sütununa. a dakini a sütununa b dekini b sütununa c dekini c sütununa ............. şeklinde yapamadım. teşekkürler

 

[Korhan Ayhan]

Selamlar,

Anlattıklarınızdan her hücreyi tek tek aktarmak istediğiniz sonucunu çıkarıyorum. Eğer isteğiniz bu yönde ise aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [A:AA]) Is Nothing Then Exit Sub
    Cancel = True
    Satır = IIf(Sheets("Sayfa2").Cells(1, Target.Column) = "", 1, Sheets("Sayfa2").Cells(65536, Target.Column).End(3).Row + 1)
    If Not IsEmpty(Target) Then Sheets("Sayfa2").Cells(Satır, Target.Column) = Target
    MsgBox "Veri aktarılmıştır." 'Bu satırı isterseniz silebilirsiniz.
End Sub