replace column values

[babar48]

hello well i wanna do something like find and replace but i already know what i whant to replace all the columm from D1:D except blanks

Sub final()

Dim rpl, sel As String

rpl = InputBox("replace for:")
sel = Columns("D1:D").Select

Selection.Replace What:=sel, Replacement:=rpl, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

so how do i make it work? i whant "sel" to be the selected column but i dont whant it to replace blank cells.

thanks.

[davegugg]

Sub final()

    Dim rpl As String
    
    rpl = InputBox("Replace with:")
    
    Columns("D:D").Replace What:="*", Replacement:=rpl, LookAt:=xlPart _
    , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

End Sub

[watersev]

hi, babar48, as per VB help:

Replace Method

Using this method doesn’t change either the selection or the active cell.

expression.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)

expression Required. An expression that returns a Range object.

What Required Variant. The string you want Microsoft Excel to search for.

Replacement Required Variant. The replacement string.

LookAt Optional Variant. Can be one of the following XlLookAt constants: xlWhole or xlPart.

SearchOrder Optional Variant. Can be one of the following XlSearchOrder constants: xlByRows or xlByColumns.

MatchCase Optional Variant. True to make the search case sensitive.

MatchByte Optional Variant. You can use this argument only if you’ve selected or installed double-byte language support in Microsoft Excel. True to have double-byte characters match only double-byte characters. False to have double-byte characters match their single-byte equivalents.

SearchFormat Optional Variant. The search format for the method.

ReplaceFormat Optional Variant. The replace format for the method.

[babar48]

thanks guys, liked both answers 1 code an the other nice explanation.