Hirdetés
- Milyen RAM-ot vegyek?
- Az SK Hynix elárulta, hogy meddig nem lesz elég memória
- AMD Navi Radeon™ RX 9xxx sorozat
- Melyik tápegységet vegyem?
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- AMD vs. INTEL vs. NVIDIA
- Gaming notebook topik
- Vezetékes FEJhallgatók
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
-
PROHARDVER!
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
- Razer Barracuda X Chroma Black gamer Fejhallgató
- Gamer PC-Számítógép! Csere-Beszámítás! R5 3600 / RX 5700XT / 16GB DDR4 / 256 SSD + 2TB HDD
- Bomba ár! Fujitsu Lifebook T936: i5-6G I 8GB I 256SSD I 13,3" FHD Touch I Cam I W10 I Gari!
- Samsung Galaxy Watch 6 40mm, Újszerű, 1 Év Garanciával
- HIBÁTLAN iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3614
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest