Hirdetés
- iPhone topik
- Fittyet hány a pesti napfényre a Honor 600
- Xiaomi 15 - kicsi telefon nagy energiával
- Bemutatkozott az Oppo kamerás csúcsmodellje
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Xiaomi 13 - felnőni nehéz
- Nemzetközi vizekre evezett a Realme GT 7 és GT 7T
- Xiaomi 17 - még mindig tart
- Microsoft Rewards
-
Mobilarena
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
Hirdetés
Fferi50- Fejhallgatós találkozó
- Így szórna el 60 milliárdot Elon Musk egy Cursor mozdulattal
- exHWSW - Értünk mindenhez IS
- Luck Dragon: Asszociációs játék. :)
- World of Tanks - MMO
- Philips LCD és LED TV-k
- Azonnali informatikai kérdések órája
- Linux kezdőknek
- Milyen belső merevlemezt vegyek?
- Bambu Lab 3D nyomtatók
- További aktív témák...
- Apple iPhone 14 Pro Max 128GB Új akku 12 hó jótállás!
- ???????????????????szinteÚJ Dell Pro 14 Ultra 7 255U 16GB DDR5 1TB AI PC FHD+ 1 év garancia
- Xbox One / Xbox Series játékok
- GYÖNYÖRŰ iPhone 12 Mini 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4167, 94% Akksi
- HIBÁTLAN iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS4648, 100% AKKSI
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest