istenen kadar satır açma

[sokrates11]

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

 

[Korhan Ayhan]

Selamlar,

Dosyanızdaki "HESAP" isimli sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

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&#304;R DE&#286;ER G&#304;REB&#304;L&#304;RS&#304;N&#304;Z." & Chr(10) & "L&#220;TFEN G&#304;RD&#304;&#286;&#304;N&#304;Z DE&#286;ER&#304; KONTROL ED&#304;N&#304;NZ.", vbExclamation, "D&#304;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

 

[sokrates11]

teşekkür

Tamam,İstediğim oldu. Yardımınız için teşekkürlker....

 

[sokrates11]

şu hücredeki veriler

Eğer Mümkünse;"E4" hücresine veri girilince Aşağıdaki sütünlardaki;
B6:B25, C6:C25, D625 ve E6:E25 hücrelerindeki veriler silinsin. Böyle olunca tümü silinecek. Yeni açılanlara yeni veriler girilecek.
Mümkünse bunu yapacak kodu gönderebilirmisinz? Teşekkürler...

 

[sokrates11]

şu hücredeki veriler

Eğer Mümkünse;"E4" hücresine veri girilince Aşağıdaki sütünlardaki;
B6:B25, C6:C25, D625 ve E6:E25 hücrelerindeki veriler silinsin. Böyle olunca tümü silinecek. Yeni açılanlara yeni veriler girilecek.
Mümkünse bunu yapacak kodu gönderebilirmisinz? Teşekkürler...

 

[sokrates11]

ilgili sütunlar

Eğer Mümkünse;"E4" hücresine veri girilince Aşağıdaki sütünlardaki;
B6:B25, C6:C25, D625 ve E6:E25 hücrelerindeki veriler silinsin. Böyle olunca tümü silinecek. Yeni açılanlara yeni veriler girilecek.
Mümkünse bunu yapacak kodu gönderebilirmisinz? Teşekkürler...

 

[sokrates11]

ilgili sütunlar

Eğer Mümkünse;"E4" hücresine veri girilince Aşağıdaki sütünlardaki;
B6:B25, C6:C25, D625 ve E6:E25 hücrelerindeki veriler silinsin. Böyle olunca tümü silinecek. Yeni açılanlara yeni veriler girilecek.
Mümkünse bunu yapacak kodu gönderebilirmisinz? Teşekkürler...

 

[sokrates11]

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.

*********************************
Eğer Mümkünse;"E4" hücresine veri girilince Aşağıdaki sütünlardaki;
B6:B25, C6:C25, D625 ve E6:E25 hücrelerindeki veriler silinsin. Böyle olunca tümü silinecek. Yeni açılanlara yeni veriler girilecek.
Mümkünse bunu yapacak kodu gönderebilirmisinz? Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodda ufak bir revize yaptım. Sebebi ise hücreye 20 değerini yazdığınızda hatalı sonuç vermesiydi. Sanırım son hali size daha faydalı olacaktır.

 

[sokrates11]

açılan satırlar dışındaki satırlar

Hocam tekrar yardım istiycem. Şİmdi istenen satırıları açıyorum. Orası üzel.
Ancak;
Örenğin 3 satır açtım ve satırlara verileri girdim gerekli hesaplamaları yapıyor. Buraya kadar güzel. Daha sonra 2 satır açıyorum. Ancak daha önce açtığım satırlara girdiğim veriler kalıyor. Kod satırları gizliyor.
Benim istediğim;İlk açtığım satırdan daha az satır açtığımda önceki satırlardaki verileri silsin . BAzı hücrelerde formüllerim var. Ben şu sütünlardaki bilgileri sildirmak istiyorum;
Eğer Mümkünse;"E4" hücresine veri girilince
B6:B25, C6:C25, D625 ve E6:e25 sütunlarındaki veriler silinsin
Mümkünse bunu yapacak kodu gönderebilirmisinz? Teşekkürler...

 

[Korhan Ayhan]

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.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

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