[ÇÖZÜLDÜ] Satır gizleme

[ToZ_KaLDiRaN]

Merhaba üstadlarım bir sorum olacaktı;

Ekte gönderdiğim çalışmamda 1Veri sayfasında veri girildiğinde ek1 sayfasına gerekli yerlere yazdırıyor. Fakat veri 100 kişilik bu 10 kişi olsa bile tamamını yazdırmak zorunda kalıyorum o yüzden ek1 sayfasındaki veri girilmemiş satırlar görülmesin 1Veri sayfasından giriş yaptığımda ek1 sayfasındaki satır görünsün böylece yazıcı çıktısında az yer kaplamış olacak kağıtda boş gitmeyecek Hem ben hem milletimiz kazanacak

 

[ersoyalan]

Merhaba,

İlgili linki inceleyiniz.

http://www.excel.web.tr/showthread.php?t=28325&highlight=yazd%FDr%FDrken+bo%FE+h%FCcreler

İyi çalışmalar

E.ALAN

 

[uzmanamele]

merhaba

syn ToZ_KaLDiRaN,
sitede arama yaparsanız benzer birçok örnek bulabilirsiniz.
onu geçtik, şuanda ana sayfada benzer bir soru ve cevabı var zaten?

http://www.excel.web.tr/showthread.php?p=313823

 

[ToZ_KaLDiRaN]

Sayın ersoyalan ve uzmanamele;

Göndermiş olduğunuz dosyalar benim istediğim değil
şöyle bişey yapsam A1 hücresine EĞER=(B1="";"0";"1") yazsam banada sayfada sadece A sütununda 1 olanları göster diye formül veya komut istiyorum bunu butona bağlasamda olabilir farketmez butona basınca sadece A sütunuda "1" olan satırları gösterecek böyle bir komut yapmamız mümkün mü acaba

Yardımlarınız için teşekkür ederim Kolay gelsin iyi günLer..

 

[uzmanamele]

merhaba

aşağıdaki kodları dener misiniz

1veri sayfası kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D1:D110]) Is Nothing Then Exit Sub
dolu_satır = Target.Row
Sheets("ek1").Rows(dolu_satır).EntireRow.Hidden = False
End Sub

ek1 sayfası kod bölümüne

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Rows("12:110").EntireRow.Hidden = False
For i = 110 To 12 Step -1
If Range("a" & i) = "" Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub

 

[ToZ_KaLDiRaN]

Sayın uzmanamele;

Minnettarım size çok teşekkür ederim ikinci verdiğiniz formül işimi gördü istediğim gibi oldu eğer kusura bakmazsanız bişey daha sorabilir miyim?

Kodlar sayfayı şifrelediğimde hata veriyor yani satır eklemiyor korumada çalışması için kodun mu değişmesi lazım yoksa böyle bişey mümkün değil mi? veya sayfadaki verilerin(formüllerin) gizlenmesinin sayfada istenmeyen yerlerde değşiklik yapılmaması mümkün mü?

 

[uzmanamele]

merhaba

aşağıdaki şekilde dener misiniz

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:="atadevrim"
Application.ScreenUpdating = False
Rows("12:110").EntireRow.Hidden = False
For i = 110 To 12 Step -1
If Range("a" & i) = "" Then
Rows(i).EntireRow.Hidden = True
End If
Next
ActiveSheet.Protect Password:="atadevrim"
End Sub

 

[ToZ_KaLDiRaN]

Sayın uzmanamele;

Evet sonunda bitirdim ÇooooooooK TeşekkürLer Allahım Razı oLsun KoLay GeLsin.. HayırLı günLer..