- Milyen okostelefont vegyek?
- Xiaomi 14T Pro - teljes a család?
- VoLTE/VoWiFi
- Honor Magic6 Pro - kör közepén számok
- Android alkalmazások - szoftver kibeszélő topik
- Huawei Mate X6 - keleti oldal, nyugati oldal
- Honor 400 Pro - gép a képben
- Samsung Galaxy S24 FE - később
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Sony Xperia 1 V - kizárólag igényeseknek
-
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
-
vakondka
őstag
CSV fájlt szeretnék megnyitni excelben, de sajnos az olyan cellákat, amelyekben szám van és nullával kezdődik, azokat lényegében "eltünteti".
pl: 00125487
ez lesz belőle: 125487És mivel ezek cikkszámok, ez komoly gond jelenleg...
Hogyan lehetne rávenni az excelt, hogy ne számként, hanem szövegként értelmezzen alapból minden adatmezőt, mert azt tudom hogy ilyen beállítással rendesen megjelennek a nullák a számok előtt.
-
-
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
-
Delila_1
veterán
Hű, de fürge vagy! Alig néhány hónap, és már meg is nézed!
Sheets("kiinduló lap").Select
usor = Range("A65536").End(xlUp).Row
Range("A16:J" & usor).Select
Selection.Copy
Sheets("nyilvántartás").Select
Cells(1, 1).Select
ucso = Range("A65536").End(xlUp).Row
If Cells(ucso, 1) > "" Then ucso = ucso + 1
Cells(ucso, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAz lehet a baj az előzővel, hogy a nyilvántartás lapodon még nem volt adat, az xlDown leszaladt a 65536. sorig, és oda akart bemásolni néhány sort. Ettől persze kiakadt a lelke.
-
Delila_1
veterán
-
Delila_1
veterán
Csak próbálkozás:
Ha a VBE-ben a Tools/Options párbeszéd ablak Editor fülén be van kapcsolva a Require Variable Declaration, akkor a makró elején deklarálni kell a változókat. Lefoglalni nekik a helyet a Dim utasítással (Dim uoszlop As Integer, Dim szöveg As String), azután meg kell adni a kezdő értéküket (Set uoszlop= ActiveSheet.UsedRange.Columns.Count, Set szöveg="Juliska").
Nálam nincs bekapcsolva. Vagy kapcsold ki, vagy deklaráld a változókat, remélhetően ez a bibi.
-
Delila_1
veterán
Érdemes a makró elején meghatározni a kiinduló lapot.
Ha a kiinduló lapon az A16 fölött nincs adat, hibás lesz a kijelölés, ezért inkább az
usor = Range("A65536").End(xlUp).Row -val keresd ki az A oszlop utolsó sorát.
A nyilvántartás lapra a Select-tel lépj át.Sheets("kiinduló lap").Select
usor = Range("A65536").End(xlUp).Row
Range("A16:J" & usor).Select
Selection.Copy
Sheets("nyilvántartás").Select
Cells(1, 1).Select
ucso=Selection.End(xlDown).Row+1 'Itt adod meg az utolsó alatti sort (+1)
Cells(ucso, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues -
lapa
veterán
teljes elérési utat adsz meg? esetleg munkafuzet2.xls?
különbenis, ha ''windows''-ként hivatkozol, nem biztos az a ''.xls''. úgyértem ha windowsban el vannak rejtve a fájlkiterjesztések, akkor nem is biztos, hogy kell. szerintem csináld így (egyikből másikba másolunk egy tartományt, a céltábla van nyitva és persze ebben van a kód):
Sub masolosdi()
hovafile = ActiveWindow.Caption
Workbooks.Open (''C:\valahol\honnan.xls'')
honnanfile = ActiveWindow.Caption
ize = Workbooks(honnanfile).Sheets(1).Range(Cells(1, 1), Cells(50, 1))
Workbooks(hovafile).Activate
ActiveSheet.Range(Cells(1, 1), Cells(50, 1)) = ize
End Sub
mint mindig ' ' helyett '' használandó. -
#2105
matekmatika
tag
ssrobi
#2104
matekmatika
tag
Hát...izé...
Nem munkafüzet1-et kellene megnyitnia? A kód a munkafüzet2-ben van tehát ha fut, az alapból meg kell hogy nyitva legyen.
Vagy te az munkafüzet1-be raktad a kódot?
mert ha igen akkor munkafüzet1 helyett munkafüzet2-re írd át
ErrorHandler:
Workbooks.Open Filename:=''munkafüzet2.xls''
End Sub
így.
[Szerkesztve] -
#2103
matekmatika
tag
ssrobi
#2102
matekmatika
tag
Igazából nem hibakereső
Csak ha adódna a kód futása közben hiba (mondjuk nem tudná aktívvá tenni az adott munkafüzetet, mert nincs megnyitva), akkor az ott leírt utasítást hajtja végre. (jelen esetben megnyitja)
Persze ez így csak akkor igaz, ha a munkafüzet1 és ...2 ugyanabban a mappában van. Ha nem, akkor path-ot is meg kell adni. -
#2099
matekmatika
tag
ssrobi
#2097
matekmatika
tag
Persze a követkaző formula kicsit elegánsabb. Nem csak azért, mert van benne egy hibakezelés is arra az esetre, ha nem lenne nyitva a másolandó adatokat tartalmazó munkafüzet, hanem mert csak
Sub akarmi()
On Error GoTo ErrorHandler
Workbooks(''munkafüzet1.xls'').Activate
Columns(''A:A'').Select
Selection.Copy
Workbooks(''munkafüzet2.xls'').Activate
Cells(1, 1).Select
ActiveSheet.Paste
Exit Sub
ErrorHandler:
Workbooks.Open Filename:=''munkafüzet1.xls''
End Sub -
#2098
matekmatika
tag
ssrobi
#2097
matekmatika
tag
Találkoztam már többször én is ezzel a hiányosságával az vb-nek. Tartományt nem tud kezelni közvetlenül, de ha beszúrsz egy modult és a tartomány kijelölést, valamint a másik munkalapon a beillesztést az ott lévő függvényben vagy eljárásban végezteted el akkor működni fog.
Tehát ahol a kódod van ott Insert-module. Majd itt a modulon végezteted el a tartomány kijelölés-másolás-beillesztést.
Sub akarmi()
Windows(''munkafüzet1.xls'').Activate
Columns(''A:A'').Select
Selection.Copy
Windows(''munkafüzet2.xls'').Activate
cells(1,1).select
activesheet.paste
end sub
Az eredeti kódod helyén pedig egyszerűen maghívod az akarmi-t. Így:
akarmi
Ha nem megy írj megcsinálom.
[Szerkesztve] -
#1928
matekmatika
tag
ssrobi
#1926
matekmatika
tag
Hát...bocs, nem láttam, hogy fizetős, de szerintem ez nem okozhat olyan nagy gondot....
Ha nem boldogulsz vele és érdekel dobj meg egy e-maillel.
például:
ActiveSheet.PageSetup.PrintArea = ''$C$46:$C$59''
ActiveWindow.SelectedSheets.PrintOut
természetesen a tartományt írd át ahogy neked megfelel -
#1924
matekmatika
tag
ssrobi
#1923
matekmatika
tag
PDF.FileName = ''HelloPDF_VB.pdf''
sorban a HelloPDF_VB.pdf-t cseréld le erre: Cells(2,2)
(idézőjelek nélkül, tehát: PDF.FileName = Cells(2,2))
Ja, természetesen a B2-be ilyenkor a kiterjesztéssel együtt kell szerepelnie a leendő pdf fájlnévnek. Tehát valami.pdf
Ha kiterjesztés nélkül van akkor azt a fenti sort így módosítsd:
PDF.FileName = Cells(2,2) & ''.pdf''
[Szerkesztve] -
csak vigyázni kell, hogy az adott lapon nehogy valaki elkattintsa az A2 ből 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Tőzsde és gazdaság
- Házimozi belépő szinten
- Elektromos autók - motorok
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Mibe tegyem a megtakarításaimat?
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- E-roller topik
- Fejhallgató erősítő és DAC topik
- Melyik tápegységet vegyem?
- Bittorrent topik
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Assassin's Creed Shadows Collector's Edition PC
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Nexus 6P 32GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! MSI B450M R5 5600X 32GB DDR4 512GB SSD RTX 3060 12GB Rampage SHIVA Zalman 600W
- BESZÁMÍTÁS! Intel Core i7 8700K 6 mag 12 szál processzor garanciával hibátlan működéssel
- ÁRGARANCIA! Épített KomPhone Intel i9 14900KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest