-
Fototrend
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
-
válasz
coldfirexx
#30167
üzenetére
Kivételesen most magamnak válaszolom meg, de hátha másnak is jól jön:
Sub Mentes_maskent()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xlsm), *.xlsm")If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End IfEnd Sub
-
#30167
coldfirexx
tag
Sziasztok!
Keresek egy makrót ami, csak annyit tud hogy ha fut akkor jöjjön fel a mentés másként ablak.
Köszönöm
-
#29740
coldfirexx
tag
bsh
#29738
-
#29736
coldfirexx
tag
Sziasztok!
Egy VBA kérdésem lenne.
Van egy kódom ami message box segítségével eldönti hogy automatikus vagy manuális lesz a folyamat:
Sub AUTOMANUAL()
valasz = MsgBox("Automatikusan futtatja a riportot?", vbYesNo)
If valasz = vbNo Then
Sheets("ZUTERT").Visible = TrueElse
Sheets("ZUTERT").Visible = False
End If
End SubA probléma hogy a msg boxnal kiakad és a következő hibát dobja:
Másik fájlban ugyanez működik!
Mi lehet a baj?
-
#29700
coldfirexx
tag
Sziasztok!
Lenne egy kódom:
Sub AUTOMANUAL()
valasz = MsgBox("Automatikusan futtatja a riportot?", vbYesNo)
If valasz = vbNo Then
Sheets("ZUTERT").Visible = TrueElse
Sheets("ZUTERT").Visible = FalseEnd If
End SubMikor futteni akarom a kódot ezt a hibát adja:
expected variable or procedure,not moduleMiért van ez?
-
-
-
-
-
válasz
Delila_1
#29235
üzenetére
Sziasztok!
Hoztam egy szép kis fejtörőt.A következőre kellene egy makró:
Van 2 lapfülem: egyes és kettes
Az egyes lapfülön az F oszlopban a 3 sortól nevek vannak a H3-as cellától pedig az IGEN/NEM található.1, Keresse meg a H oszlopban az első IGEN-t
2,Az IGEN melletti F oszlopból a nevet másolja ki.
3, A kettes lapfülre lépjen át, az A oszlopra.
4, Az A oszlopban keresse meg az első üres sort és oda másolja be.
5, És az IGEN keresését csinálja addig míg az egyes lapfülön üres sort talál.Remélem érthetően írtam le.
Köszönöm, Ha valakinek van rá ötlete.
István -
-
-
-
-
-
válasz
schmiedpeter
#28247
üzenetére
Szerintem feltételes formázásnál, jelöld ki a teljes sort majd a feltétel megadása képlettel: =HA(VAGY(B21="SZ";B21="V");IGAZ;HAMIS) és állítsd be hogy szürke legyen.
Maj formátummásolással mehet minden sorra. -
#28244
coldfirexx
tag
Végül sikerült így megcsinálni:
Sub Szerződések_törlése()
Sheets("Alapadatok").Select
Dim MyCol As String
Dim i As Integer
For i = 1 To Range("AE" & "65536").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("A" & i & ":AZ" & i), "A szerződés előző évben lejárt") > 0 Then
Range("C" & i).EntireRow.Delete
End If
Next i
Range("A2").Select
Sheets("Vezérlő").Select
Range("B6").Select
End SubDe vagy 3 perc mire lefutott 5000 sornál.
Van valami gyorsabb módja makróval? -
-
-
-
#28234
coldfirexx
tag
Sziasztok!
Egy olyan makrót keresek amelyik a következőt csinálja:
Van egy táblám, ahova adatok vannak betöltve "A3: Y3" között, és "Z3: AM3" ig képletek.
Jön egy új adathalom és akár "A5000: Y5000" ig feltölti a táblát.
A makró amit keresek hogy másolja le a képleteket addig amíg az "A: Y" ban van adat. -
-
-
-
-
-
#28217
coldfirexx
tag
Hello!
Kellene egy kis segítség makró írásban. A következő feladatot kellene megoldani:
Az A oszlopban minden sorban van egy képlet mely eredménye üres vagy "elrejtve"(Kiírja hogy Elrejtve).
Ez annak függvényében változik hogy, a mögöttes PIVOT tábla mennyi adatot tölt be.
Frissítem a PIVOTOT (ezt sikerült makró rögzítéssel megcsinálni), majd ennek függvénye hogy mennyi sor le az ahova nem jut adat=el kell rejteni.
Ahol kiírja az A oszlopban hogy "Elrejtve" azt egy gombnyomasra el kellene rejteni.Köszi ha valaki veszi a fáradságot.
Csak makró jöhet szóba. -
#27385
coldfirexx
tag
lappy
#27383
-
#27381
coldfirexx
tag
Sziasztok!
A kérdésem a következő lenne.
Feltételes formázással szeretnék egy cellának piros vastag szegélyt adni, amennyiben a feltétel teljesül.
Tud valaki segíteni benne, hogyan tudom megvalósítani?
Köszi,
Pisti
Új hozzászólás Aktív témák
Fferi50- Meghozta az első, memórapánikból eredő áremelését az NVIDIA
- AMD Navi Radeon™ RX 9xxx sorozat
- Asztalos klub
- Formula-1
- Apple asztali gépek
- Spórolós topik
- AMD FX
- Dízelgenerátorral készül az áramszünetekre egy nagy felhőszolgáltató
- Milyen hangkártyát vegyek?
- Házimozi belépő szinten
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Csere-Beszámítás! Apple Macbook Pro 2013 vége! 512GB SSD, I7, 16GB DDR3, Intel Iris Pro! Olvass!
- Dell Latitude 5410 - 14", Core i5 10210U, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
- Apple iPhone 5/5S szerviz alkatrészek, készletről akár másnapra!
- GYÖNYÖRŰ iPhone XR 128GB White-1 ÉV GARANCIA - Kártyafüggetlen, MS4294
- Azonnali készpénzes nVidia RTX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest