• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sayfa seçme

Katılım
27 Aralık 2005
Mesajlar
213
Excel Vers. ve Dili
OFFICE-2003 Türkçe
Arkadaşlar Merhaba,
Öncelikte tüm forum üyelerinin ramazanlarını tebrik eder, hayırlara vesile olmasını temenni ederim.
Sorumu ek'teki dosyada anlatmaya çalıştım yardım ederseniz çok sevinirim.

Saygılarımla
 
Merhaba,

Fonksiyonlarla çözüm işinize yararsa,

ANALİZ Sayfası A5 hücresine,

Kod:
=DOLAYLI($C$3&"!"&ADRES(SATIR();SÜTUN()+1))

Formülü yazarak formülü alt satırlara kopyalayınız..
 
Bu da makro ile yapılışı olsun.Sayfanın kod kısmına ekleyin.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$3" Then Exit Sub
    [a5:c1000] = Sheets("" & [c3] & "").[b5:d1000].Value
End Sub
 
Sy Espiyonajl Sy Hamitcan bilgilendirme için tşkler...
 
Arkada&#351;lar &#231;ok te&#351;ekk&#252;r ederim
 
Geri
Üst