Zapisz zamknij i wróć

Mam takie makro jak zamieszczone poniżej. Ale nie wiem jakie wprowadzić zmiany tak aby makro po wykonaniu zadania zamykało i zapisywało tworzony plik a nastepnie przechodziło do arkusza RAPORT dzienny w pliku AAAA Raport dzienny zał.9.xls czyli do punktu wyjścia. W tech chwili zamyka i zapisuje plik AAAA Raport dzienny zał.9.xls



Sub nowezamowienie()

'
' Makro1 Makro
' Makro zarejestrowane 2007-11-11, autor taki sobie
'

'

Dim Arkusz As Worksheet

For Each Arkusz In ThisWorkbook.Worksheets
    If Arkusz.Name = Sheets("RAPORT dzienny").Range("b19").Value Then
        MsgBox "Arkusz o nazwie " & Sheets("RAPORT dzienny").Range("b19").Value & _
        vbCrLf & vbCrLf & "już istnieje, ewentualnie skasuj stary", vbCritical
        Exit Sub
    End If
Next

   Sheets("RAPORT dzienny").Copy After:=Sheets("RAPORT dzienny")
   ActiveSheet.Name = Sheets("RAPORT dzienny").Range("b19").Value
   ActiveSheet.Shapes("Button 1").Select
   Selection.Cut
   ActiveSheet.Shapes("Button 2").Select
   Selection.Cut
   ActiveSheet.Shapes("Button 3").Select
   Selection.Cut

With ActiveWorkbook
     sciezka = .Path
     nazwa = "RAPORTdzienny AAAAAA " & _
     Format(.ActiveSheet.Range("b19"), "dd-mm-yy")
     .Worksheets("Raport dzienny").Copy
End With
'ActiveSheet.Shapes("Button 1").Select
   'Selection.Cut
   'ActiveSheet.Shapes("Button 2").Select
   'Selection.Cut
   'ActiveSheet.Shapes("Button 3").Select
   'Selection.Cut
ActiveSheet.Name = nazwa
ActiveSheet.Shapes("Button 1").Delete
ActiveSheet.Shapes("Button 2").Delete
ActiveSheet.Shapes("Button 3").Delete
ActiveWorkbook.SaveAs sciezka & "\" & nazwa & ".xls"

   ThisWorkbook.Close SaveChanges:=True

End Sub

[ Dodano: 2007-12-18, 01:22 ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl