Textbox ile satır gizleme

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

Textbox ile satır gizleme

İleti#1)  engin » 19 Nis 2010 19:07

Merhaba Arkadaşlar...

Bir programa ihtiyacım var kabataslak çalışma yaptım, bazı sorunlarım var.
İşinee göre bazı operasyonları atlaya biliyoruz.
Checkboxlar la giriş-dikim... diye giden operasyonları ihtiyacım olanları gizleyip gösteriyorum.

Sıkıntım:
Örneğin userform üzerinde söküm operasyonuna 9 tane textbox ekledim.
textboxlara girdiğim veriler excelde "I(19:28)" hücrelerine yazdırılacak.

Eğer 9 tanesini değilde 3 tanesini doldurursam excelde sadece ilgili 3 satır gözükecek ve diğerleri gizlenecek.
İlgilenecek arkadaşlara şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
engin
Siteye Alışmış
 
Adı Soyadı:ENGİN KONAK
Kayıt: 29 Eyl 2009 16:26
Meslek: Kalıp Tasarımcısı
İleti: 153
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Textbox ile satır gizleme

İleti#2)  engin » 20 Nis 2010 14:37

Yok mu yardım edecek kimse ?
Kullanıcı avatarı
engin
Siteye Alışmış
 
Adı Soyadı:ENGİN KONAK
Kayıt: 29 Eyl 2009 16:26
Meslek: Kalıp Tasarımcısı
İleti: 153
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Textbox ile satır gizleme

İleti#3)  Tarkan VURAL » 21 Nis 2010 00:48

Excel 2003 ile eklediğinizde daha hızlı yanıt gelebilir. [evet]

Kod: Tümünü seç
Sub gizle()
For i = 19 To 28
If Cells(i, "I").Value = "" Then Rows(i).Hidden = True
Next i
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26642
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Textbox ile satır gizleme

İleti#4)  engin » 21 Nis 2010 10:56

Tarkan Bey
Boşken gizliyor ama doldurunca gösterilmiyor.
Kullanıcı avatarı
engin
Siteye Alışmış
 
Adı Soyadı:ENGİN KONAK
Kayıt: 29 Eyl 2009 16:26
Meslek: Kalıp Tasarımcısı
İleti: 153
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

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

Cevap: Textbox ile satır gizleme

İleti#5)  engin » 21 Nis 2010 18:16

Hallettim
Kullanıcı avatarı
engin
Siteye Alışmış
 
Adı Soyadı:ENGİN KONAK
Kayıt: 29 Eyl 2009 16:26
Meslek: Kalıp Tasarımcısı
İleti: 153
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Textbox ile satır gizleme

İleti#6)  suatbayhan » 07 Haz 2010 13:02

Merhaba Hocam,
Benim de satır gizleme ile ilgili bir ricam olacaktı.
Dosya ekte.
Saygılarımla...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
suatbayhan
Yeni Başlamış
 
Adı Soyadı:Suat BAYHAN
Kayıt: 17 Tem 2009 15:09
Konum: Batman
Meslek: İnşaat Yüksek Mühendisi
Yaş: 53
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BATMAN

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Textbox ile satır gizleme

İleti#7)  Tarkan VURAL » 07 Haz 2010 20:51

Suat bey selamlar,

Aşağıdaki kodları Milletvekilisayısı kod sayfası içine yazdığınızda, 60 yazan üstteki kutucuğu çift tıkladığınızda, altta kalan boş satırlar gizlenir. Aynı sayının bulunduğu hücreyi sağ tıkladığınızda da tamtersini yapıp, gizlenmiş hücreleri gösterir. Dilerseniz bu kodları bir buton prosedürüne de yazabilirsiniz. Bunun için ToggleButton kullanışlı olur Basılı olduğunda gizler, tekrar bastığınızda görünür filan gibi.

Kod: Tümünü seç
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$L$2" Then
Cancel = 1
Application.ScreenUpdating = 0
For i = 8 To 67
    If Cells(i, "b").Value2 = "" Then
        Rows(i).Hidden = True
    End If
Next i
Application.ScreenUpdating = 1
End If
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$L$2" Then
    Rows("8:67").Hidden = False
    Cancel = 1
End If
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26642
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Textbox ile satır gizleme

İleti#8)  suatbayhan » 08 Haz 2010 10:26

Hocam yardımlarınız için çok teşekkür ederim.
Bu kodda satır gizleme b sütununa bağlanmıştır. Bu durumda örneğin c sütununda dolu hücre sayısı fazla olsa bile b sütunundaki boş hücreler gizlendiğinden c sütunundaki dolu hücreler de gizleniyor.

Acaba B8:T67 aralığında buş olan satırları gizleme imkanı yok mu?
Yani dolu olan tüm hücrelerin bulunduğu satırlar görünecek.

Yine örnek vermek gerekirse:
B7=100 yazdığımızda,
B sütununda dolu hücre sayısı 1 adet olduğu halde, C sütununda dolu hücre sayısı 17 adet olmaktadır.
Ancak L2 hücresini çift tıkladığımızda 8. satıra kadar ki tüm satırlar gizleniyor.
Halbuki 8-24 satırlarının görünmesi diğer satırların gizlenmesi gerekiyor.

Saygılarımla...
Kullanıcı avatarı
suatbayhan
Yeni Başlamış
 
Adı Soyadı:Suat BAYHAN
Kayıt: 17 Tem 2009 15:09
Konum: Batman
Meslek: İnşaat Yüksek Mühendisi
Yaş: 53
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BATMAN


Forum TextBox

Online Kullanıcılar

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

Bumerang - Yazarkafe