Boş Satırları Silerek yukarı kaydırma!

[maxinates]

Arkadaşlar, Excel'de sayfadaki bir kolonun içeriğinin boş olması durumunda bir butona basarak o satırı silip yukarı kaydırma işlemi yapabilirmiyiz. örneğin. [A1:asdf], [A2:bos],[A3:asdf],[A4:bos],[A4:asdf] hücrelerinde bu bilgiler olsun. butona tıkladığımda A2 ve A4 satırları silip, A3 ve A4 satırlarını da A1'in altına kaydıran bir makro yazmak mümkün mü

 

[zafer]

Merhaba

Sub bos_alanları_sil_esas()

Application.ScreenUpdating = False
Dim hucre As Range
Dim x As Integer
basla:
x = WorksheetFunction.CountA(Range("A:a"))
For Each hucre In Range("A1:a" & x)
If hucre.Value = "" Then
hucre.Select
Selection.EntireRow.Delete Shift:=xlUp

GoTo basla
End If
Next
End Sub

 

[Ali]

Sub satir_sil()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A65536")

For Each c In Rng
If c.Value = "" Then
c.EntireRow.Delete xlShiftUp
End If
Next c
Application.ScreenUpdating = False
End Sub

 

[Ali]

Sayın zafer, kusura bakmayın ben yazarken mesajınız gelmiş

 

[zafer]

Merhaba

Sayın Fructose
2 sn fark

 

[Levent Menteşoğlu]

Bir alternatifte ben önereyim.

Sub sil()
Range("A1:A" & [a65536].End(3).Row).SpecialCells(xlCellTypeBlanks).Delete
End Sub

 

[Ali]

En hızlı moderatörler bu forumda o birşey değil arkadaşlar o kadar alıştıkki 10 saniyede cevap bekleyecekler benden uyarması

 

[maxinates]

Yardımınız için çok teşekkürler. iyi çalışmalar

 

[danersin]

En hızlı moderatörler bu forumda o birşey değil arkadaşlar o kadar alıştıkki 10 saniyede cevap bekleyecekler benden uyarması

bu şaka bir yana ciddi bir sorun. 15-20 dkka sorusuna cevap alamayan dönüp sitem ediyor bazen. biraz daha alıştırırsa bu moderatörler bu duruma yarın bir gün dönüp fırça atan da olacak. :hiho:

 

[Necdet]

1. Bu makroların hepsi A sütünunu mu kontrol ediyor?
2. Sayın leventm, ve zafer, in makrolarında 400 hatası aldım
3. Sayın fructose, un makrosu 5 satırlık bir veride biraz fazla çalıştı

boş satırları silmek için makrosuz bir örnekte ben vereyim
1. F5 yada Ctrl+G(Git)
2. Özel(special)
3. Boş(blanks)
4. fareyle sağ klik
5. sil(delete)
5. istediğiniz seçime göre silmeyi seçiniz

 

[Levent Menteşoğlu]

1. Bu makroların hepsi A sütünunu mu kontrol ediyor?

Evet

boş satırları silmek için makrosuz bir örnekte ben vereyim
1. F5 yada Ctrl+G(Git)
2. Özel(special)
3. Boş(blanks)
4. fareyle sağ klik
5. sil(delete)
5. istediğiniz seçime göre silmeyi seçiniz

Benim verdiğim kod zaten bu yazdığınızın makrodaki karşılığıdır.