- Katılım
- 21 Eylül 2005
- Mesajlar
- 32
selam. ben excelin bünyesinde bulunan kredi ödemesinde olduğu gibi "kredi ödeme ayını girince o ay kadar satırın görüntülenmesini istiyorum. Dosyaları gönderiyorum. teşekkürler...
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$4" Or Not IsNumeric(Target) Or Target = "" Then Exit Sub
If Target < 1 Or Target > 20 Then
MsgBox "1-20 ARASINDA BİR DEĞER GİREBİLİRSİNİZ." & Chr(10) & "LÜTFEN GİRDİĞİNİZ DEĞERİ KONTROL EDİNİNZ.", vbExclamation, "DİKKAT !"
Target.Select
Target.ClearContents
Exit Sub
End If
If Target < 20 Then
Cells.EntireRow.Hidden = False
Rows(Target + 6 & ":25").EntireRow.Hidden = True
End If
If Target = 20 Then
Cells.EntireRow.Hidden = False
End If
End Sub
*********************************Selamlar,
Silinecek derken örneğin 5 satır açtınız ve bu 5 satıra veriler girdiniz. Daha sonra 2 satır açmak istediğinizde daha önce girdiğiniz 5 satırlık verilerin hepsimi silinecek yoksa 3. ile 5. satır arasındaki verilermi silinecek ? Bu bilgiyi netleştirirsek daha sağlıklı olacaktır.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$4" Or Not IsNumeric(Target) Then Exit Sub
If Target = "" Then Exit Sub
If Target < 1 Or Target > 20 Then
MsgBox "1-20 ARASINDA BİR DEĞER GİREBİLİRSİNİZ." & Chr(10) & "LÜTFEN GİRDİĞİNİZ DEĞERİ KONTROL EDİNİNZ.", vbExclamation, "DİKKAT !"
Target.Select
Target.ClearContents
Exit Sub
End If
If Target < 20 Then
Cells.EntireRow.Hidden = False
[B6:D25] = ""
Rows(Target + 6 & ":25").EntireRow.Hidden = True
End If
If Target = 20 Then
[B6:D25] = ""
Cells.EntireRow.Hidden = False
End If
End Sub