lncrj017
03-19-2012, 02:31 AM
help guys, Whats the actual code for this vba code sample... someone you modify it? thanks
If Not Cells(rws, 61).Value Is Nothing Then .Cells(rws, 61).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")
If Not Cells(rws, 63).Value Is Nothing Then .Cells(rws, 63).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")
If Not Cells(rws, 64).Value Is Nothing Then .Cells(rws, 64).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")
If Not Cells(rws, 65).Value Is Nothing Then .Cells(rws, 65).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")
If Not Cells(rws, 66).Value Is Nothing Then .Cells(rws, 66).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")
If Not Cells(rws, 61).Value Is Nothing Then .Cells(rws, 61).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")
If Not Cells(rws, 63).Value Is Nothing Then .Cells(rws, 63).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")
If Not Cells(rws, 64).Value Is Nothing Then .Cells(rws, 64).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")
If Not Cells(rws, 65).Value Is Nothing Then .Cells(rws, 65).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")
If Not Cells(rws, 66).Value Is Nothing Then .Cells(rws, 66).Value = Application.WorksheetFunction.Replace(arg1:="|", arg2:=1, arg3:=4, arg4:=", ")