Ú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.

Új hozzászólás Aktív témák