• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

  • Merhaba,
    Forumumuz yeni bir sunucuya taşındı.

    Bazı kullanıcı bilgilerinin taşınmasında hatalar olmuş.
    Foruma giriş yapamıyorsanız lütfen bir süre bekleyin. Eksik verileri tamamlamak için çalışıyoruz.
    Hata düzelince tekrar bilgi paylaşacağız.

    Eksik kullanıcı verileri geri yüklendi.
    Sorun yaşamaya devam eden varsa lütfen admin@excel.web.tr ye bilgi verin.

Bir düğmeye 2 makro

L

Leoncio

Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Altın Üyelik Bitiş Tarihi
29-06-2023
Arkadaşlar merhaba;

Ekte örneğini iliştirdiğim dosyada bir düğmeye 2 makroyu nasıl yapabilirim?

Aç ve Gizle olarak
 
M

Mahmut Kök

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
Kod: 
Sub ac()
If ActiveSheet.Shapes("AutoShape 3").Visible = True Then
For Y = 250 To 0 Step -4
DoEvents
ActiveSheet.Shapes("AutoShape 3").Height = Y
Next
ActiveSheet.Shapes("AutoShape 3").Visible = False
Else
ActiveSheet.Shapes("AutoShape 3").Visible = True
For Y = 0 To 250 Step 4
DoEvents
ActiveSheet.Shapes("AutoShape 3").Height = Y
Next
End If
End Sub
 
L

Leoncio

Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Altın Üyelik Bitiş Tarihi
29-06-2023
Teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst