hücreyi tıkladığımda kopyalayıp başka sayfaya yazsın

[blazer2004]

arkadaşlar merhaba basit bir soru olarak gözüküyo ama ben bulamadım.excel de 50 satır oluşturdum bunların her birinde farklı değer var ben herhangi birisinin üzerine tıkladığımda diğer sayfadaki istediğim hücreye yazsın istiyorum.örnek verilirse: sayfa1 ,a1 hücresinde ahmet yazıyosa o hücreye tıkladığımda sayfa2 deki a1 hücresine ahmet yazmasını istiyorum.ilgilenen arkadaşlara şimdiden teşekkürler.iyi çalışmalar

 

[kombo]

Sayfa2 de sadece A1 hücresine yazması isteniyor.
Yani Sayfa1 de A35 tıkladığınızda Sayfa 2 de A35 hücresine mi yazacak A1 hücresine mi?

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1in kod sayfasına kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then [sayfa2!a1] = Target
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodlardan işinize yarayanı Sayfa1 in kod bölümüne uygulayıp denermisiniz. Umarım faydası olur.

1. Kod; (Sayfa1 de A sütununda seçtiğiniz hücredeki değeri Sayfa2 deki aynı hücreye aktarır.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Sheets("Sayfa2").Range(Target.Address) = Target
End Sub

2. Kod; (Sayfa1 de A sütununda seçtiğiniz hücreyi Sayfa2 de A1 hücresine aktarır.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Sheets("Sayfa2").Range("A1") = Target
End Sub

 

[blazer2004]

arkadaşlar çok teşekkür ederim .sizden bir rica daha olacak şimdi A sütununu sayfa2 deki a1 hücresine yazdırdım aynı işlemi bsütunu ,c sütunu gibi hepsine yaptırmak istersem ne yapabilirim tabiki b sütunu b1 ,c sütunu c1 gibi olmalı.iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheets("Sayfa2").Cells(1, Target.Column) = Target
End Sub

 

[blazer2004]

SAYIN COST yanlış anlattım galiba kusura bakmayın.ilk örnekteki gibi sayfa1 de A sütunundan herhangi birini seçtiğimde sayfa2 deki a1 hücresine yazıyor.ben aynısında sayfa1 de B sütunundan herhangi bir hücreyi seçtiğimde sayfa2 deki b1 sütununa yazmasını yani bu C,D,E gibi gitmesini istiyorum.ilgilendiğiniz için teşekür ederim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Sheets("Sayfa2").Range("A1") = Target
End Sub

yukardakini b c d sütunlarında kullanmak için ne eklemeliyim.

 

[Korhan Ayhan]

Selamlar,

Eğer kodlamaya sütun sınırlaması eklemek istiyorsanız aşağıdaki şekilde kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
    Sheets("Sayfa2").Cells(1, Target.Column) = Target
End Sub

 

[blazer2004]

çok teşekkür edrim cost control sayende problemi çözdüm.iyi çalışmalar:hihoho:

 

[blazer2004]

sayın cost control sizi yine rahatsız ediyorum kusura bakmayın bir soru daha sormak istiyorum ben bu A sütunundaki herhangi bir satırdaki değeri tıkladığımda b1 hücresine yazdıracam b sütunundaki değeride a1 sütununa yazdıracam siz daha önce bir komut göndermiştiniz.ben onun üzerinde bir kaç ekleme yaptım ama program istediğim değeri yazmıyor.acaba yanlışlık mı yaptım yardımcı olurmusunuz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Sheets("Sayfa2").Range("B1") = Target
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Sheets("Sayfa2").Range("A1") = Target

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Sheets("Sayfa2").Range("B1") = Target
If Target.Column = 2 Then Sheets("Sayfa2").Range("A1") = Target
End Sub

 

[blazer2004]

çok teşekkür ederim levent bey başarılarınızın devamını dilerim.iyi çalışmalar