EXCEL'DE HÜCRELERE VERİ YERLEŞTİRME

[yamahato]

Merhaba ek'te bir BAŞ BELASI İSİMLİ excel dosyam var. Bunu manuel olarak düzenlemek çok saatlerimi alıyor. İnternette de bir türlü bana yardım edecek bir yöntem bulamadım. Bu sayfadaki verileri süzmem lazım. Bu yüzden adım adım gideyim istiyorum ki karışmasın. İlk sorunumu çözmemde bana destek verirseniz çok mutlu olurum.

1-Öncelikle araç modellerini bir sonraki modele kadar otomatik kopyalaması lazım. Şöyle açıklayayım. sayfa 1 deki A3 HÜCRESİNDE Kİ VERİYİ A9 HÜCRESİNDEKİ VERİYE KADAR A4-A5A-A6A-A7A-A8 KOPYALAMASI LAZIM. SONRA A9 HÜCRESİNDEKİ VERİYİDE A19daki veriye akdar kopyalaması lazım. sonra bu şekilde sayfa sonuna kadar A sütünunu doldurması Lazım. Her kopyalamdan sonra kopyaladı verinin bulunduru satırı silmeli. Burada dikakt edilecek konu şu ki kopyalanacak verinin kopya sayısı gördüğünüz gibi değişken. bazen 3 bazen 7 bazen 15 satıra kopyalanabiliyor. Burada bir değişkenlik oluyor. Sayfa 2 de ufak bir örnek verdim. Desteğiniz için teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu Sayfa1 seçiliyken deneyiniz.

Sub VerileriYerlestir()
    Dim Bak As Long
    Dim Ilk As Range
    Dim Son As Range

    Application.ScreenUpdating = False
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Set Ilk = Cells(Bak, "A").End(xlDown)
        Set Son = Cells(Bak + 1, "A").End(xlDown)
    
        Range(Ilk, Son.Offset(-1, 1)).FillDown
        Ilk.EntireRow.Delete
        Bak = Son.Row - 2
    Next
    Application.ScreenUpdating = True
    MsgBox "Tamamlandı."
End Sub

 

[yamahato]

Muzaffer abi ek'tek dosyaya bunu eklermisin. modüle bu kodu yazdım run dedim ama hata verdi.

 

[muygun]

Merhaba;
Alternatif olsun. Eki deneyin.
İyi çalışmalar.