Alt satırı üst satıra Kopyalama

[gozdemas]

merhaba

alt satırda yer alan verileri üst satırdaki boşlukları doldurmayı nasıl yapabilirim.
Yardımlarınızı rica ediyorum.

 

[gozdemas]

Dosya ekleyemiyorum.

 

[isahallaceli]

sorununuzu tam detaylı anlatmadığınız için, size 2 çözüm önerisi yazıyorum.
1. alttaki hücrenin üzerine gelip maus sağ tıklayın kopyala.... daha sonra yapıştırmak istediğiniz hücreye gelip yine sağ tıklayıp yapıştır seçeneklerinden değerleri yapıştırı tıklayın.

2. üsteki hücreye gelip formül çubuğunda " eşittir parantez aç hüre adı parantez kapa" enter örnek =(B15) yapın.

 

[gozdemas]

65536 satırda bunu yapmak istemiyorum. Önerileriniz için teşekkürler, ama daha kısa bir yol kullanmak istiyorum

 

[gozdemas]

Merhaba
Dosyayı ekledim, sarı ile işaretlediğim başlıkları dolu olan satıra kadar kopyalamasını istiyorum.

Yardımlarını rica ederim.

 

[gozdemas]

Yardım lütfen

 

[Korhan Ayhan]

Verilerinizi yedekledikten sonra aşağıdaki kodu deneyiniz.

Sub HÜCRELERİ_DOLDUR()
    Dim Son As Long, X As Long, Satir As Long

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Son = Cells(Rows.Count, 1).End(3).Row
    
    For X = Son To 1 Step -1
        If X = 1 Then GoTo 10
        Satir = Cells(X, 1).End(3).Row
        Range("A" & Satir + 1 & ":B" & X - 1).Value = Range("A" & X & ":B" & X).Value
        X = Satir + 1
    Next

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

10 MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[gozdefirat34]

coook Teşekkürler.. eline koluna emegine sağlık..