[Yardım]  Toggle Buttonları Bit Toggle Button da Bişleştirme Yardımı

Basma düğmesi

Toggle Buttonları Bit Toggle Button da Bişleştirme Yardımı

İleti#1)  OMERULLAH » 06 Kas 2019 11:24

Sayın Uzman Arkadaşlar,

Çalışma kitabımda ToggleButton1 ile "A18:A1000" aralığındaki boş satırları gizle/göster yapıyor, ToggleButton2 ile "A18:C1000" aralığındaki ise "A,B,C" sütunlarını gizle/göster yapıyorum.
Aşağıdaki kodlar ile yaptığım bu işlemi tek bir Toggle Button ile yapabilmek için, mevcut kodlarda nasıl değişiklik yapmalıyım.
Kod: Tümünü seç
Private Sub ToggleButton1_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

ToggleButton1.BackColor = vbYellow
If ToggleButton1 = True Then
ToggleButton1.Caption = "Yardımcı Sütunları GÖSTER"
Range("A18:C1000").EntireColumn.Hidden = True
ToggleButton2.Visible = True
Else
ToggleButton1.BackColor = vbRed
ToggleButton1.Caption = "Yardımcı Sütunları GİZLE"
Range("A18:C1000").EntireColumn.Hidden = False
ToggleButton2.Visible = True

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End If
End Sub

Private Sub ToggleButton2_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

    Dim Veri As Range, Alan As Range
    ToggleButton2.BackColor = vbBlue
    For Each Veri In Range("A18:A1000")
        If Veri.Value = "" Then
            If Alan Is Nothing Then
                Set Alan = Veri
            Else
                Set Alan = Union(Alan, Veri)
            End If
        End If
    Next
   
    If Not Alan Is Nothing Then
        With ToggleButton2
            If .Value Then
                Alan.EntireRow.Hidden = True
                .Caption = "Boş Satırları GÖSTER"
            Else
                ToggleButton2.BackColor = vbGreen
                Alan.EntireRow.Hidden = False
                .Caption = "Boş Satırları GİZLE"
            End If
        End With
       
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True

    End If
End Sub


Benim için çok kıymetli olan yardımlarınızı rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 52
İleti: 160
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

Cevap: Toggle Buttonları Bit Toggle Button da Bişleştirme Ya

İleti#2)  OMERULLAH » 09 Kas 2019 17:38

Konuya henüz bir çözüm üretemedim
Konu gülceldir.
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 52
İleti: 160
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

Cevap: Toggle Buttonları Bit Toggle Button da Bişleştirme Ya

İleti#3)  Feyzullah » 10 Kas 2019 12:41

Ömer Hocam; Açıklamanızı anlamakta güçlük çekiyorum. Mevcut kodları boş verin siz ne yapmak istiyorsunuz onu net yazarsanız yardımcı olabilirim.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 851
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Toggle Buttonları Bit Toggle Button da Bişleşt

İleti#4)  OMERULLAH » 18 Kas 2019 09:56

Feyzullah yazdı:Ömer Hocam; Açıklamanızı anlamakta güçlük çekiyorum. Mevcut kodları boş verin siz ne yapmak istiyorsunuz onu net yazarsanız yardımcı olabilirim.


Sayın Feyzullah bey,

Çalışma sayfasının A,B,C yardımcı sütunlar olarak kullanılmakta ve formül içermektedir. Bir adet Toggle button yardımı ile A sütununda boş olan satırlar ile A,B,C, sütunlarını tamamen gizlemek, ihtiyaca görede göstermek istiyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 52
İleti: 160
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Toggle Buttonları Bit Toggle Button da Bişleştirme Ya

İleti#5)  Feyzullah » 21 Kas 2019 21:30

Kusura bakmayın, Geçmiş iletilerime bakarken fark ettim size cevap vermediğimi, unutmuşum.

Aşağıdaki kodu deneyiniz hocam.

Kod: Tümünü seç
Private Sub ToggleButton1_Click()
'www.ExcelDestek.Com sitesinde sorularınızı sorabilirsiniz'
If ToggleButton1.Value Then
ToggleButton1
.BackColor = vbRed
For sat 
= 4 To Cells.SpecialCells(xlCellTypeLastCell).Row
    If Cells
(sat, 1) = Empty Then Rows(sat).EntireRow.Hidden = True
Next sat
Columns
("A:C").EntireColumn.Hidden = True
Else
Cells.EntireRow.Hidden = False
Columns
("A:C").EntireColumn.Hidden = False
ToggleButton1
.BackColor = &H8000000F
End If
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 851
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum ToggleButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe