Yenilenen Değerde boş satır

[igultekin2000]

Merhaba;
Hareket çalışma sayfasının D sütunundaki değerleri, tekrarları sildirerek TRANSFER_DURUM ÇALIŞMA sayfasının A hücresine alıyorum. Daha önceki çalışmamda oluşturulan makroyu kullanıyorum. HAREKET çalışma sayfasındaki D sütunu için görünmeyen karakter düşüncesiyle DAMGA makrosu ile içindeki boş verileri sildiriyorum. Buna rağmen veri çektiğim çalışma sayfasında 3.cü satır boş kalıyor. Sebebini çözemedim Kullandığım makro

Sub yenilenen_DURUM()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
  Dim SD As Worksheet: Set SD = Sheets("HAREKET")
    Dim SO As Worksheet: Set SO = Sheets("TRANSFER_DURUM")
    Dim liste(), dizi()
    son = SD.Cells(Rows.Count, "D").End(3).Row
    liste = SD.Range("D3:D" & son).Value
    Set dic = CreateObject("scripting.dictionary")
    For X = 1 To UBound(liste, 1)
        aranan = liste(X, 1)
        If Not dic.exists(aranan) Then
            dic.Add aranan, ""
        End If
    Next X
    SO.Range("A2:A" & Rows.Count).ClearContents
    SO.Range("A2").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

boş satırın olmaması için makroda veya başka ne gibi işlem yapabilirim. Teşekkürler

 

[muygun]

Merhaba;
Silinme konusunu anlamadım ama bir sütundaki tekrarsız verileri (silme işlemi yapmadan) diğer sayfaya alma ile ilgili ekteki makroyu deneyin.
İyi çalışmalar.

 

[igultekin2000]

Merhaba;
Silinme konusunu anlamadım ama bir sütundaki tekrarsız verileri (silme işlemi yapmadan) diğer sayfaya alma ile ilgili ekteki makroyu deneyin.
İyi çalışmalar.

Teşekkür ederim, makro sorunsuz çalışıyor. İyi çalışmalar.