• DİKKAT

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

Bir düğmeye 2 makro

  • Konbuyu başlatan Konbuyu başlatan Leoncio
  • Başlangıç tarihi Başlangıç tarihi
L

Leoncio

Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Arkadaşlar merhaba;

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

Aç ve Gizle olarak
 
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
 
Teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst