- iPhone topik
- Yettel topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Huawei Watch GT 5 Pro - egészség + stílus
- Milyen okostelefont vegyek?
- Keretmentesít a Galaxy S25 FE
- Profi EKG-s óra lett a Watch Fitből
- Magisk
- Xiaomi 15 - kicsi telefon nagy energiával
- Honor 400 - és mégis mozog a kép
-
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
-
Thrawnad
senior tag
Sziasztok!
Van egy nyitott excel file, és szeretném elmenteni valamilyen néven mentéskor.
Azaz backupot akarok csinálni.
Illetve egy munkalapon mentem, hogy mikor ki mentett.
Nagy része megvan:Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Ment").Visible = True
Sor_M = 2
While Worksheets("Ment").Cells(Sor_M, 1) <> ""
Sor_M = Sor_M + 1
Wend
Worksheets("Ment").Cells(Sor_M, 1) = Sor_M
Worksheets("Ment").Cells(Sor_M, 2) = Date
Worksheets("Ment").Cells(Sor_M, 3) = Time
Worksheets("Ment").Cells(Sor_M, 4) = Environ("Username")
If (Sor_M Mod 5) = 0 Then
Prefix = "01_"
End If
If (Sor_M Mod 5) = 1 Then
Prefix = "02_"
End If
If (Sor_M Mod 5) = 2 Then
Prefix = "03_"
End If
If (Sor_M Mod 5) = 3 Then
Prefix = "04_"
End If
If (Sor_M Mod 5) = 4 Then
Prefix = "05_"
End If
Worksheets("Ment").Cells(Sor_M, 5) = Prefix
Dim File_Old As String
Dim File_New As String
Dim File_Path As String
File_Old = ActiveWorkbook.Name
File_New = Prefix & File_Old
File_Path = ActiveWorkbook.Path
' ÉS ide kellene valami ami elmenti a filet.
Sheets("Ment").Visible = Fals
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End SubEbben kérek segítséget.
Thrawnad
-
#28015
Thrawnad
senior tag
m.zmrzlina
#28003
Thrawnad
senior tag
válasz
m.zmrzlina
#28003
üzenetére
Az be van, de attól még nem külön ablakban vannak, csak a tálcán látszanak.
Thrawnad
-
-
Thrawnad
senior tag
Van egy olyan problémám, hogy egy excel táblában volt egy pár feltételes formázás.
Másolgatták a cellákat ide oda, így a formázás is sokszorozódott.
Szeretném az összest kitörölni egyszerre, hogy az eredetit vissza tudjam tenni.
Van rá valami mód?Ui: Csak én lehetek ennyire béna megtaláltam közben
Thrawnad
-
Thrawnad
senior tag
válasz
Emil-l
#25819
üzenetére
Hát ekkorával régen dolgoztam.
Mondjuk kb 2,5 millió sor volt a legtöbb anno 17 oszloppal.
Azt egy 486-os DX4-100 az 14 perc alatt indexelte 2 kulccsal.
Ennek a gépnek ezt tudni kellene. Az 1 es élményindex csak a videokarira vonatkozik.
Viszont az aero hatást a windowsnak kapcsold ki, mert az is visszafoghatja mivel gyenge a videokártya.
Thrawnad -
Thrawnad
senior tag
Sziasztok!
Excel 2013. Autó szűrőnél 3 feltételt hogyan tudok megadni?
Makróban is próbáltam, de elszálActiveSheet.Range("$A$1:$A$25000").AutoFilter Field:=1, Criteria1:="<>*Dolgozó*", Operator:=xlAnd, Criteria2:="<>*Keretegyenleg*", Operator:=xlAnd, Criteria3:="<>*szabadságker*"
Thrawnad
-
Thrawnad
senior tag
válasz
Fferi50
#24776
üzenetére
Igen, csak ugye a Törzskönyv nállam már Xlsx máshol meg még XLS.
Ezért egy ciklussal végig szaladok rajta a pontigutvonal = Workbooks(File_Ez).FullName
While (Sor < Len(utvonal)) And (betu <> ".")
betu = Right(Left(utvonal, Sor), 1)
If betu <> "." Then
File_Ki = File_Ki & betu
End If
Sor = Sor + 1
Wend
File_Ki = File_Ki & ".TXT" -
Thrawnad
senior tag
Szerintetek ez miért szál el hibával ahol értéket akarok adni a tömb elemnek?
Dim Nap As Integer
Dim Unnep(1 To 31) As String
Nap = 1
While Nap < 31
Unnep(Nap) = Workbooks(File_nev).Worksheets("Adatok").Cells(3, (Nap * 2) + 3) 'Itt szál el
If (Unnep(Nap) = "ü") Or (Unnep(Nap) = "Ü") Then
Unnep(Nap) = "1"
Else
Unnep(Nap) = " "
End If
Nap = Nap + 1
WendEz a hiba:
Run-time error "9":
Subscript out of rangeKöszi a segítséget!
Thrawnad -
Thrawnad
senior tag
Törzsszám Név UTK Óra Dátum
50400603 Cserepák József 4054 16 2014.11.30
50400603 Cserepák József 4052 36 2014.11.30
50400603 Cserepák József 4001 48 2014.11.30
50400603 Cserepák József 4033 12 2014.11.30
50400603 Cserepák József 4001 36 2014.11.30Van egy ilyen táblám, az a kérdés hogy tudom összeadni azokat az órákat ahol egyezik az UTK és a törzsszám? Makró nélkül lehetőleg.
Köszi:
Thrawnad -
Thrawnad
senior tag
Hali!
Az alábbit akarom megcsinálni. Persze a sor az nem 333 mert az máshonnan kalkulálódik.
Lényegében az utolsó sorba akarok szum sort írni. De nem jó hogy makróban összesítek mert kézzel még a beltartalom változhat.Sor = 333
Hely = 3
While Hely < 26
Cells(Sor, Hely).Select
ActiveCell.FormulaR1C1 = "=SUM(R[((sor-4)*-1)]C:R[-1]C)"
Hely = Hely + 1
WendTud valaki segíteni?
Thrawnad
-
Thrawnad
senior tag
válasz
Fferi50
#24390
üzenetére
Szia!
Azt már leprogramoztam!
Annyi van hogy az A oszlopban ott a karakteres cucc aminek nem kézi mentés másként-tel kellene egy txt-ben landolnia ami az SAP alá betölthető. Az A oszlop tartalma már teljesen el van készítve.
Sőt ha kézzel csinálom akkor is ez van hogy mentek, mentek másként, bezárok.
Így létrejön, és be is veszi az SAP és már hibát sem kapok
Csak a végét kellene automatizálni.
Thrawnad -
Thrawnad
senior tag
Sziasztok!
fajlNev = ActiveWorkbook.Path & "\" & Mid(File_Ez, 1, 7) & ".txt"
ActiveWorkbook.SaveAs fajlNev, FileFormat:=xlText, CreateBackup:=FalseEz összeborzolja a file-omat, de nekem egy TXT kimenet kellene a lapról.
A
FileFormat:=xlTextPrinter
Nem jó mert a sorok hosszúak és az meg össze borzolja a kimenetet.
Tud nekem segíteni valaki?
Thrawnad -
#24366
Thrawnad
senior tag
Bocimaster
#17803
Thrawnad
senior tag
válasz
Bocimaster
#17803
üzenetére
Simán lazán FoxPro-t vennék elő 35 giga TXT-hez
-
#23583
Thrawnad
senior tag
nebulo0128
#23582
Thrawnad
senior tag
válasz
nebulo0128
#23582
üzenetére
Kijelzőn gondolom csak az eredmény van fenn.
Én csinálnék egy táblát amiben a makró mondjuk percenként, vagy ahogy szükséges megnyitná a bemeneti táblát és magába másolná az eredményeket, majd becsukná.
Így annak a helyére ami a bemenet be lehet összeomlás nélkül másolni a filet a frissítések közt.
Egy külön példányon meg dolgozhatsz zavartalanul.
Thrawnad -
#23518
Thrawnad
senior tag
Istikee007
#23517
Thrawnad
senior tag
válasz
Istikee007
#23517
üzenetére
Ilyen helyre inkább konkrét kérdést illik feltenni:
Pl: Milyen függvénnyel keresek minimumot.
Hogy csinálok oszlop diagramot?
Ehhez hasonlók.Thrawnad
-
-
Thrawnad
senior tag
válasz
Fferi50
#23079
üzenetére
Kód Név Létszám létszám kezdő idő stb
I Debrecen Pálya 3 3 7:00 19:00 19:00 7:00
ID Debrecen Start 1 1 7:00 19:00 19:00 7:00
ÖP Őrparancsnok 1 1 7:00 19:00 19:00 7:00
N1 Nyiregyháza Pálya 1 1 1 5:15 19:15 19:15 6:45
N2 Nyiregyháza Pálya 2 0 2 8:15 20:15 20:15 8:45
NS Nyíregyháza Start 18:15 6:30
MU Munkaügy 8:00 16:00
K Kamera 1 1 6:00 18:00 18:00 6:00
T Trakció 1 1 6:00 18:00 18:00 6:00
G Gépészet 1 1 6:00 18:00 18:00 6:00
M Mobil 2 2 7:00 19:00 19:00 7:00
Ni Nyiregy KJKI 1 1 7:00 19:00 19:00 7:00 -
Új hozzászólás Aktív témák
Hirdetés
- Bomba ár! Lenovo X1 Yoga 1st - i7-6G I 8GB I 256SSD I 14" WQHD I HDMI I W10 I CAM I Garancia!
- Bowers/Wilkins PX8 fejhallgatók (dupla Bluetooth eszköz csatlakoztatása!) - ELKELTEK
- Telefon felvásárlás!! Xiaomi Redmi Note 12, Xiaomi Redmi Note 12 Pro, Xiaomi Redmi Note 12 Pro+
- Zebra ZP505 EPL - Hőpapíros címkenyomtató
- DELL Universal Dock D6000 dokkolók, RTX Legion Pro laptopok 4 év Lenovo garanciával, licencek
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest