[es] - makro kod za otvoriti novi sheet ali kao .xlsx

mirjanagb
mirjana kovacevic
austrija

Član broj: 160826
Poruke: 184
*.bankgutmann.co.at.

+1 Profil

makro kod za otvoriti novi sheet ali kao .xlsx

^{12.11.2009. u 13:58 - pre 175 meseci}

dakle, imam makro za excel koji automatski salje mail.

kopira podatke otvori novu radnu svesku i paste te podatke i salje na mail.

to izgeda ovako:

Code:
Sub Send1Sheet_ActiveWorkbook()
'Create a new Workbook Containing 1 Sheet (left most) _
and sends as attachment.

    'ThisWorkbook.Sheets(1).Copy

    Range("A4:F43").Select
    Selection.Copy
    Workbooks.Add Template:="Arbeitsmappe"
    Range("A2").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    Range("B10").Select

    Range("A1:F1").Select
    With Selection.Interior
        .Pattern = xlLightDown
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With



    Range("D1:D38").Select
    Selection.ClearContents
    Range("C1").Select


    With ActiveWorkbook
         .SendMail Recipients:="[email protected]", _
          Subject:="Guten Morgen" & " - " & Format(Date, "dd/mmm/yy")
         .Close SaveChanges:=False
    End With


End Sub

ono sto ja hocu jeste da kad otvori novi exel sheet da otvori i posalje kao .xlsx ne kao .xls ..

kako to da izmenim?

Odgovor na temu