Keresés: - Microsoft Excel topic - PROHARDVER! Hozzászólások

Hirdetés

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

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

#31460 Szicskeee tag

Új Válasz 2016-05-04 10:28:28 #31460
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Sziasztok!
Adott egy excel amiben van kb 30db PDF es 30db masik Excel =EMBED("Worksheet";"")-kent. Megoldhato-e, hogy kinyomtassam egyben az egeszet es ne kelljen minden objektumra raklikkelni es printet nyomni?
#30129 Szicskeee tag Delila_1 #30128

Új Válasz 2016-01-14 14:23:16 #30129
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

válasz Delila_1 #30128 üzenetére

Sajnos igysem.
#30127 Szicskeee tag

Új Válasz 2016-01-14 11:54:54 #30127
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

hp = InputBox("Hanyadik honap?") ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters On Error GoTo msg ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = hp msg: MsgBox ("Nem letezik ilyen honap!")
Ezzel probalkoztam de sajnos a letezo honapra is azt irja, hogy nem letezik.
#30126 Szicskeee tag Grodd #30124

Új Válasz 2016-01-14 10:55:28 #30126
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

válasz Grodd #30124 üzenetére

Nem nagyon tudtam, hogy lehet ilyet. na de rakeresek.
#30121 Szicskeee tag

Új Válasz 2016-01-14 06:21:24 #30121
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Sziasztok!
Szeretnek egy olyan gombot csinalni amivel 2 pivot tablanak a filterjeit tudom modositani.
Egy fajta modszerrel megcsinaltam de nem nagyon tetszik es gondolom van jobb modszer is.
Tehat jelenleg igy nez ki :
Private Sub CommandButton2_Click() a = InputBox("Hanyadik honap?") Range("B1").Value = a Select Case Cells(1, 2).Value Case 1 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "1" Sheets("Premium").Select Case 2 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "2" Sheets("Premium").Select Case 3 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "3" Sheets("Premium").Select Case 4 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "4" Sheets("Premium").Select Case 5 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "5" Sheets("Premium").Select Case 6 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "6" Sheets("Premium").Select Case 7 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "7" Sheets("Premium").Select Case 8 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "8" Sheets("Premium").Select Case 9 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "9" Sheets("Premium").Select Case 10 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "10" Sheets("Premium").Select Case 11 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "11" Sheets("Premium").Select Case 12 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "12" Sheets("Premium").Select End Select Select Case Cells(1, 2).Value Case 1 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "1" Sheets("Premium").Select Case 2 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "2" Sheets("Premium").Select Case 3 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "3" Sheets("Premium").Select Case 4 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "4" Sheets("Premium").Select Case 5 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "5" Sheets("Premium").Select Case 6 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "6" Sheets("Premium").Select Case 7 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "7" Sheets("Premium").Select Case 8 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "8" Sheets("Premium").Select Case 9 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "9" Sheets("Premium").Select Case 10 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "10" Sheets("Premium").Select Case 11 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "11" Sheets("Premium").Select Case 12 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "12" Sheets("Premium").Select End Select End Sub
#30116 Szicskeee tag Delila_1 #30115

Új Válasz 2016-01-13 09:44:51 #30116
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

válasz Delila_1 #30115 üzenetére

Okes mukodik.
Nagyon szepen koszonom a segitseged!
#30114 Szicskeee tag Delila_1 #30113

Új Válasz 2016-01-13 08:14:06 #30114
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

válasz Delila_1 #30113 üzenetére

Feltettem az MSCOMCT2-ot de igy sem megy, ezek vannak nekem:
#30112 Szicskeee tag Delila_1 #30104

Új Válasz 2016-01-13 06:18:09 #30112
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

válasz Delila_1 #30104 üzenetére

Koszonom szepen! Sajnos mikor megnyitom egy ilyen hibauzenetet kapok:
#30103 Szicskeee tag

Új Válasz 2016-01-12 06:41:57 #30103
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Jo reggelt Mindenkinek!
2013 Angol Excel
Szeretnek egy makrot kesziteni ehez az excelhez:
http://data.hu/get/9408163/Book1.xlsx
Mivel rengeteg adat lesz begepelve ezert egy olyan gombot akarok csinalni ami sorra bekeri az adatokat (Varos, Datum, Név , AB, Hiba, MEO).
Ezt meg csak imputBox-okkal meg is tudnam oldani DE mivel 5 kulombozo Varosrol van szo es minden varosnak kulombozo munkalapja kell legyen ezert ugy kellene, hogy amint begepelem a varos nevet o mar egybol a hozza tartozo munkalapra irja az adatokat.
Es ami meg nem megy, hogy addig kerje az adatokat mig pl. egy 0-ast be nem irok. Mert igy 1000x ra kellene klikkelni a gombra.
Koszonom szepen elore is.
#30043 Szicskeee tag

