Satırları Yukarı Kaydır

[meslek5]

Merhaba, Satır aralarında boş hücreler bulunduğunda tabloda alfabetik sıralama yaptırmadan ve satır silmeden boşlukları kaldırabilir miyiz? ya da hücreleri yukarı kaydırabilir miyiz?

ARALARDA BOŞ HÜCRELER OLDUĞUNDA
A1= ELİF
A2= AYŞE
A3= BOŞ HÜCRE
A4= FATİH
A5= SUDE
A6= BOŞ HÜCRE
A7= FURKAN
A8= ALİ


BOŞLUKLAR KALDIRILDIĞINDA
A1= ELİF
A2= AYŞE
A3= FATİH
A4= SUDE
A5= FURKAN
A6= ALİ

 

[hamitcan]

Bu şekilde dener misiniz ?

Sub BoslukSil()
    For i = [a65536].End(3).Row To 1 Step -1
        If Cells(i, 1) = "" Then Rows(i).Delete
    Next
End Sub

 

[YUSUF44]

A1:A8 aralığını seçin
F5 tuşuna basın
Açılan menüde Boşlukları işaretleyip Tamam deyin
Seçili boş hücrelerden birine sağ tıklayıp Sil deyin
Çıkan menüde Hücreleri yukarı kaydır'ı seçin

Böylece satırlar değil sadece o boş hücreler silinir. Eğer hiçbir şekilde hücre ya da satır silinmesin istiyorsanız muhtemelen makro hazırlamak gerekir.

 

[YUSUF44]

Bu şekilde dener misiniz ?

Sub BoslukSil()
    For i = [a65536].End(3).Row To 1 Step -1
        If Cells(i, 1) = "" Then Rows(i).Delete
    Next
End Sub

Sayın hamitcan, arkadaş "satır silmeden" diye belirtmiş, gözünüzden kaçtı herhalde.

 

[ÖmerFaruk]

Deneyin lütfen

Sub Boşluklar()
Dim i As Integer
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If i >= Range("A" & Rows.Count).End(xlUp).Row Then Exit For
    If Range("A" & i) = "" Then
    For k = i + 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Range("A" & k) <> "" Then
            Range("A" & i) = Range("A" & k)
            Range("A" & k) = ""

            GoTo Devam
        End If
    Next k
    End If
Devam:
Next i
End Sub

 

[meslek5]

Yardımlarınız için teşekkür ederim.