• DİKKAT

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

Kayan veri düzenlemesi

Katılım
14 Kasım 2016
Mesajlar
2
Excel Vers. ve Dili
yokjy
merhaba arkadaşlar elimdeki veriler kaymış ve kayan verileri nasıl düzelteceğimi bilmiyorum yardımcı olurmusunuz

örnek:
13085920682
13082920746
13079920810
13076920974
13073921028
13070921182
13067921256
13064921310
13061921474 13214916388
13217916224
13220916150
13223916096

şu tek satır olmuş kısmı nasıl hemen sonu 74 ile bitem sayını altına koyabilirim
 
Örnek dosya paylaşınız. Paylaşma yöntemi imzamda var.
 
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:
Kod:
Sub yerinetaşı()
    son = Cells(Rows.Count, "A").End(3).Row
    For i = son To 1 Step -1
        If Cells(i, "B") <> "" Then
            Cells(i, "B").Cut: Cells(i + 1, "A").Insert Shift:=xlDown
        End If
    Next
End Sub
 
Lütfen profilinizdeki ofis süürmü bilgisini güncelleyiniz!
 
Geri
Üst