satır gizlemek

[fharunf]

bu konuyla ilgili diğer mesajları inceledim benim istediğime yakın çalışmalar yapılmış. benim istediğim ise ekli dosyada. yardımlarınızı bekliyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Dim i As Integer
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Rows("1:23").Hidden = False
If Target.Value > 0 And Target.Value < 20 Then
    i = 3 + Target.Value
    Rows(i & ":22").Hidden = True
End If
Application.ScreenUpdating = True
Son:
End Sub

 

[Necdet]

Tekrar Merhaba,

İşlemi biraz daha otomatik hale getirmek olası.

• B1 hücresi kişi eklendikçe hesaplanır.
• Satır sayısı önemli değildir.
• Yazdırılırken ya da Sayfa Ön İzeleme yaptırılırken satırlar gizlenir
• Herhangi bir hücreye çift tıklandığında gizlenen satırlar gösterilir.
• Kodların ThisWorkbook'un kod bölümünde olması gerekir.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Sayfa1" Then Exit Sub
Dim SonSat As Integer
Dim BasSat As Integer
SonSat = [A65536].End(3).Row - 1
BasSat = [B1] + 3
Rows(BasSat & ":" & SonSat).Hidden = True
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name = "Sayfa1" Then Rows.Hidden = False
End Sub

 

[uzmanamele]

merhaba

syn fharunf, syn Necdet Yeşertener istediğiniz satırları gizlemiş.
Necdet beyin bilgisine, becerisine, emeğine teşekkür etmemek için sizde gizleniyor musunuz?

 

[fharunf]

syn Necdet Yeşertener beyin bilgisine, becerisine, emeğine teşekkür etmemek ne demek işlerimden dolayı foruma belirli zamanlarda giriş yapabiliyorum emeğinize sağlık çok teşekkürler

 

[fharunf]

ben kendi ihtiyaçlarımı giderecek kadar excel bilgisine sahip olduğumu düşünüyorum.Bazende işin içinden çıkamayınca ilk başvurduğum yer excel.web.tr oluyor. Arkadaşlar gerçekten ileri düzey bilgi seviyeleriyle problemleri çok kısa zamanda çözüp bize geri dönüyorlar ama ben bu işleyişten aslında birazda rahatsızım hazıra konmak gibi geliyor bana "balık yemek değil tutmak istiyorum" misali kısacası...kod yazmayı nasıl öğrenebiliriz yazdığınız kodalrı inceliyorum ama altyapı sağlam olmayınca olmuyor bu iş en iyi ve en kısa nasıl öğrenilir. Lütfen bunada cevap saygılar, tekrar teşekkürler.