Dolu olan hücreler en yukarı gelmesi

[ASLAN7410]

Merhaba arkadaşlar.

Ekte gönderdiğim excel sayfamı forumdaki arkadaşların yardımı ile oluşturmaya çalıştım, sayfamda küçük değişikler yapmak istiyorum, sayfamda gerekli açıklama yaptım.

Yapmak istediğim sayfam içerisinde karşısındaki dolu olanlar en üste gelmesini, karşısı boş olanlar görünmemesini istiyorum.

Yardım edecek arkadaşlara şimdiden çok teşekkür ediyorum.

 

[YUSUF44]

Eğer örnek dosyanızdaki gibi P sütununa almak istiyorsanız aşağıdaki kodları kullanabilirsiniz:

Sub gizle()
For i = 2 To Cells(Rows.Count, "H").End(3).Row
    If Cells(i, "H") <> "" And Cells(i, "I") <> "" Then
        yenibüro = Cells(Rows.Count, "P").End(3).Row + 1
        Cells(yenibüro, "P") = Cells(i, "H")
        Cells(yenibüro, "Q") = Cells(i, "I")
    End If
Next

For j = 2 To Cells(Rows.Count, "J").End(3).Row
    If Cells(j, "J") <> "" And Cells(j, "K") <> "" Then
        yeniper = Cells(Rows.Count, "R").End(3).Row + 1
        Cells(yeniper, "R") = Cells(j, "J")
        Cells(yeniper, "S") = Cells(j, "K")
    End If
Next

End Sub

Yok P sütununa değil de oldukları yerde gizlensinler diyorsanız benim yapabileceğim yok çünkü ordaki veriler formülle elde edilmişler.

 

[ASLAN7410]

Sayın Yusuf Bey ilginiz için çok teşekkür ediyorum.

Kodlar çok güzel çalışıyor ellerinize sağlık, yanlış anlattım galiba P-Q-R-T sütunlarını nasıl yapmak istediğimi göstermek için yapmıştım.

P-Q-R-T sütunlardaki bilgiler gibi, bilgilerin formülle H-I-J-K sütunlarına gelmesini istemiştim.

 

[YUSUF44]

Yok P sütununa değil de oldukları yerde gizlensinler diyorsanız benim yapabileceğim yok çünkü ordaki veriler formülle elde edilmişler.

Demiştim zaten.

 

[ASLAN7410]

Sayın Yusuf Bey ilginiz için çok teşekkür ediyorum ellerinize sağlık, formülle yapılabilirse diye sormuştum, bu da işimi görür.

Hayırlı çalışmalar.

 

[YUSUF44]

Yapılabilirse de ben yapamam maalesef

 

[ASLAN7410]

Anladım Yusuf Bey çok teşekkür ediyorum, bu şekilde de güzel oldu.
Hayırlı çalışmalar.