Prev: Need Suggestions - Find < 30 days & Mult-Location entries
Next: Button to add Rows on Form in Excel
From: Construk on 24 May 2010 10:32
Hi,
I'm trying to do a macro thatdoes 2 things:

1- Rename the active Tab with the content of a cell in it

dimvar = Date1
Range("AB2").Select
(?)Selection.Copy = Date1
ActiveWorkbook.Worksheets.Select
(???).Name = Date
Range("A4").Select
End Sub

2- Then, use this same Tab name and add it after an other word

Case-Date1.xlsm

Michel
From: Dave Peterson on 24 May 2010 10:51
Dim wks as worksheet
set wks = activesheet
with wks
.name = .range("Ab2").value
'or if AB2 contains a date, you can make sure that the
'value is legal (sheet names can't contain /'s).
.name = Format(.range("AB2").value, "yyyy-mm-dd")
end with

and maybe...

dim myStr as string
Dim wks as worksheet
set wks = activesheet
with wks
.name = .range("Ab2").value
'or if AB2 contains a date, you can make sure that the
'value is legal (sheet names can't contain /'s).
.name = Format(.range("AB2").value, "yyyy-mm-dd")
mystr = "Case-" & .name & ".xlsm"
end with

Construk wrote:
>
> Hi,
> I'm trying to do a macro thatdoes 2 things:
>
> 1- Rename the active Tab with the content of a cell in it
>
> dimvar = Date1
> Range("AB2").Select
> (?)Selection.Copy = Date1
> ActiveWorkbook.Worksheets.Select
> (???).Name = Date
> Range("A4").Select
> End Sub
>
> 2- Then, use this same Tab name and add it after an other word
>
> Case-Date1.xlsm
>
> Michel

--

Dave Peterson
From: Construk on 24 May 2010 18:31
Thanks Dave!

"Dave Peterson" wrote:

> Dim wks as worksheet
> set wks = activesheet
> with wks
> .name = .range("Ab2").value
> 'or if AB2 contains a date, you can make sure that the
> 'value is legal (sheet names can't contain /'s).
> .name = Format(.range("AB2").value, "yyyy-mm-dd")
> end with
>
> and maybe...
>
> dim myStr as string
> Dim wks as worksheet
> set wks = activesheet
> with wks
> .name = .range("Ab2").value
> 'or if AB2 contains a date, you can make sure that the
> 'value is legal (sheet names can't contain /'s).
> .name = Format(.range("AB2").value, "yyyy-mm-dd")
> mystr = "Case-" & .name & ".xlsm"
> end with
>
> Construk wrote:
> >
> > Hi,
> > I'm trying to do a macro thatdoes 2 things:
> >
> > 1- Rename the active Tab with the content of a cell in it
> >
> > dimvar = Date1
> > Range("AB2").Select
> > (?)Selection.Copy = Date1
> > ActiveWorkbook.Worksheets.Select
> > (???).Name = Date
> > Range("A4").Select
> > End Sub
> >
> > 2- Then, use this same Tab name and add it after an other word
> >
> > Case-Date1.xlsm
> >
> > Michel
>
> --
>
> Dave Peterson
> .
>
 | 
Pages: 1
Prev: Need Suggestions - Find < 30 days & Mult-Location entries
Next: Button to add Rows on Form in Excel