Új Válasz 2016-01-06 06:55:49 #30043
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Sziasztok!
Megoldhat-e valahogy az a problemam, hogy van 4-5 excelem ami ossze van kapcsolva egy masik excellel amibol szedem az adatokat. Amikor valamelyik excelt megnyitom akkor a fo excelem read-onlyba kerul, nem lehet valahogy megoldani hogy ne legyen read-only mivel a kollegam 2 emelettel feljebb szokta frissiteni az adatokat es sokszor ha nekem meg van nyitva nem tud benne dolgozni.
#29893 Szicskeee tag

Új Válasz 2015-12-15 08:14:41 #29893
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Sziasztok!
Egy egyszeru dologban kernem a segitsegetek.
Van ez a tablazatom:
Hogy tudom azt megoldani,hogy ha pivot tablazatot csinalok az osszetett cellaknal ne irjon ki BLANK-ot, hanem irja be a rendes erteket.
#29778 Szicskeee tag Delila_1 #29776

Új Válasz 2015-12-09 11:38:20 #29778
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

válasz Delila_1 #29776 üzenetére

Es ahoz, hogy egy masik sheetrol hivjak meg 1 command button mit kell ele irni? csak kivancsisag, hogy ott nem csinaltam jol. :/
#29775 Szicskeee tag bsh #29774

Új Válasz 2015-12-09 11:25:54 #29775
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

válasz bsh #29774 üzenetére

Es muuukodik
1000millio koszonet erte.
#29773 Szicskeee tag

Új Válasz 2015-12-09 11:07:18 #29773
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Private Sub CommandButton14_Click() Dim iRet As Integer Dim strPrompt As String Dim strTitle As String strPrompt = "Ki szeretnéd nyomtatni xyz prémium adatlapját??" strTitle = "Prémium" iRet = MsgBox(strPrompt, vbYesNo, strTitle) If iRet = vbNo Then MsgBox "Vége!" Else Worksheets("Prem1").Activate Range("A1:O39").Select Selection.PrintOut Copies:=1, Collate:=True End If End Sub
Valai meg tudja mondani miert kapok hibat Range("A1: O39").Select -nel?
Annyi a lenyeg, hogy 1 masik sheet-rol akarom kinyomtatni A1: O39 ig a cellakat.
Probalkoztam mar azzal is, hogy a masik sheeten (Prem1) csinaltam egy nyomtati gombot. es itt az else be ezzel a parancsal : Call Prem1.CommandButton1_Click meghivtam de az is hibat adott.
#29764 Szicskeee tag

Új Válasz 2015-12-09 07:39:11 #29764
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Sziasztok !
Van 1 gombom ami 1 case-bol all. ennek a vegere szeretnek egy olyat hogy felugordjon 1 ablak es megkerdezze,hogy ki szeretnem nyomtatni a KIJELOLT cellakat vagy nem. Ha pedig igent nyomok akkor nyomtassa ki.
Segitsegetek elore is koszonom.
#29688 Szicskeee tag bara17 #29687

Új Válasz 2015-12-01 11:52:28 #29688
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

válasz bara17 #29687 üzenetére

Koszi de megoldottam, igaz hogy paraszt modszerrel de mukodott.
#29685 Szicskeee tag

Új Válasz 2015-11-30 21:11:14 #29685
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Sziasztok!
Segitsegeteket szeretnem kerni ebben az excelben:
https://onedrive.live.com/redir?resid=78E471405DAD6CA!19296&authkey=!AMbf6FkgFoft_6w&ithint=file%2cxlsx
Igy szertnem megoldani,hogy az adott honap ertekeit atvegye az elso fulrol:
Valaki tud segiteni vagy egy jo otletet adni?
#29662 Szicskeee tag bsh #29657

Új Válasz 2015-11-30 10:37:31 #29662
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

válasz bsh #29657 üzenetére

Orok halam koszi szepen.
#29656 Szicskeee tag

Új Válasz 2015-11-27 07:36:55 #29656
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Sziasztok!
http://kephost.com/images/2015/11/27/Makro.jpg
Kellene 1 kis segitseg, 1 olyan makro amivel ha raklikkelek a szamolj gombra megnezi a B1 cellaban levo szamot es megnyomja a vele egyenlo gombot.