Detalhes de vba formula adiciona planilha e numeros aleatorios

SaberExcel o Site das Macros
Adiciona uma planilha e formula de números aleatórios na nova planilha de Range(A1:D4)

Macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha ao wkb (workbook) e definir sua propriedade Visible como (Oculta), e inserir nesta nova planilha uma fórmula de números aleatórios, em determinada range, isto é, na range A1:D4.

Este exemplo cria uma nova planilha e, em seguida,define sua propriedade Visible como xlVeryHidden.Para referir-se à planilha, use sua variável de objeto, Nova_Planilha, como mostrado na última linha do exemplo.Para usar a variável de objeto Nova_Planilha em um outro procedimento,você precisa declará-la como uma variável pública (Public Nova_Planilha As Object) na primeira linha do módulo antes de qualquer procedimento Sub ou Function.

Sub Adiciona_Plan_e_Formulas()
Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
End Sub

Observe a mesma macro, porém fiz uma pequena modificação para realização do teste do Desenvolvedor.
Sub Adiciona_Plan_e_Formulas()
Dim resposta As String

Application.DisplayAlerts = False 'nao emite e mensagem "deseja salvar...."
Sheets("Saberexcel").Visible = True
Sheets("Saberexcel").Delete 'na entrada da macro deleta a planilha existente.

Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Name = "SaberExcel"
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
Application.DisplayAlerts = False

resposta = MsgBox("Planilha [Saberexcel] criada com sucesso, ocultada, deseja visualizá-la?", vbYesNo + vbInformation, "Saberexcel - site das macros")

If resposta = 6 Then
Sheets("Saberexcel").Visible = True
End If

End Sub

Aprenda Aplicativo Microsoft Excel VBA --((( SaberExcel )))--