Başka yere boşlukları kaldırıp sıralasın ve kopyalasın

[ogameci]

Merhaba,
A1:A20 arası boşluklar içeren veriyi, B1:B20 arasına sıralatıp kopyalayabilir miyiz?

Makro çalışınca B1:B20 arasına sıralandı, bu alan ctrl+c gibi kopyalandı. Başka belgede ctrl+v ile bu alan yapıştırılabilir.

Şimdiden çok teşekkür ederim. Kaç gündür uğraşıyorum :redface:

 

[feridici_genc]

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("A1:A20").Select
    Range("A1:A20").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B1"), Unique:=True
    Range("B1:B20").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    Range("B1:B20").Select
    Selection.Copy
End Sub

 

[ogameci]

feridici_genc vallahi hızır gibi yetiştiniz. Allah sizden razı olsun

 

[feridici_genc]

inan ben bişi yapmadım sadece makro kaydettim. deneyin

 

[ogameci]

inan ben bişi yapmadım sadece makro kaydettim. deneyin

Çok güzel çalışıyor. Tam istediğim gibi. Elinize sağlık