Excel - vba função range

[PedroCosta_85]

Bom dia,

Estou com problemas em descobrir uma maneira de utilizar a funçao RANGE mas colocar alem de texto utilizar uma formula na mesma celula.

É possivel?

Eu tenho andado a tentar, mas diz FALSO, com a seguinte expressão:

 

Sub InsertTodaysDate()
    
    Range("A4").Select
    Selection.Formula = "Prozinco " & Selection.Formula = "=text(now(),""mmm dd yyyy"")"
      
End Sub

 

Eu queria era que ele escrevesse "Prozinco - 12-12-2012" , sendo a data com a função HOJE

Obrigado

[Basole]

Experimente desta forma:

 

Range("A5").Select
Selection.Formula = "=""Prozinco - "" & TEXTO(HOJE(),""mm-dd-aaaa"")"

[PedroCosta_85]

Continua sem dar, aparece a celula "#NOME?"

[Edson Luiz Branco]

Quase lá.

 

Só houve uma pequena confusão quanto ao uso dos idiomas inglês x português das expressões e separadores usados na fórmula.

Pode usar qualquer uma dessas duas expressões:

Range("A5").Select
Selection.Formula = "=""Prozinco - "" & TEXT(TODAY(),""mm-dd-aaaa"")"

 

ou

 

Range("A5").Select
Selection.FormulaLocal = "=""Prozinco - "" & TEXTO(HOJE();""mm-dd-aaaa"")"

Repare nas diferenças:

 

.Formula x .FormulaLocal

TEXT(...) x TEXTO(...)

TODAY() x HOJE()

       ,       x     ;

 

[PedroCosta_85]

Edson.... Impecável Funciona 5 estrelas.

 

Estava agora a tentar aproveitar esse nome automatico para guardar o ficheiro com esse mesmo nome mas dá um erro 1004 :/

utilizei a seguinte:

 

Sub Salva_Planilha()

 

Dim Nome As String
Nome = Worksheets(216).Range("A1")

ActiveWorkbook.SaveAs Filename:="Y:\Pedro Costa\Prozinco\" & Nome & ".xls", _
FileFormat:=xlNoRestrictions, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

 

A folha em questao é a ultima de todas que está mencionada no excel como folha 216 dai ter utilizado no "Worksheets".

Eu utilizo o Excel 2013, nao sei se faz diferença na linguagem de programação. Faz?

[Basole]

Teste agora com as alterações.

 

Sub Salva_Planilha()
Dim Nome As String, strPath As Variant
    
    Nome = Worksheets("Total").Range("A1").Value
    strPath = "Y:\Pedro Costa\Prozinco\"
    ActiveWorkbook.SaveAs Filename:=strPath & Nome & ".xls", _
    FileFormat:=56

End Sub