Sayfalara Makro ile gidilmesi yardım isteğim

[assenucler]

Değerli Dostlar,


Ekli dosyada gerekli açıklamayı yaptım.

Yardımınızı bekliyorum.

Saygılar,
Selim

 

[LutfiOasis]

Merhaba.
Çok iyi değilim ama bilgim dahilinde bir şeyler yapmaya çalıştım naçizane.
Umarım işinize yarar.
İyi günler

 

[assenucler]

Günaydın. LutfiOasis,

Aramıza hoş geldiniz. Paylaşımınız için teşekkür ederim.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[assenucler]

Kodda neyi eksik yapıyorum?

 

[muygun]

Kodlarınıza bakmadım. (Yeni kod oluşturdum.)

Mesela silmek istediğiniz (index) sayfa adı yok

 

[assenucler]

Sayın muygun,


İlginiz ve çözüm öneriniz için teşekkür ederim. Sağ olun, var olun,

Saygılar,
Selim

 

[assenucler]

Sayın muygun,


İlginiz ve çözüm öneriniz için teşekkür ederim. Sağ olun, var olun,

Saygılar,
Selim

 

[assenucler]

Sayın Yöneticiler,

Sayın muygun'a bir kez yanıt vermeme karşın, görüleceği gibi, iletim 4 kez listelendi! Fazla iletiden birini silince, mesajım tek'e düştü. Bilgilerinize.

 

[assenucler]

Değerli Dostlar,

Sayın LütfiOasis ile üstat muygun'un çözümleri için kendilerine bir kez daha teşekkür ederim.

İnternette videosunu izlediğim makronun, kodlarında bir yerde hata yapıyor olmalıyım ki "Çizime" tıkladığımda "hata" iletisi alıyorum.

Makro bilgim çok yetersiz olduğu için de, hatamı göremiyorum.
Yardımınızı bekliyorum.

 

[assenucler]

Alınan hata ileti resmi ektedir

 

[Korhan Ayhan]

VBA tarafında alt satıra geçerken boşluk ve sonrasında alt tire kullanılır. Aşağıdaki satırlarda boşluk görünmüyor.

ActiveSheet.Hyperlinks.Add_
Anchor:=Selection, Address:="", SubAddress:=_

Ek olarak sayfa ismini de Listele olarak revize etmelisiniz.

Sheets("index").Range("A:A").Clear

 

[assenucler]

Sayın Korhan Ayhan,

Üstadım öncelikle yeni yılınızı kutlar; sağlık, afiyetler ile bol kazançlar dilerim.
Yardımınız için teşekkürler. Rabbim sizden razı olsun.

Saygılar,
Selim