-
IT café
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
-
Delila_1
Topikgazda
Erre a kódrészletre többször kerül sor a leírásod szerint.
Mikor első esetben hibára fut, a hibakódot megjegyzi. Ha az On Error Resume Next-tel át tudtál lépni a hibán, a művelet elvégzése után le kell nulláznod a hibakódot, hogy a következő futtatáskor ne ezzel a hibával induljon. Nem tudom, hova érdemes beírni a nullázást, legegyszerűbb, ha már eleve 0 hibakóddal indítod a programrészt az On Error Resume Next sor fölött az On Error Goto 0 sorral.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Set ExcelWS = ExcelWB.ActiveSheet
Ehelyett konkrét nevet kellene adnod. Az ExcelWB-nek is érdemes előtte nevet adnod.
workbooks.add.name="Akármi.xlsx"
set ExcelWB=workbooks("Akármi.xlsx")
set ExcelWS = ExcelWB.sheets("Munka1")[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rgqjx
aktív tag
Tökéletesen működik, köszönöm!
Ebből is látszik, hogy illendő lenne egy minimális VB tudást összeszednem, de ahogy elnézem, ez már nem a C64-en megtanult basic.... Tudnátok linkelni nekem egy-két oldalt/könyvet, ahonnan érdemes lenne az alapokat elsajátítanom? Köszönet érte!
-
kispéé
aktív tag
Lehet rosszul fogalmaztam, nincs sorrendben sem illetve az is előfordulhat, hogy egy adott számot az egyik nem tartalmazza. Tehát a számsorok darabszáma sem egyezik.
Kihagytam, hogy közel azonos számsorral...szatocs1981: Screenshot-ot elvileg nem küldhetek. De pontosan miről kéne?
[ Szerkesztve ]
-
poffsoft
addikt
én sem értek hozzá.
Beleír, majd menti, megerősítő kérdés nélkül.
A kolléga problémája a sima ixre adott "Nem" mentjük válasz volt (meg nekem is).Lehetne játszani a dirty flagekkel, de ahhoz kellene, hogy ércsek hozzá, ami meg nem igaz.
De ha van elegánsabb, jobbszebb megoldásod, meghallgatunk
Amúgy szerintem -lajikusként- az exit eventben történő mentés után már nem tér vissza az afters
have eventbe, mert előtte megkapja a killt.De erről Delilát kérdezd inkább, ő tényleg ért hozzá.
üdv: latzi, üdv.
[ Szerkesztve ]
[ Szerkesztve ]
-
Belnir
csendes tag
Na, végül megtaláltam amit kerestem.
Intel G4560, AsRock B150M-HDS, 8Gb RAM
-
Delila_1
Topikgazda
1. kérdésedre:
usor=ActiveSheet.UsedRange.Rows.Count
vagy
usor=Sheets(2).UsedRange.Rows.Count2. a form méretét megadtad? Nem csak a rajta lévő elemek magasságát?
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
A táblázattá alakítás lehetővé teszi, hogy ne kelljen előre beírni a képleteket egy halom üres sorba. Az újonnan megkezdett sor másolja magának a fölötte lévő sorok képleteit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tag
-
Delila_1
Topikgazda
Az első feltétel egyszerűbben
If Not Intersect(Target, Range("C3:X24")) Is Nothing Then
vagy még egyszerűbben
If Not Intersect(Target, [C3:X24]) Is Nothing Then
Nálam valami balhé miatt nem fogadja el a call-ost.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
A Te makród (nem vagyok Excel közelben), de az is jól kell hogy működjön és mivel ott van egy fontos feltétel, ezért be lehet vinni simán adatokat, még ha eseményhez is van rendelve(legalábbis teljesen üres sorokba biztosan) .
(Azért valaki kipróbálhatná, de szvsz nincs vele semmi gond)[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Terra86
csendes tag
Nagyon köszönöm a megoldást, de sajnos én ezt nem tudom működésre bírni. Szerkesztő ablakába próbáltam makróként beillesztve futtatni- nyilván ez nem ilyen egyszerű- de hát mondtam, hogy kezdő amatőr vagyok.
Esetleg írnál egy szájbarágóst?
Mindenesetre még egyszer köszönöm. -
Delila_1
Topikgazda
Igen, ez egy másik felfogás.
A megnevezésben nem látok lényeges különbséget, ugyanazt bővebben, vagy kevésbé bőven írták le.
Az AD oszlopban szerintem hasznos a tisztítás, áttekinthetőbbek a végleges, vesszővel elválasztott értékek.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
biker
nagyúr
igen, o365 excel 2016 volt, de kipróbálom win alatt
ugyanaz. az egyetlen munkafüzet lap az, amiben az adatok vannak, oda szúrom be.
[ Szerkesztve ]
Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
stivi1g
tag
Nem tudom mit rontok el. de nem történik semmi. lehet rossz helyre másoltam a kódot.
képen mutatom hova tettem.
hova tettem.Viszont lenne még egy kérdés ha másik munkalapra akarom a kilistázást azt elég a "Sheets("Tartalék").Select" parancs beszúrásával megoldani? Természetesen Tartalék a Munkalap neve is.
-
biker
nagyúr
Köszi. Azt hiszem, inkább nekiesek az sql export-ra írni egy kis programot, ami ezt lekérdezéskor megoldja, átír mindent, mert excelben ez túl sok.
a win paralels alatt fut, 2GB ram, és 32bites verzió, 20 percig molyolt, aztán out of memory-val félbeszakadt a futásElektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
stivi1g
tag
Igen, közben módosítgattam kicsit de attól még elméletileg a cella név/szám nem változik.De ha nem akkor bocsánat. elvileg ez lenne a táblázat egy beviteli munkalappal. "Kocsikiadás" egy összesítő munkalappal. az működik is. És akkor lenne egy tartalék munka lap ahova listázni kéne az adott dátumra a tartalék rendszámokat.
-
nagyúr
köszi az ötleteket, próbálkozom.
@Delila_1: sajnos ez nem lehetséges, a táblákba nem nyúlhatok bele. amit szeretnék, az egy összehasonlító, amivel azonos struktúrájú workbookokat (illetve egy meghatározott sheetjüket) tudok összehasonlítani a cellák tartalma szerint, mert valamilyen számomra rejtélyes és érthetetlen okokból nem használjuk a historyt. minden kész az egészből, kivéve az, hogy user 1.0 ki tudja választani a sheetet, mivel amint az péntek délután kiderült, ez témakörönként más.
Tudod, mit jelent az, hogy nemezis? Az érintett, erősebb fél kinyilatkoztatása a méltó büntetés mértékét illetően. Az érintett fél jelen esetben egy szadista állat... én.
-
nagyúr
-
Delila_1
Topikgazda
Érdemes minden oszlopot szöveg formátumúra állítani, amivel nem számolsz. A megrendelési szám, cikkszám, telefonszám pont ilyen.
Egyrészt kevesebb bosszantó hiba keletkezik, másrészt a szövegként tárolt számok kevesebb helyet foglalnak el, kisebb lesz a fájlod mérete.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Amit látnod kell 80’ – 90’ évek, egész estét betöltő mozi filmjei.
- A fociról könnyedén, egy baráti társaságban
- Háztartási gépek
- LG C3: egy középkategóriás OLED tévé tesztje
- Gaming notebook topik
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- OLED TV topic
- Kupon kunyeráló
- Autós topik
- Kerékpárosok, bringások ide!
- További aktív témák...
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24