Ben Bilinen Bir Sayfanın Hücresine Bilinmeyen Bir Sayfanın..

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

Ben Bilinen Bir Sayfanın Hücresine Bilinmeyen Bir Sayfanın..

İleti#1)  serkandallas » 04 Mar 2012 22:43

Hocam başlığı karışık vermiş olabilirim. Konu şöyle vba form ile yeni bir sayfa açıyorum ve bu sayfa üzerinde işlemleri sheets(textbox1.text).select yaparak yapıyorum. Komutların sonunda şöyle bir durum var. "Mizan" isimli sayfanın bir hücresine, bu form ile açmış olduğum sayfanın numarasını o esnada bilemediğim için formül kopyalatamıyorum.
Daha değişik olması açısından, "Mizan" isimli sayfanın "A1" hücresine form ile eklemiş olduğum sayfanın "B1" hücresinin değerini paralel olarak yazdırmak istiyorum. Yalnız bu yeni açmış olduğum sayfanın numarası bilinmiyor ama sayfa ismi textbox1.text'dir.
şimdiden yardımcı olacak arkadaşlara ve hocalarıma teşekkür ederim saygılarımla,
En son Murat OSMA tarafından, 14 Mar 2012 16:47 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Başlık düzeltildi...
Kullanıcı avatarı
serkandallas
 
Adı Soyadı:serkan dallas
Kayıt: 04 Mar 2012 21:58
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mersin

Cevap: ben bilinen bir sayfanın hücresine bilinmeyen bir say

İleti#2)  Skorpiyon » 14 Mar 2012 16:44

Aşağıdaki şekilde bir deneyin.

Kod: Tümünü seç
Sheets("Mizan").Range("A1").Value = Sheets(Textbox1.Text).Range("B1").Value

Not = Kodlarınızın tam olarak nasıl olduğunu bilmediğimden yukarıdaki kod 1 ihtimal hata verebilir ve o hata tahminen Userform'dan kaynaklanacaktır. Bu durumda aşağıdaki şekilde de deneyebilirsiniz.

Kod: Tümünü seç
Sheets("Mizan").Range("A1").Value = Sheets(Userform1.Textbox1.Text).Range("B1").Value

'Userform1 yerine siz kendi form isminizi yazınız.

Kolay gelsin...
En son Murat OSMA tarafından, 05 Mar 2012 10:56 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Kodlar [code][/code] tagları arasına alındı...
Kullanıcı avatarı
Skorpiyon
Yeni Başlamış
 
Adı Soyadı:Şaban SERTKAYA
Kayıt: 03 Ekm 2011 10:59
Konum: aaaaaa
Meslek: aaaaaaaaaaaaaaa
Yaş: 44
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Ben Bilinen Bir Sayfanın Hücresine Bilinmeyen Bir Say

İleti#3)  Murat OSMA » 14 Mar 2012 16:48

Serkan Bey konuyu neden güncellediniz ? [ilginc]
Sn. skorpiyon'un kodları işinize yaramadı mı ? [ilginc]
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Ben Bilinen Bir Sayfanın Hücresine Bilinmeyen Bir Say

İleti#4)  serkandallas » 12 Eyl 2018 15:38

Osman hocam sizin verdiğiniz işlemde o anki rakamları aktarıyor ben iki hücre arasında bağ kurup rakamların hep aynı gözükmesini istiyorum.
Örnek: "mizan" isimli bir sayfamız var. Daha sonra Userform1 ile "501" isimli bir sayfa açacağız. Komuta önce textbox1 yazılı sayfayı aç. Sonra "mizan" sayfasının "h5" hücresine bu açılan sayfanın "g5" hücresi ile bağ kur.
Hocam ben bu sayfayı kurma esnasında mizan isimli sayfaya bağ kurma formülünü atayamıyorum.
Benim yapamadığım formül:
Sheets("mizan").Select
ActiveSheet.Unprotect
Range("h5").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.Offset(0, 0).Value = "='501'!g5"

sayfa adı ilk açma esnasında bilinmediği için şu şekilde yapıyorum hata veriyor:
ActiveCell.Offset(0, 0).Value = "='textbox1.text'!d5"
Kullanıcı avatarı
serkandallas
 
Adı Soyadı:serkan dallas
Kayıt: 04 Mar 2012 21:58
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mersin

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe