Makrolu Sekme Dizininde Adların Tarihe Dönüşmesini Önleme

[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.

Bu kodu görmek için giriş yapmanız gerekmektedir (22 satır). Giriş Yap

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.

 

[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..

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

 

[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..

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

Ç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]

Bu kodu görmek için giriş yapmanız gerekmektedir (21 satır). Giriş Yap

 

[Feyzullah]

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

Bu kodu görmek için giriş yapmanız gerekmektedir (2 satır). Giriş Yap

 

[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

Bu kodu görmek için giriş yapmanız gerekmektedir (21 satır). Giriş Yap

 

[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ı.

Bu kodu görmek için giriş yapmanız gerekmektedir (21 satır). Giriş Yap

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]

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

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]

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

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.

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

 

[FatihOzcan]

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

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

? ş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.

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

 

[FatihOzcan]

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

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

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

 

[FatihOzcan]

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

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