Aktywne Wpisy
WielkiNos +430
Ale się chłop wkopał dajcie spokój. Niektórzy to nie mają szczęścia.
#pieklomezczyzn #dyskryminacjamezczyzn #prawo #rozwod #zwiazki #alimenty
#pieklomezczyzn #dyskryminacjamezczyzn #prawo #rozwod #zwiazki #alimenty
Janusz_Lubikwasa +202
#kanalzero #cpk
CPK jest potrzebne. Szkoda, że niestety polska mentalność to spojrzenie tylko na 4 lata do przodu. W stanach taka sytuacja byłaby nie do pomyślenia, tam jest długofalowa strategia i czy demokraci czy republikanie, to są inwestycje czy pomysły, które nie są ładowane do kosza po zmianie warty. Szkoda, że w Polsce nie można dojść do takiego wniosku.
CPK jest potrzebne. Szkoda, że niestety polska mentalność to spojrzenie tylko na 4 lata do przodu. W stanach taka sytuacja byłaby nie do pomyślenia, tam jest długofalowa strategia i czy demokraci czy republikanie, to są inwestycje czy pomysły, które nie są ładowane do kosza po zmianie warty. Szkoda, że w Polsce nie można dojść do takiego wniosku.
#programowanie #vba #excel #pytanie #kiciochpyta
Stwórz sobie macro które będzie najpierw tworzyć pusty arkusz excela pod dana nazwa (możesz użyć dla ulawtwienia nazwy z komórki w której będzie pobierana aktualna data) a później będzie do niego kopiować zadany arkusz.
Sub Macro1()
'Step 1 Copy the data
Sheets("Sheet1").Range("B4:C15").Copy
'Step 2 Create a new workbook
Workbooks.Add
'Step 3 Paste the data
ActiveSheet.Paste Destination:=Range("A1")
'Step 4 Turn off application alerts
Application.DisplayAlerts = False
'Step 5 Save the newly created workbook
ActiveWorkbook.SaveAs _
Filename:="C:TempMyNewBook.xlsx"
'Step 6 Turn application alerts back on
Application.DisplayAlerts = True
End Sub
A z datą w nazwie pliku i bez kodu VBA:
Sub Zapisz()
Dim nazwapliku As String
nazwapliku = ThisWorkbook.Path & "\Archiwum\Stan_ " & Format(Now, "dd-mm-yy hh-mm-ss") & ".xlsx"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=nazwapliku, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Tylko sobie zmodyfikuj, żeby zapisywało jeden arkusz a nie cały skoroszyt.