hi,
Sub test()
icount = Len(ThisWorkbook.Name)
icount = icount - 4
strtest = Left(ThisWorkbook.Name, icount)
ThisWorkbook.SaveAs (ThisWorkbook.Path & "\" & strtest & " " & Format
(Date, "dd-mmm-") & ".xls")
End Sub
with Regards
Bala
On May 27, 5:17 pm, Dhartikumar Sahu wrote:
> hi bala
>
hi bala
can u suggest me for saving the file
i want to save as file name with current date.
can u give me a VBA Code please
On Wed, May 27, 2009 at 2:13 PM, bala wrote:
>
> Hi,
> Try this code
>
>
> Range("A1").select
>
> while Activecell.value <> ""
> if len(Activecell.value) >3
Here's a UDF.
Function MakeList(rng As Range) As String
Dim arrVals()
Dim I As Long
arrVals = rng.Value
arrVals = Application.Transpose(arrVals)
For I = LBound(arrVals) To UBound(arrVals)
arrVals(I) = Format(arrVals(I), "")
Next I
MakeList = Join(arrVals, ",")
Rick,
You weren't far off - you just need to add an iif statement to your
concatenation (see below).
Regards,
Chris Spicer
www.Technicana.com
P.S. With regards the line that reads vSQL = vCell, are you sure this
is what you're trying to achieve? It seems to be that a blank cell in
your data w
Hi,
Try this code
Range("A1").select
while Activecell.value <> ""
if len(Activecell.value) >3 then
Activecell.offset(0,1).value = Activecell.value
else
Activecell.offset(0,1).value = 0 & Activecell.value
end if
Activecell.offset(1,0).select
wend
Regards
Bala
On May 27, 6:
