- Mesajlar
- 2,349
Excel'de resimdeki filtrelemeyi nasıl yaparım(Çözüldü)
- Konbuyu başlatan minEvoRise
- Başlangıç tarihi
-
- Etiketler
- dikey excel filtreleme
- Mesajlar
- 2,349
up
- Mesajlar
- 1,886
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.
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.
- Mesajlar
- 2,349
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.
- Mesajlar
- 313
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.
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.
