- Katılım
- 16 Temmuz 2010
- Mesajlar
- 6
- Excel Vers. ve Dili
- 2003 versiyonu
Ekte mevcut olan dosyada yeni üye kaydı yaptığımda, otomatik olarak "Data" sayfasındaki listenin son kısmına üye adını eklemekte ve üyenin numarasına göre bir sayfa eklenmekte.
(Örn: Data sayfasında üye 5.sırada ise açılan sayfa Üye5 olmakta.)
Yardıma ihtiyaç duyduğum kısım, otomatik olarak "Data" sayfasına eklenen üye ismine, üye adı ile ilişkilendirilmiş sayfaya köprü eklenmesi..
VBA'da çalışan kod
ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Data").Range("B" & Bos_Satir), Address:="", SubAddress:= _
"Sayfa1!A1", TextToDisplay:=TextBox1.Text
Benim Yapmak istediğim kod
ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Data").Range("B" & Bos_Satir), Address:="", SubAddress:= _
"Üye & Bos_Satir - 2!A1", TextToDisplay:=TextBox1.Text
umarım az da olsa derdimi anlatabilmişimdir, yardımlarınız için şimdiden teşekkürler..
(Örn: Data sayfasında üye 5.sırada ise açılan sayfa Üye5 olmakta.)
Yardıma ihtiyaç duyduğum kısım, otomatik olarak "Data" sayfasına eklenen üye ismine, üye adı ile ilişkilendirilmiş sayfaya köprü eklenmesi..
VBA'da çalışan kod
ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Data").Range("B" & Bos_Satir), Address:="", SubAddress:= _
"Sayfa1!A1", TextToDisplay:=TextBox1.Text
Benim Yapmak istediğim kod
ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Data").Range("B" & Bos_Satir), Address:="", SubAddress:= _
"Üye & Bos_Satir - 2!A1", TextToDisplay:=TextBox1.Text
umarım az da olsa derdimi anlatabilmişimdir, yardımlarınız için şimdiden teşekkürler..
Ekli dosyalar
-
240.3 KB Görüntüleme: 79