Çözüldü makro düzenleme (biçimlendirme ve satır gizleme)

[Miraga]

Merhabalar
yapmaya çalıştığım çalışma forumdaki hocalarımızın sayesinde şekillendi tekrardan teşekkür ederim

* tablodaki siteme göre veri girişi yapıyorum sırala butonuna basınca aylara ve yıllara göre gruplandırıyor ve 11 ve 12 satırdaki bilgileri başlık olarak tüm grupların üst tarafına yapıştırıyor (sistem çalışıyor bir sıkıntı yok)

yapmak istediğim (1)
*sırala yaptıktan sonra alt taraflara yapıştırılan başlıkların satır yükseklikleri değişiyor ( - sırala butonuna basınca örneğin 21 ve 22 satırlarında 11 ve 12 deki gibi olması gerekirdi )

yapmak istediğim (2)
* göster / gizle butonuna basınca tablodaki bulunduğumuz ay ve yıl dan küçük ise satırları gizliyor - tekrar basınca gizli satırlar gösteriliyor çalışmada sıkıntı yok düzgün çalışıyor)
( yapmak istediğim bu gizlenen satırlar arasında j sutununda "Ödenmedi" yazıyor ise o satırlar gizlenmesin
-

 

[Kuşdili]

11 ve 12. satır yüksekliklerini değişkene atamak:
sat11 = Rows(11).RowHeight
sat12 = Rows(12).RowHeight

Sonrasında bu değişken değer kopyalanan satırlara uygulamak:
Rows(i + 7).RowHeight = sat11
Rows(i + 8).RowHeight = sat12

 

[Miraga]

hocam teşekkür ederim
ancak ilk başlık kısmında biçim ayarlıyor sonrakilerde düzeltmiyor ayrıya diğer ara satırları bozd

 

[Miraga]

hocam teşekkür ederim
ancak ilk başlık kısmında biçim ayarlıyor sonrakilerde düzeltmiyor ayrıya diğer ara satırları bozd

 

[Kuşdili]

Bende bir bozulma olmamıştı.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Miraga]

Teşekkür ederim
biçimlendirme kısmı düzelmiş gibi duruyor elinize sağlık

yapmak istediğim (2)
* göster / gizle butonuna basınca tablodaki bulunduğumuz ay ve yıl dan küçük ise satırları gizliyor - tekrar basınca gizli satırlar gösteriliyor çalışmada sıkıntı yok düzgün çalışıyor)
( yapmak istediğim bu gizlenen satırlar arasında j sutununda "Ödenmedi" yazıyor ise o satırlar gizlenmesin

ikinci kısım için
göster / gizle butonuna basınca bulunduğumuz aydan önceki kısımlar gizleniyor örneğin ( bugün 05.07.2023 ----6 ncı ay dahil geriye doğru tüm satırlar gizleniyor sorun olmadan çalışıyor ancak j sutununda ödenmedi yazıyor ise o satır gizlenmesin
yardımcı olabilirseniz sevinirim

 

[Kuşdili]

Sayfayı "I" sütunu=1 kriterine göre sıralama yapmayı öneriyorum.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Miraga]

Sayfayı "I" sütunu=1 kriterine göre sıralama yapmayı öneriyorum.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hocam ilginiz için teşekkür ederim
makro bilgim yok kodu kopyaladım eski kodun üzerine yapıştırdım ama çalıştıramadım

 

[Miraga]

hocam kodu uygulaya bildim ancak
hem satır gizlenmedi
sanırım ı sütununda sıralama yapıyor oda tarih sırasını bozuyor

 

[userx]

Sayın siyar0044

yapmak istediğim (2)
* göster / gizle butonuna basınca tablodaki bulunduğumuz ay ve yıl dan küçük ise satırları gizliyor - tekrar basınca gizli satırlar gösteriliyor çalışmada sıkıntı yok düzgün çalışıyor)
( yapmak istediğim bu gizlenen satırlar arasında j sutununda "Ödenmedi" yazıyor ise o satırlar gizlenmesin

Alttaki kodu dener misiniz?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Miraga]

Sayın siyar0044

Alttaki kodu dener misiniz?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hocam ilginiz için teşekkür ederim
kodu denedim ancak resimdeki belirtmeye çalıştığım sorun var
normalde tabloların altında alt toplam ve bir sonraki tablo için başlık oluşur


ama gizlenen sayfada başlık tabloya gelmedi

 

[Miraga]

ActiveSheet.Rows("12:" & sat - 7).EntireRow.Hidden = True
şeklinde yapınca düzeldi tşk ederim