On 13 aug, 14:22, Dave Peterson wrote:
Option Explicit
Sub testme()

Dim FirstRow As Long
Dim LastRow As Long
Dim iRow As Long

With Worksheets("sheet1")
FirstRow = 2 'headers in row 1???
LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row

For iRow = FirstRow To LastRow
If IsEmpty(.Cells(iRow, "D").Value) Then
'skip it
Else
.Cells(iRow, "D").Value _
= .Cells(iRow, "B").Text & " " & .Cells(iRow, "D").Text
End If
Next iRow
End With
End Sub

I put a space character between the values. Remove it or change it to what you
want.

bartman1980 wrote:

I want to put the text in the cell of column B in front of the the
text in column D.
But only if there is a text filled in in column D.

Does anybody have a VBA code for it?

--

Dave Peterson

Thank you dave!
This works!