Hirdetés
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- GoodSpeed: Márkaváltás sok-sok év után
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Fűzzük össze a szavakat :)
- ldave: New Game Blitz - 2025
- Real Racing 3 - Freemium csoda
- Gurulunk, WAZE?!
-
LOGOUT
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
-
ssrobi
csendes tag
Sziasztok!
Egy olyan gondom lenne, hogy az alábbi makróm valamiért hibázik, és nem tudom mi a rossz benne
megkéne vizsgálnia, hogy az AE cellában nagyobb-e a szám mint 36 és ha igen akkor 4 oldalt, ha nem akkor 2 oldalt nyomtatnia..de ehelyett néha valamiért akkor is 4 oldlat nyomtat ha kisebb a szám mint 36! Makrorögzitővel készítettem 
köszi előre is!
If Cells(1, 31) > "36" Then
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Exit Sub
ElseExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"
End If
-
ssrobi
csendes tag
Na kicsit másképp de megoldottam egyenlőre a problémát
csak vigyázni kell, hogy az adott lapon nehogy valaki elkattintsa az A2 ből
viszont most egy olyan kérdésem lenne, hogy lehetne-e olyat csinálni hogy a gomb megnyomásakor megvizsgálja hogy van-e valami az A16-ban (bármi) és ha nincs akokr ne hajtsa végre a makrót!?köszi
-
ssrobi
csendes tag
válasz
Delila_1
#3757
üzenetére
kár
Viszont felmerült még egy kérdésem, amit szintén nem tudok megoldani
Ha van egy oszlopban mondjuk 600 sorban adat (legyen A oszlop), és vannak bennük ismétlődések, hogyan tudom kiszedni azokat a sorokat amik legalább egyszer szerepelnek, és mondjuk ezt átrakni ezeket a B oszlopba!?
Lehet egyáltalán ilyet?
köszi -
ssrobi
csendes tag
-
ssrobi
csendes tag
válasz
Delila_1
#3748
üzenetére
Azért persze csak lenne még egy kérdésem
Mi kell ahoz, hogy az utolsó celle alá lépjen, mert én oda ismét beillesztenék valamit Illetve az alábbival mi a gond:Range("A16:j" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Copy
Worksheets("nyilvántartás").Activate
Cells(1,1).Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=Falseés a Cells(1,1).Select-re mindíg valami hibát ír ki, azért mert magát a makrót induláskor egy másik lapról indítom, vagy leglábbis gondolom hogy azért
mit kéne tegyek, tudnátok segíteni?köszike
-
ssrobi
csendes tag
Sziasztok!
Segítséget szeretnék kérni makróban (nem értek hozzá, csak makrorögzítővel csinálgatom
Azt szeretném elérni, hogy van egy mindig változó sorú (hol 4 sor hol 25) adathalmazom és azt szeretném, hogy egy gomb megnyomására kijelölje a legalsó sorig. hmm nem tudom mennyire lett érthetőItt a fórumban olyanra találtam már példát hogy menjen el az utolsó sorig, de hogy addig kijelölje sajna nem találtam meg...
előre is köszi
üdv -
ssrobi
csendes tag
Sziasztok!
Ismét egy problémám lenne..ez eddig rendesen ment (office 2003 alatt) egy nyomógomb mögé rakva, most valamiért a ''#hiányzik'' -okat
Range(''A6:j1000'').Select
Selection.ClearContents
Sheets(''Munka1'').Columns(''A:J'').AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range(''A1:J2''), CopyToRange:=Range(''A6:j6''), Unique:=False
Egy egy irányított szűrés lenne, ami amúgy rendesen működik is kivéve ha #hiányzik-ra keresek! Mi lehet a gond? valaknek valami ötlete?
Köszi 
-
ssrobi
csendes tag
válasz
frankie!
#2133
üzenetére
Szia!
Hát hogy mindenikgyet külön külön tudod-e szinezni azt most nem tudom (bár ztalán lehet) De amikor kész a diagramm, akkor kattintgatsz ''ösze visza'' a diafgrammon, és ha jól kattintóttál kijelöli a diagrammot (vagy csakazt az oszlopot amit szeretnél!) és aztán jobb klick tulajdonságok.
Hát aszem nem sikerült valami jól leírjam..de remélem azért segítettem..
Üdv -
-
#2107
ssrobi
csendes tag
matekmatika
#2106
ssrobi
csendes tag
válasz
matekmatika
#2106
üzenetére
én meg pláne nem
))
Köszi, leellenörzöm, hogy mit hogyan csináltam, írtam el -
#2104
ssrobi
csendes tag
matekmatika
#2103
ssrobi
csendes tag
válasz
matekmatika
#2103
üzenetére
aham, hát izé egy könyvtárban van de nem nyitja meg.. mondjuk ez a legkisebb baj
de nekem csak hibaüzit ír ki:
''munkafüzet2.xls nem található. Ellenőrizze hogy helyesen írta be a file nevet, illetve,hogy az elérési út megfelelő.''
Tehát pedig megcsinálná de valamiért mégsem na majd még próbálkozok biztos elítam valahol valamit
mégegyszer köszi! -
#2102
ssrobi
csendes tag
matekmatika
#2099
ssrobi
csendes tag
válasz
matekmatika
#2099
üzenetére
Köszönöm, szuper!!!
Ezt a hibakeresős részt nemértem (nem müxik)Itt az a lényeg, hogy le is íja hogy mi lehet a hiba? Mert akkor az is müxik rendesen!
Mégegyszer köszi nektek a segítséget..még ugyis jövök :p 
-
#2100
ssrobi
csendes tag
matekmatika
#2099
ssrobi
csendes tag
válasz
matekmatika
#2099
üzenetére
Köszi!
Megnézem és jelentkezek ) -
ssrobi
csendes tag
Látom megzavartalak Titeket a pontjaimmal
azok csak azért voltak ott, hogy van folytatása, ami egy érték beillesztés, illetve 3 oszlop esetében szövegből oszlopok készítés Csak azok működnek azért nem másoaltam be!
A hibaüzi a következő:
Runtime error 1004
Range osztály Select metódusa hibás
és sajna nem csinálja meg
Persze nem én irtam a makrót, hanem makrorögzitővel készült -
#2093
ssrobi
csendes tag
matekmatika
#2092
ssrobi
csendes tag
válasz
matekmatika
#2092
üzenetére
Sajna nem müxik..pedig mindkettő nyitva van..
lapa!
Hog érted, hogy a pöttyöknél? nem igazán értem -
ssrobi
csendes tag
Sziasztok!
Egy kis segíséget szeretnék kérni, alábbival mi lehet a gond:
Private Sub CommandButton1_Click()
Windows(''munkafüzet1.xls'').Activate
Columns(''A
'').Select
Selection.Copy
Windows(''munkafüzet2.xls'').Activate
......
Egyik münkafüzetből szeretnék átmásolatatni egy másik munkafözetbe adatokat..de nem csinálja meg..nem is lehet ilyet!?
Köszi előre is!
-
#1986
ssrobi
csendes tag
matekmatika
#1983
ssrobi
csendes tag
válasz
matekmatika
#1983
üzenetére
Hát akkor nem értem, na majd megpróbálom újra feltepeíteni a progit amit adtál, hátha ott csesztem el valamit, mert az nekem egy PDF szerkesztőt akar megnyitni valamiért, ahelyet, hogy csak simán megcsinálná a PDF-et.
Ez a link nekem kicsit nagyon bonyolult amit adtál Majd nézegetem még egy kicsikét
köszi mindenesetre!
-
#1958
ssrobi
csendes tag
matekmatika
#1953
ssrobi
csendes tag
válasz
matekmatika
#1953
üzenetére
Ja bocsi csak a lényeget hagytam ki
hibaüzi:
ActiveX component can't create object
jelölt sor:
Set PDF = CreateObject(''PDFCreatorPilot2.piPDFDocument'')
Köszi
-
#1950
ssrobi
csendes tag
matekmatika
#1947
ssrobi
csendes tag
válasz
matekmatika
#1947
üzenetére
Kösziii megkaptam!
de persze mivel igen béna vagyok... továbbra is problémám van.. beírom amit a linket adtál, átjavítgatom, és megáll hibával. Ezt hoztam össze:
Private Sub CommandButton5_Click()
Set PDF = CreateObject(''PDFCreatorPilot2.piPDFDocument'')
PDF.StartEngine ''demo@demo'', ''demo''
PDF.Filename = Cells(2, 2)
PDF.AutoLaunch = True
PDF.BeginDoc
ActiveSheet.PageSetup.PrintArea = ''$B$4:$J$49''
ActiveWindow.SelectedSheets.PrintOut
PDF.EndDoc
Set PDF = Nothing
End Sub
Mi lehet a gond? Azon kívül, hogy béna vagyok! -
#1938
ssrobi
csendes tag
matekmatika
#1928
ssrobi
csendes tag
válasz
matekmatika
#1928
üzenetére
SZia Sajna nem lelem a progit sehol sehogy
Valami ötlet?
Köszi!!! -
#1926
ssrobi
csendes tag
matekmatika
#1924
ssrobi
csendes tag
válasz
matekmatika
#1924
üzenetére
Ez a Pdf készítő fizetős...így ráirkálja, hogy TRIAL versióval készült..
Illetve még egy gond lenne... aszem fáradt vagyok..mit kell átírni, hogy az excelemet (nyomtatandó területet) küldje PDF re?
[Szerkesztve] -
#1925
ssrobi
csendes tag
matekmatika
#1924
ssrobi
csendes tag
válasz
matekmatika
#1924
üzenetére
oksi értem, viszont akkor ehhez mindenkképpen ez a PDF Creator Pilot kell uugye? Mert én most nyomtatóként feltelepített CUTE Pdf -et használok.
Na de megnézem aztán jelentkezek! -
#1923
ssrobi
csendes tag
matekmatika
#1922
ssrobi
csendes tag
válasz
matekmatika
#1922
üzenetére
Köszi! De sajna nem oldja meg ez sem maradéktalanul a problémám, ami az lenne, hogy pl a B2-es cella tartalmát használja mint név amikor elmenit a pdf-t. A B2 mindig változik, tehát nem ugyanaz a név kellene.. Meglehet ezt egyáltlaán csinálni?
Kösz -
ssrobi
csendes tag
Köszi! viszont hmm
))
érdekes nekem nem pont ezt menti el Iletve az a baj, hogy nem irtam le rendesenmit is szeretnék
Tehát még azt szeretném, hogy az egyik cellában lesz egy ''egyedi'' azonosító, ami aztán a pdf file neve kéne hogy legyen..de ezt nem csinálja meg. Próbáltam, hogy másolás, aztán beillesztés..de ezt a makró rögzitő már nem veszi be
Odáig megcsinálja, hogy megnyitja a pdf nyomtatóba, de a file nevét már nekem kell bemásolja (persze nem esik legy az aranygyűrű az ujjamról, de nem így lenne az igazi..no meg a file nevét sem kézzel szeretném bepötyögni....
Nem tudom mennyire sikerült érthetően irjam a gondom
Köszi! -
ssrobi
csendes tag
Sziasztok!
Telejesen kezdő vagyok makrókban, mégis próbálkozok vele Eddig ami kellet azt makrórögzitővel megcsináltam vagy sikerült itt a fórumban megtaláljam hála nektek
Most azonban megakadtam
Kérdésem lenne, hogy valahogy meg lehet-e oldani (gondolom makróval) hogy 1 gomb megnyomásával PDF-et csináljon. Tehát kiválassza az excel az egyik nyomtatót (PDF nyomtatóra gondolok) és ki is ''nyomtassa''?
Majd lesz még más is De most ez lenne a legfontosabb
Előre is köszi!
ÜDv: ssrobi
és hogy sem idéző sem időző jel nem kell 
))
most meg nem rak át semmit...csak jön a hibaüzi ha van ott valami ha nincs, hiába próbáltam hellyel közzel egyedül megoldani..átküldöm akkor, Te tutira rájössz mit csesztem el 
hogy mit is kéne irkáljak bele 
'').Select
Új hozzászólás Aktív témák
Fferi50- Microsoft Surface Laptop 5 i5-1245U 16GB 512GB 13.5" Gorilla Glass TouchScreen 1 év garancia
- HIBÁTLAN iPhone 13 mini 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS4078, 100% Akkumulátor
- Logitech Webkamera MeetUp 120 -os látótér, mikrofon, 4K Ultra HD
- Készpénzes / Utalásos Videokártya és Hardver felvásárlás! Személyesen vagy Postával!
- BESZÁMÍTÁS! Asus B150-Pro i5 6500 8GB DDR4 250GB SSD 1TB HDD GTX 1050Ti 4GB Rampage SHIVA 450W
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi