Kezdőoldal » Számítástechnika » Programok » Hogyan oldható meg ez a makró...

Kőváry Orsolya kérdése:

Hogyan oldható meg ez a makró kérdés Excelben?

Figyelt kérdés

Hogyan tudom a következőt megoldani (nyilván makró kell hozzá, de olyat nem tudok írni, max. meglévőt kicsit átkalapálni)?

Van egy Excel fájl, amit naponta töltenek ki. Az adott napi dátum az A1 cellában van, és minden nap el kell menteni új néven úgy, hogy a fájl meglévő adott nevéhez hozzápasszintsa az A1-ben lévő dátumot.

Ezen kívül be kell állítani a makróban azt is, hogy a könyvtárrendszerben hova mentse el

Ehhez aztán majd rendelünk egy gombot is, csak most először a makróra lenne szükségem.

Előre is köszi.



2015. jan. 16. 17:54
 1/2 coopper ***** válasza:

Szia.


Igy hirtelen ez sikerült összehozni, xlsm-be menti a fájlt (mivel macró is van benne) illetve a

ChDir "C:\Ahová menteni szeretnéd"

sornál beállithatod az elérési mappát, a fájlnevet is beállithatod ebben a sorban :

Filenev = "Fájnév_" + Format(Sheets(1).Range("A1"), "yyyy_mm_dd")

Az eredmény : Fájnév_2015_01_15.xlsm (A dátumot az első munkalap A1-es cellájából szedi)


Itt a macró :


Sub Makró1()

'

' Makró1 Makró

'

'

ChDir "C:\Ahová menteni szeretnéd"

Filenev = "Fájnév_" + Format(Sheets(1).Range("A1"), "yyyy_mm_dd")

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=Filenev + ".xlsm", _

FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Application.DisplayAlerts = True

End Sub


Sok sikert.

Üdv.

2015. jan. 16. 20:31
Hasznos számodra ez a válasz?
 2/2 A kérdező kommentje:
Szenzációs, nagyon köszönöm.
2015. jan. 16. 20:49

Kapcsolódó kérdések:




Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!