satırlardaki boşlukları çıkartıp değerleri başka bir sutunda sıralamak

[td]

ekteki örnek dosya da a sutundaki değerlerin aralarındaki boşlukları atıp c sutununa kopyalamak istiyorum yardımlarınız için şimdiden teşekkurler.....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları bir butona bağlayıp denermisiniz.

Sub LİSTELE()
    [C:C].ClearContents
    S = 0
    For X = 1 To [A65536].End(3).Row
    If Cells(X, 1) <> "" Then
    S = S + 1
    Cells(S, 3) = Cells(X, 1)
    End If
    Next
End Sub

 

[td]

TeŞekkÜrler Çok TeŞekkÜrler

 

[Necdet]

Yada :

Sizin örneğinize göre söylüyorum

1. A1:A16 Seçilir
2. F5 (Ctrl+G, Git) Seçilir
3. Special (Özel sanırım)
4. Constans (Sabitler)
6. Ok
7. Copy (Kopyala)
8. İstediğiniz yere yapıştırınız