tıkladığımız hücreyi başka sayfadaki hücreye yazdırma

Katılım
24 Mart 2017
Mesajlar
148
Excel Vers. ve Dili
ofis 2013
selamlar elimde bir liste var bu listedeki hücreye tıkladiğimda tıkladiğim hücreyi başka sayfadaki hücreye kopyalamak mümkün mü acaba ?

örnek verecek olursak

A1 hücresinde yazan "Ahmet" yazısına tıkladiğimda
sayfa2 deki C3 hücresine "ahmet" yazdırmak istiyorum. bunu hangi yolla yapabilirim.

teşekkürler.
 

dellerlim

Altın Üye
Altın Üye
Katılım
25 Şubat 2012
Mesajlar
323
Excel Vers. ve Dili
office 2016 türkçe
Altın Üyelik Bitiş Tarihi
15.03.2027
Her tıklandığında bir alt satıra mı kopyalanacak yoksa hep C3 hücresine mi?
 
Katılım
24 Mart 2017
Mesajlar
148
Excel Vers. ve Dili
ofis 2013
a1 a2 a3 a4 ....

hangisine tıklarsam tıklayayimo hücreyi sayfa2 deki c3 hücresine kopyalamaya çalişiyorum. linkle felan denedim yapamadim.
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,800
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Altın Üyelik Bitiş Tarihi
29.03.2025
Merhaba.

Makro yazmayı bilmiyorum, ama aşağıdaki örnek işinizi görür mü? Bilmiyorum.

Kodu sayfanın kendi kod kısmına yapıştırın.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Sayfa2").Range("c3") = ActiveCell
End Sub
 
Katılım
24 Mart 2017
Mesajlar
148
Excel Vers. ve Dili
ofis 2013
bu kod olmaz sanrım çünkü nereden kopyalamasi gerektiğini yazmamiş teşekkürler yinede.
 

dellerlim

Altın Üye
Altın Üye
Katılım
25 Şubat 2012
Mesajlar
323
Excel Vers. ve Dili
office 2016 türkçe
Altın Üyelik Bitiş Tarihi
15.03.2027
Ekteki dosyada; Sayfa1'de çift tıkladığınız hücreyi Sayfa2, C3 hücresine yapıştırır.
 

Ekli dosyalar

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,800
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Altın Üyelik Bitiş Tarihi
29.03.2025
Merhaba aşağıdaki gibi deneyin.

Sayfa1'e sağ mause yapın, Kod görüntüleye tıklayın, açılan pencereye yapıştırıp kapatın, sayfa üzerinde nereye tıklarsanız tıklayın o hücreyi dediğiniz hücreye yapıştırır.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Sayfa2").Range("C3") = ActiveCell
MsgBox ActiveCell & " kopyalandı."
End Sub
 
Katılım
24 Mart 2017
Mesajlar
148
Excel Vers. ve Dili
ofis 2013
@ASLAN7410 teşekkürler hocam oldu :)

@dellerlim indiremiyorum hocam :( kodlari paylaşabilirmisiniz sizinkinede bir bakayim

hepinize teşekkürler.
 
Üst