My VBA code stopped working please help.

Something went wrong with my code it only does the first column, but when i first tested this it did all columns that had data in them.

Sub FillIns()

    Dim val As String
    val = ""
        
    For k = 1 To Sheet1.UsedRange.Columns.Count
    
        For i = 2 To 25500
            If Cells(i, k).Value = "" Then
                Cells(i, k).Value = val
            ElseIf Cells(i, k).Value = "99" Or Cells(i, k).Value = 99 Then
                Exit For
            Else
                val = Cells(i, k).Value
            End If
        Next i
    Next k
    
    MsgBox ("all done!")
    
End Sub

Originally Posted by mehmetcik

Are you still running this code on Sheet1?

Yes i am and it only checks the first column then stops.

.
I can't recall (or find) where the OP posted this question previously in the past few days. He was provided an answer that worked. Not certain why he is posting again or if this was a DUPLICATE that was not
removed, due to server issues.

Option Explicit



Sub practice()
    Dim k, i As Integer
    Dim val As String
    val = ""
        
    For k = 1 To Sheet1.UsedRange.Columns.Count
    
        For i = 2 To 25
            If Cells(i, k).Value = "" Then
                Cells(i, k).Select
                Cells(i, k).Value = val
            ElseIf Cells(i, k).Value = "99" Or Cells(i, k).Value = 99 Then
                Exit For
            Else
                val = Cells(i, k).Value
            End If
        Next i
    Next k
    
    MsgBox ("all done!")
    
End Sub

edit d

.
Original posting : http://www.excelforum.com/showthread...34#post4574634