Sorgu için arama sonuçları: EntireRow.Hidden+union

Private Sub ToggleButton1_Click() Dim Veri As Range, Alan As Range For Each Veri In Range("G5:G99") If Veri.Value = "" Then If Alan Is Nothing Then Set Alan = Veri Else Set Alan = Union(Alan, Veri) End If...

Merhaba, Aşağıdaki kodu deneyiniz. Sub kod() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim alan As Range Dim a As Integer Dim b As Byte Set alan = Range("A2") Rows("3:1003").Hidden = True For a = 3 To 1003 For b = 1 To 20 If Cells(a, b) <> ""...

Teşekkür ederim Çalıştı Ancak tablom 12 satırdan başlıyor. üstünü gizlememesi gerek

Merhaba, Deneyiniz. Sub gizle() Dim c As Range, Adr As String, k As Range Application.ScreenUpdating = False Call goster Set c = [C:C].Find(0, , xlValues, xlWhole) If Not c Is Nothing Then Adr = c.Address Do If k Is Nothing Then...

Merhaba Kendi Kullanış olduğum Satır Ve Sütün Gizleme Kodlarını İhtiyacınıza Göre Uyarlayabilirsiniz. Umarın işinizi Görür 'Satır Gizlemek için Private Sub ToggleButton1_Click() Dim Veri As Range, Alan As Range For Each Veri In Range("I13:I40") If Veri.Value = 0 Then...

3. bir toggle buton ekleyip içine şu kodları yazıp deneyin 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...

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...

Deneyiniz. Private Sub ToggleButton1_Click() Dim Veri As Range, Alan As Range For Each Veri In Range("D4:D3500") If Veri.Value = "HAYIR" Then If Alan Is Nothing Then Set Alan = Veri Else Set Alan = Union(Alan, Veri)...

Ömer BARAN hocam Allah razı olsun istediğim oldu. Çok ilgilendiniz benimle. Ama inanın dua alıyorsunuz. Çünkü görme engelli olan ve çok az gören bir mutemet için hazırlıyorum bunu. Fakat butona bağlayınca sadece ilk sırada yazılı PUANTAJ sayfasını gizliyor. Diğerler sayfalarda işe yaramadı...

Tekrar merhaba. Varsa; şimdiye kadar verdiğim kodlardan, Modul veya ilgili sayfaların kod bölümüne eklediğiniz kodları silin. VBA ekranında sol taraftaki VBA_Project alanında BuÇalışmaKitabı (ThisWorkbook) 'na fareyle çift tıklayıp, aşağıdaki kod blokunu sağdaki boş alana yapıştırın. (ust...

Merhaba. Bu işlem için; Worksheet_SelectionChange kodu yerine, bir düğme kullanmanızı öneriyorum. İllede Worksheet_SelectionChange kodu kullanacağım derseniz, bu kod blokunun içerisine Call A_SIFIR_BOS_GIZLE satırı eklemeniz yeterlidir. Aşağıdaki kod'u deneyiniz. Sub A_SIFIR_BOS_GIZLE() Dim s1...

İyi akşamlar. Bir veri kopyalama makrom var. Bu makro Sayfadaki gizli satırları da kopyalıyor. Ben sadece görünür satırları kopyalamasını istiyorum. Yardımcı olabilir misiniz nasıl bir şey eklemem lazım makroma? Sub VERİLERİKAYDET22() 'İlk başta boş olan hücreleri gizliyorum' Dim s1 As...

İlginiz için teşekkür ederim. İlgili kodu kendi çalışmama yeni uyarlayabildim. Bi sorunla karşılaşmadım. Saniyesinde makro sonuçlanıyor. Gerçekten çok teşekkürler. Bir sorunla karşılaştığımda çözümleye bilmem ve diğer sayfalarıma uygulayabilmem için kodunuzu açıklayabilir misiniz? ÖZellikle...

Merhaba. Aşağıdaki kod'u deneyiniz. D sütununda, 0 yerine BOŞ olan hücrelerin (formül olup sonucu BOŞ olanlar dahil) satırlarını gizlemek için, kod'daki kırmızı renklendirdiğim kısmı If a(i, 1) = "" Then olarak değiştirebilirsiniz. Sub D_GIZLE() Dim s1 As Worksheet, a(), adres As Range Dim brn...

Deneyiniz. Private Sub ToggleButton1_Click() Dim Veri As Range, Alan As Range For Each Veri In Range("A3:A1000") If Veri.Value = "" Then If Alan Is Nothing Then Set Alan = Veri Else Set Alan = Union(Alan, Veri)...

Alternatif; Hız olarak daha iyi sonuç alabilirsiniz. Private Sub Worksheet_Change(ByVal Target As Range) Dim Alan As Range, Veri As Range With Application .Calculation = xlManual .ScreenUpdating = False .EnableEvents = False End With...

Merhabalar herkese, Özel sekmemde yarattığım(xml kullanarak) 3 adet checkbox(işaret kutusu) ve 3 adet buton var. sifirla bütün sutunların gösterilmesini,gizle ise istenilen sutunların gizlenmesini sağlıyor.Sil butonu ise sütün ismine göre sütünlari siliyor. Fakat sil butonunda silme işlemi...