Otomatik sekme indeksi

[FatihOzcan]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Arkadaşlar selamlar,

Bir excel dosyam var. 100 den fazla sekme var. Index adında bir sekme oluşturuyorum ve aşağıdaki kodu kullanarak sekme adına göre linkli bir index oluşturuyorum. Fakat şöyle bir sorunum var, eğer sekme adı 10-10 gibi bir isimdeyse excel bunu tarihe çeviriyor. Makro çalıştıktan sonra format değiştirince de işe yaramıyor.

İndirmek için giriş yapmanız gerekmektedir.
(22 satır)

Bu kodunda başında bir yerde hücre fomatını yazı olarak biçimlendirmek lazım sanırım ama bir türlü beceremedim. Yardımlarınızı rica ederim.

 

Excelden Whasappa Mesaj yollama

Veri Girildiğinde Hücredeki Saati Alma

[FatihOzcan]

Hatta abartmış olmazsam eğer, üstteki kod A sütununa ekleme yapıyor. Belirlediğim bir hücre girincede B sütununa yine text olarak yazdırabilirsem süper olur.

 

[selmank]

Merhaba..
Kodun altındaki me.hyperlink kısmını aşağıdaki gibi değiştirin. Tek değişiklik TextToDisplay:="'" & wSheet.Name kısmında oldu.. Tek tırnak ekledim..

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

 

[FatihOzcan]

Merhaba..
Kodun altındaki me.hyperlink kısmını aşağıdaki gibi değiştirin. Tek değişiklik TextToDisplay:="'" & wSheet.Name kısmında oldu.. Tek tırnak ekledim..

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

Çok teşekkür ederim cevabınız için ama runtime error verdi. Bir yerde hata yapıyorum sanırım.

 

[selmank]

kullandığınız kodunson halini yapıştırır mısınız?

 

[FatihOzcan]

İndirmek için giriş yapmanız gerekmektedir.
(21 satır)

 

[Feyzullah]

Aşağıdaki kodu End If kodunun üst satırına ekleyiniz.

İndirmek için giriş yapmanız gerekmektedir.
(2 satır)

 

[selmank]

Anchor:=Me.Cells(l, 1) satırında 1 (bir) değil l (küçük L) yazıyor.. onu 1(bir) yapınız.

 

[selmank]

orası zaten l (küçük l) olacakmış. yukardkai l = l + 1 satırını kaldırmışsınız.

 

[FatihOzcan]

Anchor:=Me.Cells(l, 1) satırında 1 (bir) değil l (küçük L) yazıyor.. onu 1(bir) yapınız.

Aynı maalesef

İndirmek için giriş yapmanız gerekmektedir.
(21 satır)

 

[Feyzullah]

Anchor:=Me.Cells(l, 1) satırında 1 (bir) değil l (küçük L) yazıyor.. onu 1(bir) yapınız.

Son paylaştığınız koda göre Anchor:=Me.Cells(M, 1) şeklinde M olacak demek istedi @Selman hocam.

 

[FatihOzcan]

Çok teşekkür ederim.

Aşağıdaki kod çalıştı.

İndirmek için giriş yapmanız gerekmektedir.
(21 satır)

Kodun çıktısı aşağıdaki şekilde. Bir adım daha ileri gidersek eğer her sekmede D5 hücresi örneğin ilgili linkin karşısına yazdırılsın. Bunu nasıl yapabilirim acaba? İlgili link nedir bunun açıklaması gibi.

 

[FatihOzcan]

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

veya üstteki kodda CONST bir sekmenin adı ve B1 o sekmede ki hücre. CONST kısmını bir hücreye bağlayarak değişken hale getirebilir miyim?

 

[Feyzullah]

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

veya üstteki kodda CONST bir sekmenin adı ve B1 o sekmede ki hücre. CONST kısmını bir hücreye bağlayarak değişken hale getirebilir miyim?

Sayfa adı E1 hücresinde yazıyor var sayalım.

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

 

[FatihOzcan]

Sayfa adı E1 hücresinde yazıyor var sayalım.

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

? şapka çıkarıyorum valla. Allah razı olsun.

 

[FatihOzcan]

Bu akşam sizi uğraştıracağım biraz. Formül kısmen çalıştı. Aşağıda ki ref hatası neden anlamadım ama sekme adları rakam olduğu için gibi geliyor.

 

[FatihOzcan]

Evet tam olarak sebebi bu. Test ettim. Bunu nasıl çözeriz acaba

 

[Feyzullah]

Evet tam olarak sebebi bu. Test ettim. Bunu nasıl çözeriz acaba

Aşağıdaki formülü deneyin.

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

 

[FatihOzcan]

Aşağıdaki formülü deneyin.

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

Yok üstad maalesef çalışmadı. Formül olduğu gibi gözüküyor bu şekilde.

 

[FatihOzcan]

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

Kod bu şekilde çalıştı. Herkese çok teşekkür ederim gerçekten.