Excel'de resimdeki filtrelemeyi nasıl yaparım(Çözüldü)

Kodla Büyü

sertokus

Süper Üye
Süper Üye
Mesajlar
2,350
sil yardım.png
 
Ben olsam şöyle yapardım..

5.sınıf,6.sınıf,7.Sınıf,8.Sınıf diye aratır boşlukla değiştir der oradaki tüm hücreleri boşaltırdım.

Sonra isimlerin yazdığı hücre bloğunu seçer(C hücresi) boşlukları seçer(f5 ile kolay seçim) sil'den yukarı taşı yapar, sonra diğer gruba E,F,G,H hücrelerine de aynı işlemi yapardım.

Hepsi yukarı ve düzenli şekle gelmiş olurdu.
 
Ben olsam şöyle yapardım..

5.sınıf,6.sınıf,7.Sınıf,8.Sınıf diye aratır boşlukla değiştir der oradaki tüm hücreleri boşaltırdım.

Sonra isimlerin yazdığı hücre bloğunu seçer(C hücresi) boşlukları seçer(f5 ile kolay seçim) sil'den yukarı taşı yapar, sonra diğer gruba E,F,G,H hücrelerine de aynı işlemi yapardım.

Hepsi yukarı ve düzenli şekle gelmiş olurdu.
Teşekkür ederim hocam. Sizden esinlendim yine. Ama hiç hücre silmeye gerek yok. En yukarıdan filtreleme yapıp. örneğin 5. sınıf ı seçmeyip, boşlukları da seçmeyince geriye sadece rakamlar kalıyor düzenli olarak. Bu şekilde istediğim gibi oldu.
 
Sub Süz()
Application.ScreenUpdating = False
son = Cells(Rows.Count, 3).End(3).Row
a = 7
For i = 1 To son
If Cells(i, 3) = "" Then GoTo 10
Cells(a, 11) = Cells(i, 3).Value
Cells(a, 12) = Cells(i + 1, 5).Value
Cells(a, 13) = Cells(i + 1, 6).Value
Cells(a, 14) = Cells(i + 1, 7).Value
Cells(a, 15) = Cells(i + 1, 8).Value
a = a + 1
10
Next
End Sub


Kodu deneyiniz.
 
Geri
Üst