Yalnız Mesajı Göster
Eski 09-02-2018, 07:22  
baykan_m
Altın Üye
 
Giriş: 26/08/2015
Şehir: Bursa
Mesaj: 145
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Problemim çözülmüştür. Aşağıdaki kodla çözdüm sonunda

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
b = "b"
x = ActiveCell.Row
hcr = b & x
deger = Sheets("arama").Range(hcr)
Sheets("arama").Range("g16") = deger
End Sub
baykan_m Çevrimdışı   Alıntı Yaparak Cevapla