Sayfadan bilgi getir

[balca]

Merhaba:

Ctrl+H veya;
Düzen>değiştir kutucuğunu kod ile nasıl çağırabilirim ?

Esasen yapmak istediğim Ocak-Þubat-Mart..... Diye giden 12 aya ait sayfalarım mevcut
Ayni kitap içinde dublör olarak bir çalışma sayfam var Ocak,Þubat vs. istediğim aydan bilgileri alıp dublor sayfayı oluşturuyorum.

Þimdi:
Dublör sayfasının üzerine gelip Ctrl+H yapıp aranan Ocak yeni değer Þubat dediğimde dublör sayfasına şubat bilgileri geliyor.
Nasıl çözebilirim..

Saygılar
:kafa:

 

[veyselemre]

tam olarak anlamadım ama
dolaylı fonksiyomu işinizi görür gibi

 

[balca]

Ã?rnek dosya

Teşekkür ederim fakat istediğim bu değil

Yapmak istediğimi örnek bir tabloda gösterdim.. Umarım yardımcı olacak
arkadaşlar çıkar

 

[veyselemre]

en kolay şekli bu

 

[balca]

Merhaba:
İlginiz için teşekkürler
Fakat benim mantık olarak bu tarzda hazırlanmış çalışmam var daha önce söylediğim gibi
6000 satır civarında bu hazırladığım örnek çok basit bir örnek idi
formüllerim aşağıdaki tarzlarda olabiliyor
=Sayfa3!B14

=Sayfa3!B3+Sayfa3!B4

sizin kullandığınız formüller ise
=DOLAYLI($D$1&"!B3")
şeklinde ben şimdi bütün formüllerini bu tarza nasıl getirebilirim
dublör sayfa üzerine gelip
Ctrl+H yaptığımda çıkan kutucuğa aranan değere -----Sayfa1-----
Yeni değere ---------Sayfa2-------- yazıp tümünü değiştir dediğimde ayni sonuca ulaşabiliyorum başka bir
çözüm olabilmeli diye düşünüyorum..

 

[veyselemre]

şunu deneyin

 

[balca]

Teşekkür ederim örnek olarak hazırladığım dosyada çalışıyor problem yok ama kendi çalışma kitabıma
uyarladığımda bütün boş hücrelerede seçilen sayfa isimlerini yazıyor....

Esasen Düzen>değiştir kutucuğunu kod ile getirebilsem bu dahi işimi çözecek
Asıl dosyayı buraya iliştiremiyorum mb. Oldukça yüksek

 

[veyselemre]

d1 hücresine yalnızca bir sefer için
o anda geçerli sayfanın ismini yaz

 

[Levent Menteşoğlu]

Aşağıdaki kodu DUBLÃ?R sayfasına koyacağınız bir butona bağlayarak çalıştırın.

[vb:1:f469a54b0d]Sub cagır()
a = InputBox("sayfa adınız yazınız")
Sheets(a).[b2:b6].Copy
[b2].PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
[/vb:1:f469a54b0d]

 

[balca]

:hihoho: :hihoho: :hihoho:

Sadece Bu karadcık mıydı ???
Binlerce teşekkürler harikasınız... Problemim halloldu bişey daha sorabilirmiyim ??

Çıkan UserForm'da ki üst yazı Sayfa Seç başlığını nasıl değiştirebilirim ??

 

[Levent Menteşoğlu]

Aşağıdaki satırda değiştirebilirsiniz.

a = InputBox("sayfa adınız yazınız")

 

[balca]

Hocam:
Kodlar aşağıda önerdiğinizi nereye yazacağım

Private Sub ListBox1_Click()
Eski = Range("d1")
yeni = ListBox1.List(ListBox1.ListIndex)
Range("d1") = yeni
Sheets("DUBLÃ?R").Cells.Replace Eski, yeni, xlPart, xlByRows
End Sub
Private Sub UserForm_Activate()
kacsayfa = Sheets.Count
For x = 1 To kacsayfa
If Sheets.Item(x).Name = "DUBLÃ?R" Then Exit For
ListBox1.AddItem Sheets.Item(x).Name
Next
End Sub

 

[veyselemre]

sayfasecform formunun (proporties) özelliklerinden caption kısmından

ya da
kacsayfa=sheets.count dan önce veya sonra
caption="veysel emre"

 

[balca]

Üstadım;

Değerli yardımlarınız ile günlerdir kafamdaki tasarıyı gerçekleştirdim..

Elinize sağlık

İyi çalışmalar dilerim..

 

[veyselemre]

rica ederim antreman oldu