• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Arasında boşluk olanı aktarma

Katılım
15 Ocak 2010
Mesajlar
99
Excel Vers. ve Dili
Libre Office Türkçe
Merhaba. Öncellikle vermiş olduğunuz bu hizmetten ötürü sizlere teşekkür ederim.

Excel dosyasının C sütununda yazılı olan kelimeler içerisinden aralarında boşluk olan kelime öbekleri dışındaki diğer kelimeleri alıp A sütununa aktaran bir makro programını sizlerden rica ediyorum.

İyi günler.

Not: Mesajın ekinde bu makro programın çalışmasına ilişkin örnek bir Excel dosyası yer almaktadır.
 

Ekli dosyalar

Merhaba,

Bu şekilde deneyin.

Kod:
Sub aktar()
 
    Dim i As Long, sat As Long, a As Variant
 
    Range("A:A").ClearContents
 
    sat = 1
    For i = 1 To Cells(Rows.Count, "C").End(xlUp).Row
        a = Split(Cells(i, "C"), " ")
        If UBound(a) = 0 Then
            Cells(sat, "A") = a(0)
            sat = sat + 1
        End If
    Next i
 
End Sub
.
 
Geri
Üst