Sorry, Putta, but I need to correct my last mail:
In order to be get the "next row" in "Output", first go to that
sheet...
...
Dim lDone
...
'first find the new row in "Output"
Sheets("Output").Select
nRow = 1
lDone = False
While lDone = False
If Len(Cells(nRow, 1).Value) < 1 Then
lDone = T
Hi Putta
A couple of lines added to determine the next row to fill...
Greetings
Paul Willekens
'===
Sub Normalize()
Dim cAddress
Dim cBusiness
Dim cCity
Dim cCompany
Dim cContact
Dim cState
Dim lDone
Dim nRow
'first find th
Hi Paul,
Thanks its almost all what I need, but only one additional thing required
that is when ever I run a macro the out put alwasy with next row.
I mean
1st time in output sheet row 1
2 time in output sheet row2 like this it should go with next row rather then
in the same row. Can this be done
Hi Puttu,
Here it comes... Remark how I "unmerge" "merged fields" before
grabbing the content... and then I "remerge" it...
Let me know if this helped you out...
Greetings
Paul Willekens
'===
Sub Normalize()
Dim cAddress
Dim c