Put "');" above each empty cell in selection

Hello every one,

i need a code which looks for empty cells in the selection and puts "');" in the cell above it. If the cells above the empty one already have content that should be deleted and "');" should be pasted there instead. I need to put this symbol combination above all empty cells in my selection.

Thank you for your help in advance.

Hi wali

Option Explicit
Public Sub DoItptest()
Dim rngData As Range, rng As Range
With ActiveSheet
    Set rngData = Selection
    For Each rng In rngData
   If Not IsEmpty(rng) Then rng.Offset(-1, 0) = "');"
     Next
End With
 Set rngData = Nothing
End Sub

after 270 posts you should attach your efforts instead of I need

Without a loop, this might do it for you:

Sub AddText()

     Selection.SpecialCells(xlCellTypeBlanks).Offset(-1, 0) = "');"

End Sub

Seens I late, but in any case i'm posting code

Sub Test2()
Dim lCell As String, rCell As Range

    For Each rCell In Selection
        If rCell = vbNullString Then
            If rCell.Row = 1 Then GoTo oops
                With rCell
                    Cells(.Row - 1, .Column).FormulaR1C1 = ")"
                End With
oops:       End If
    Next rCell
End Sub

Really?!. I really didn't expected

If so. please mark thread as solved and add reputation pls....

EDIT
Already marked as solved

strange... going back to nuts and bolts try..

With ActiveSheet
    Set rngData = Selection
   For Each rng In rngData
   If rng = "" Then
   rng.Offset(-1, 0).Value = "');"
    rng.Value = ""
    End If
    Next rng
End With

Hey contaminated
never ever to late. its allways go to see other options and every ones efforts
how else do we learn
hi wali
Ive tested this one

I still think my loopless code does what you want. If you want the macro to figure out what to highlight on its own, then maybe:

Sub AddText()
Dim LR as Long:    LR = Range("D" & Rows.Count).End(xlUp).Row

Range("D2:D" & LR).SpecialCells(xlCellTypeBlanks).Offset(-1, 0) = "');"

End Sub

three times as happy