Tabloya GÖre Gİzleme

[belinay42]

Arkadaşlar
Sorumla ilgili sitede bir çözüm var ve onuda daha önce inceledim fakat şimdi nerde olduğunu bulamadığım için konu ekliyorum

Konunun yerini bilen veya bilgisi olan arkadaşlardan yardım bekliyorum

Teşekkürler

 

[aekturk]

Neyi, nasıl yapacağını anlayamadım. Özür dilerim.

 

[belinay42]

Formül yada makro farketmez sadece soldaki tabloda satırların bütün değerleri sıfır olanları gizleyecek diğer tabloda gösterecek

 

[karadami]

ekli dosyayi inceleyiniz....

 

[belinay42]

Sn karadami

çok teşekkürler aradığım buydu birde buton ismini kodunda değişiklik yaparak değiştirebilirmiyim? (mesela --AKTAR)

Saygılar

 

[karadami]

Sn karadami

çok teşekkürler aradığım buydu birde buton ismini kodunda değişiklik yaparak değiştirebilirmiyim? (mesela --AKTAR)

Saygılar

görünüm-araç çubukları-denetim araç kutusunu aktif hale getirin. burada en soldaki "tasarim modu" nu aktiflesirin ve dugmenin ustunde sag tiklayin.
command button nesnesi-edit komutu ile buton ismini degistirebilirsiniz.

 

[belinay42]

RİCA

Sn. Karadami

Benim kullanacağım sayfa bu rica etsem bu sayfaya uygulayabilirmisiniz

Saygılar

 

[karadami]

Sn. Karadami

Benim kullanacağım sayfa bu rica etsem bu sayfaya uygulayabilirmisiniz

Saygılar

neyi nereye uygulayayim. biraz aciklar msiniz

 

[belinay42]

Hesap özeti kısmına

 

[karadami]

Sub aktar()
[i1:m65536].ClearContents
son = [b65536].End(3).Row
sonyeni = [i65536].End(3).Row + 1
    For i = 1 To son
        If Cells(i, "C") = 0 And Cells(i, "d") = 0 And Cells(i, "e") = 0 Then
 
GoTo 10
        Else
        Sheets("[COLOR=magenta][B]HESAP ÖZETİ[/B][/COLOR]").Cells(sonyeni, "i") = Cells(i, "a")
        Sheets("[COLOR=magenta][B]HESAP ÖZETİ[/B][/COLOR]").Cells(sonyeni, "j") = Cells(i, "B")
        Sheets("[B][COLOR=magenta]HESAP ÖZETİ[/COLOR][/B]").Cells(sonyeni, "k") = Cells(i, "c")
        Sheets("[COLOR=magenta][B]HESAP ÖZETİ[/B][/COLOR]").Cells(sonyeni, "l") = Cells(i, "d")
        Sheets("[COLOR=magenta][B]HESAP ÖZETİ[/B][/COLOR]").Cells(sonyeni, "m") = Cells(i, "e")
 
       End If
  sonyeni = sonyeni + 1
10
    Next i
 
End Sub

sayfaları korumaya almışsınız. şifreyi bilmediğim için uygulamayı yapmak size kalıyor. bu kodlari bir module kopyalaın ve isterseniz bir düğmeye macro olarak atayın.
pembe ile yzaılan yerleri değiştirerek o isimde bir sayfa açarsanız özeti yeni açmış oldugunuz sayfaya yazar. örnek olarak sayfa ismini "ozetleme" yaparsaniz sheets("ozetleme") yazmaniz gerekecek.

 

[belinay42]

Sn Karadami

çok teşekkürler ellerinize sağlık

Saygılar

 

[karadami]

Sn Karadami

çok teşekkürler ellerinize sağlık

Saygılar

rica ederim, iyi calismalar......

 

[belinay42]

Sorun

Sn karadami

kodu uyguluyorum fakat hata veriyor

ayrıca bu sayfa devamlı değişiyor yani hesaplama kısmını burda toplanmış olarak görüyoruz şifresiz dosyayı ekledim bir bakarsanız sevinirim

Saygılar

 

[karadami]

dosyanız ekte. açıklamalar dosya içinde....

http://uploaded.to/?id=sxf24j