DÜĞME İLE VERİYİ BAŞKA SAYFAYA TAŞIMA

[umitumit]

Merhaba arkadaşlar,

2 farklı sayfam var.
ilk sayfada (sayfa1) A3 hücresinde aşağı açılır listem var. Bu listeyi "sayfa2" nin C sütunundan alıyor.

İstediğim şey şu; sayfa2 de listenin her hangi bir değerini seçeyim. Mesela c15.
Daha sonra düğmeye tıklatayım ve C15 te yazan değeri sayfa1 A3 hücresine yazsın ve Köprü gibi sayfa1 i açsın.

Bunu seçeceğim her hücre için (C6:C200 aralığından olmalı sadece) yapmalı.

C6:C200 arasından herhangi bir hücre seçili değilse, macro çalışmamalı.

Teşekkürler

 

[NADİR YILDIZ]

bu kadar anlatmak varken altın üyesiniz örnek dosya eklerseniz daha çabuk sonuç alırsınız

 

[umitumit]

Kendi dosyam çok büyük. Dosya yapmaya da üşendim açıkçası.

Onu da yapmış olayım o zaman.

 

[dEdE]

Merhaba,
İsteğinizi düğme yerine çift tıklama ile yerine getiren kod aşağıdadır. Kodu sayfanın kod bölümüne yapıştırıp dener misiniz?
Not: Düğmeye atamadım çünkü düğme sayfada sabit kalacak C6:C200 arasında düğmeye ulaşmak için sürekli yukarı aşağı kaydırma yapmak zorunda kalacaktık. Aşağıdaki kod C6:C200 arasındaki hücrelere çift tıklayarak çalışır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C6:C200")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    Set s1 = Sheets("Sayfa1")
    s1.Range("A3").Value = Target.Value
    s1.Activate
End If
End Sub

 

[umitumit]

Süper, elinize sağlık.

"Bölme Dondur" ile ilk 5 satırı yukarı sabitlemiştim.
O nedenle düğme dedim ama bu da işimi görecektir.

Teşekkürler

 

[dEdE]

Bir butona atayarak dener misiniz?

Sub Test()
    If ActiveCell.Column <> 3 Or ActiveCell.Row < 6 Or ActiveCell.Row > 200 Then Exit Sub
    Set s1 = Sheets("Sayfa1")
    s1.Range("A3").Value = ActiveCell.Value
    s1.Activate
End Sub

 

[umitumit]

Bu da çalışıyor, teşekkürler.