Emoncada
08-19-2013, 08:07 AM
I have the following, but I know there has to be a way to make this code easier.
If wd.Range("A3").Value <> "" Then wd.Range("D3").Value = wd.Range("A3").Value & " " & wd.Range("B3").Value
If wd.Range("A4").Value <> "" Then wd.Range("D4").Value = wd.Range("A4").Value & " " & wd.Range("B4").Value
If wd.Range("A5").Value <> "" Then wd.Range("D5").Value = wd.Range("A5").Value & " " & wd.Range("B5").Value
If wd.Range("A6").Value <> "" Then wd.Range("D6").Value = wd.Range("A6").Value & " " & wd.Range("B6").Value
If wd.Range("A7").Value <> "" Then wd.Range("D7").Value = wd.Range("A7").Value & " " & wd.Range("B7").Value
If wd.Range("A8").Value <> "" Then wd.Range("D8").Value = wd.Range("A8").Value & " " & wd.Range("B8").Value
If wd.Range("A9").Value <> "" Then wd.Range("D9").Value = wd.Range("A9").Value & " " & wd.Range("B9").Value
If wd.Range("A10").Value <> "" Then wd.Range("D10").Value = wd.Range("A10").Value & " " & wd.Range("B10").Value
If wd.Range("A11").Value <> "" Then wd.Range("D11").Value = wd.Range("A11").Value & " " & wd.Range("B11").Value
If wd.Range("A12").Value <> "" Then wd.Range("D12").Value = wd.Range("A12").Value & " " & wd.Range("B12").Value
If wd.Range("A13").Value <> "" Then wd.Range("D13").Value = wd.Range("A13").Value & " " & wd.Range("B13").Value
If wd.Range("A14").Value <> "" Then wd.Range("D14").Value = wd.Range("A14").Value & " " & wd.Range("B14").Value
Any help would be great.
Thanks
If wd.Range("A3").Value <> "" Then wd.Range("D3").Value = wd.Range("A3").Value & " " & wd.Range("B3").Value
If wd.Range("A4").Value <> "" Then wd.Range("D4").Value = wd.Range("A4").Value & " " & wd.Range("B4").Value
If wd.Range("A5").Value <> "" Then wd.Range("D5").Value = wd.Range("A5").Value & " " & wd.Range("B5").Value
If wd.Range("A6").Value <> "" Then wd.Range("D6").Value = wd.Range("A6").Value & " " & wd.Range("B6").Value
If wd.Range("A7").Value <> "" Then wd.Range("D7").Value = wd.Range("A7").Value & " " & wd.Range("B7").Value
If wd.Range("A8").Value <> "" Then wd.Range("D8").Value = wd.Range("A8").Value & " " & wd.Range("B8").Value
If wd.Range("A9").Value <> "" Then wd.Range("D9").Value = wd.Range("A9").Value & " " & wd.Range("B9").Value
If wd.Range("A10").Value <> "" Then wd.Range("D10").Value = wd.Range("A10").Value & " " & wd.Range("B10").Value
If wd.Range("A11").Value <> "" Then wd.Range("D11").Value = wd.Range("A11").Value & " " & wd.Range("B11").Value
If wd.Range("A12").Value <> "" Then wd.Range("D12").Value = wd.Range("A12").Value & " " & wd.Range("B12").Value
If wd.Range("A13").Value <> "" Then wd.Range("D13").Value = wd.Range("A13").Value & " " & wd.Range("B13").Value
If wd.Range("A14").Value <> "" Then wd.Range("D14").Value = wd.Range("A14").Value & " " & wd.Range("B14").Value
Any help would be great.
Thanks