X
ďťż

Mefisto...diabeł czy anioł?

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

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.