How to work on a new worksheet

V

vkfuri

Im trying to work on a new worksheet using workbooks.add, but when i
try to put some data on this new workbook, the data fills the original
workbook, where my macro is.

this is my macro:

cenario = Sheet1.Range("cdimportacao")

Workbooks.Add

Dim hoje As Date
Dim sfilename As String

sfilename = Format(Now(), "ddmmyyyy")
hoje = Format(Now(), "dd/mm/yyyy")
data = "DATA"

Sheet1.Cells(1, 1).Value = data
Sheet1.Cells(1, 2).Value = hoje
Sheet1.Range("A1:E2545").Value = cenario

ActiveWorkbook.SaveAs Filename:="c:\place\" & sfilename, _
FileFormat:=xlText, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Can someone help me with this? Appears to be basic.
 
R

redeagle

Hi vkfuri-

I think you just need to make the workbook you add the "Active" workbook.

Workbooks(Workbooks.Count).Activate

You may also need to change Sheet1 to ActiveSheet.

John
 
G

Gary Keramidas

i didn't complete your entire macro, but you should always qualify your ranges,
especially if you use multiple workbooks.

Sub test()
Dim NewBook As Workbook
Dim sfilename As String
Dim hoje As Date
Dim sdata As String
Dim wb2 As Workbook
Set wb2 = Workbooks.Add

sfilename = Format(Now(), "ddmmyyyy")
hoje = Format(Now(), "dd/mm/yyyy")
sdata = "DATA"

wb2.Worksheets("Sheet1").Cells(1, 1).Value = sdata
wb2.Worksheets("Sheet1").Cells(1, 2).Value = hoje


End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top