fatiheryildiz adlı üyeden alıntı: mesajı görüntüle
Hocam bu yöntemle hücrelerde kayma olmuyor mu, telefondan baktım kodu tam inceleyemedim ama sanırım kayma olacak gibi görünüyor..

Kaymadan kastım şudur.. Örneğin 10 nolu satırda işlem görüyorsunuz.. C10 hücresinin boş olduğunu varsayalım siz bunu üstteki hücre değeri ile dolduruyorsunuz. Eğer verileriniz sırası değil de dağınık ile alakasız veriler alakasız yerlere olmuyorlar mı..
aşağıdaki kod ile sütunları belirlediğim için herhangi bir kayma olmuyor, 

 
Sub YukaridakiDegeriYaz()
    Dim sonSatir As Long
    Dim i As Long
        sonSatir = Cells(Rows.Count, "A").End(xlUp).Row
        For i = 2 To sonSatir
               If Cells(i, "B").Value = "" Then
            Cells(i, "B").Value = Cells(i - 1, "B").Value
        End If
                If Cells(i, "C").Value = "" Then
            Cells(i, "C").Value = Cells(i - 1, "C").Value
        End If
                If Cells(i, "D").Value = "" Then
            Cells(i, "D").Value = Cells(i - 1, "D").Value
        End If
                If Cells(i, "E").Value = "" Then
            Cells(i, "E").Value = Cells(i - 1, "E").Value
        End If
        If Cells(i, "F").Value = "" Then
            Cells(i, "F").Value = Cells(i - 1, "F").Value
        End If
        If Cells(i, "G").Value = "" Then
            Cells(i, "G").Value = Cells(i - 1, "G").Value
        End If
        If Cells(i, "H").Value = "" Then
            Cells(i, "H").Value = Cells(i - 1, "H").Value
        End If
        If Cells(i, "I").Value = "" Then
            Cells(i, "I").Value = Cells(i - 1, "I").Value
        End If
        If Cells(i, "J").Value = "" Then
            Cells(i, "J").Value = Cells(i - 1, "J").Value
        End If
        If Cells(i, "K").Value = "" Then
            Cells(i, "K").Value = Cells(i - 1, "K").Value
        End If
        If Cells(i, "L").Value = "" Then
            Cells(i, "L").Value = Cells(i - 1, "L").Value
        End If

    Next i
End Sub