- Aliexpress tapasztalatok
- DIGI kábel TV
- Bittorrent topik
- Linux kezdőknek
- Letartóztatták, mert AI segítségével csalt az egyetemi vizsgán
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Microsoft Outlook topic
- Musk meggondolta magát, mégsem pereli az OpenAI-t
- Az AI miatt vehetnek sokan új iPhone-t
- ASUS routerek
-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Mutt
aktív tag
válasz Vladek83 #16452 üzenetére
Hello,
...csak egy adott lapot szeretnék menteni, egy megadott helyre ( képleteket nem, csak értékeket ..
Csináltam egy általánosat, amelyet könnyen tudsz magadnak beállítani.
Sub Masolat()
Dim FileExt As String 'aktuális fájl kiterjesztése
Dim FileName As String 'aktuális fájl neve
Dim FileExtension
Const BackupLocation As String = "C:\Archive" 'ebbe a mappába mentjük
Const masolando As String = "Sheet1" 'ezen nevű munkalapot mentjük
If MsgBox("Szeretnél másolatot készíteni?", vbYesNo, "Másolat") = vbYes Then
'összes cella másolása
Sheets(masolando).Cells.Copy
'új munkafüzet létrehozása
Workbooks.Add
'értékek másolása
Selection.PasteSpecial Paste:=xlPasteValues
'felkészülés a mentésre
'megnézzük hogy létezik-e a célkönyvtár, ha nem akkor létrehozzuk
If Dir(BackupLocation, vbDirectory) = "" Then
MkDir BackupLocation
End If
'filekiterjesztés meghatározása
FileExtension = Split(ThisWorkbook.Name, ".")
FileExt = FileExtension(UBound(FileExtension))
'az aktuális fájlnévet használjuk mentendőhöz
FileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - Len(FileExt) - 1)
'és még kiegészítjük a mai dátummal
FileName = FileName & "_" & Format(Date, "YYYYMMDD")
'mentés XLSX formátumban (a többi típus a súgóban vagy http://msdn.microsoft.com/en-us/library/office/ff198017.aspx)
ActiveWorkbook.SaveAs FileName:=BackupLocation & "\" & FileName, FileFormat:=xlOpenXMLWorkbook
'bezárjuk az új ablakot
ActiveWindow.Close
Call MsgBox("Fájl elmentve " & FileName & " névvel.", vbOKOnly, "Mentés")
End If
End Subüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen