Butonlar ve resimler makro etkinleşince kayboluyor

[istiklal1963]

Benim üzerinde çalıştığım dosyamda öğrencilerin bilgileri ve resmi açılan metin kutusundan ismine tıklayınca ekrana geliyor yanlız bu sayfaya diger sayfalara gitmek için buton ekledim Öğrencinin değişmesi ile butonlar kayboluyor. Makrolar etkinleştiğinde butonlar gözükmüyor. Ne yapabilirim.

 

[Levent Menteşoğlu]

Bu şekilde cevap vermek zor, dosyanızı ekleyin.

 

[istiklal1963]

Butonlarım Kayboluyor

Dosya ekte arkadaşlar açılışta makroları etkinleştirince butonlar kayboluyor. Makroları etkinleştirip açınca öğrencilerde değişiklik yapınca yine butonlar kayboluyor. Yardımcı olurmusunuz arkadaşlar.
http://www.filearsivi.com/download.php?file=c39e2cea644a4d08f274bfa248bf1d6b

 

[istiklal1963]

http://www.filearsivi.com/download.p...74bfa248bf1d6b

 

[Metin Karaağaç]

Private Sub CommandButton1_Click()
Sheets("NOT ÇİZ123").Select
End Sub

Dosyanızda böyle bir kod var ama, "NOT ÇİZ123" adında bir sayfa yok. Bu yüzden kodlar hata veriyor. Bu kodları kendiniz mi hazırladınız yoksa başka bir yerden hazır alıp, kendi çalışmanıza mı uyarladınız?
Ayrıca butonlar demişsiniz ama ben sadece 1 tane buton görebildim.

 

[istiklal1963]

Arkadaşım butonların bir kısmını, resimleri hatta NOT ÇİZ123 sayfasını silmek zorunda kaldım, sebebi ise dosyanın büyük olması, bu alana direk yükleyemediğimden başka bir servere yükledim. Çalışmamı formunuzdan http://www.excel.web.tr yararlanarak hazırlıyorum bana çok şey öğretti bu arada teşekkürler. Dosyayı makrolar etkinleştirilmiş şekilde açtığımda bir ögrenciden diğerine geçmemle buton kayboluyor. Makroları devre dışı şeklinde açtığımda ise buton öğrenci değişiminde kaybolmuyor. yanlız öğrencinin resmi haliyle gelmiyor makrolar devre dışı olduğundan sanırım. bu sorunu bir türlü aşamadım TEŞEKKÜR EDERİM Acemi

 

[istiklal1963]

Dosya ekte

 

[İdris SERDAR]

FORM sayfasının kod bölümüne

...
....
..
Me.Pictures.Visible = False 'tan sonra

CommandButton1.Visible = True
CommandButton2.Visible = True
.......
........
kodlarını ekleyin.

 

[Metin Karaağaç]

Bir deneyin..

 

[istiklal1963]

Teşekkürler arkadaşlar, sizler gibi yardımsever arkadaşlar olduğu sürece sırtımız yere gelmez. Arkadaşlar kod bölümüne
CommandButton1.Visible = True
CommandButton2.Visible = True
.........
şeklinde ne kadar buton varsa aynı sayıda eklersek yeterli oluyor anladığım kadarıyla
butonu tıklayıca aktif hele gelmesi için ise
Private Sub CommandButton1_Click()
Sheets("NOT ÇİZ123").Select
End Sub
şeklinde her buton için ayrı ayrı yazmak gerekiyor sanırım.
TEŞEKKÜRLER