-
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
-
Telda
addikt
Köszi!
Közben találtam rá egy makrót.Sub munkafuzetmasolas()
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "munkalaplista"
Range("A1").Select
For i = 1 To Sheets.Count - 1
Sheets(i).Select
Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select
Selection.Copy
Sheets("munkalaplista").Select
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
lastRow = ActiveCell.Row
Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub -
PistiSan
addikt
Mindkét verzió eszembe jutott, az általad felsoroltakból.
Felsoroltam egy külön fájlban amit le kellett vonni, de függvényt nem tudtam írni hozzá, ami amúgy így hogy már leírtad, marha egyszerűen tűnik utólag.
Mivel összesen 1 névről van szó, ezért az első verziót használtam fel az általad írt megoldások közül!
Nagyon szépen köszönöm,úgy működik, ahogy elvártam tőle.Annyira ritkán kell ilyen egyéni függvény, hogy még soha nem néztem utána rendesen, esetleg ha tudsz hozzá ajánlani egy faék egyszerű dolgokat leíró leírást amit ajánlanál, szívesen elolvasnám.
Köszi!
-
PistiSan
addikt
Nagyon szépen köszönöm a válaszod, viszont számomra ez nem megoldás, mivel a fentebb leírtak alapján, nálam már a forrás fájlban eleve rosszul mentődik az adat el, ezért a fent leírtak alapján kellett a mentést elvégeznem, hibás forrás adattal sajnos ez a módszer nem működik.
Viszont amiért nagyon örülök, hogy ezt leírtad, mert a táblázatot amit alapból másoltam egy excelbe, azt le tudom menteni a programból weblapként is, mentésnél UTF8-at választok, így a PQ-val erre a html fájlra hivatkozok, és a te általad ismertetett módszerrel alakítom át a pontokat vesszőre, a nyelvterület beállításával.
Összességében kicsit máshogy mint elsőre terveztem, de működik a dolog.
-
Hege1234
addikt
köszönöm szépen!
szép hosszú sor lett : )amit írtál a KG -ra az alapján átírtam UP-ra
=if(row()-1<=counta($D$3:$E$27);textjoin(" - ";true;$A$1;if(index(FILTER($D$3:$D$27;len($D$3:$D$27)+len($E$3:$E$27));row()-1)="";E$2;D$2); text(index(FILTER($A$3:$A$27;len($D$3:$D$27)+len($E$3:$E$27));row()-1);"HH:mm");index(FILTER($D$3:$E$27;len($D$3:$D$27)+len($E$3:$E$27));row()-1));"")ami nem sikerült az az hogy a "07:00" -át is kiírja
nem jöttem rá hogy mi miatt (ebben a sheet-ben próbálgatom)
valamint az, hogy folytatólagosan a 28. sorba működjön
(B28)próbáltam összetenni, hogy a kg és az up is egy oszlopba kerüljön de így csak az
1. találatot kaptam belőlük={if(row()-1<=counta($B$3:$C$27);textjoin(" - ";true;$A$1;if(index(FILTER($B$3:$B$27;len($B$3:$B$27)+len($C$3:$C$27));row()-1)="";C$2;B$2);text(index(FILTER($A$3:$A$27;len($B$3:$B$27)+len($C$3:$C$27));row()-1);"HH:mm");index(FILTER($B$3:$C$27;len($B$3:$B$27)+len($C$3:$C$27));row()-1));"");if(row()-1<=counta($D$3:$E$27);textjoin(" - ";true;$A$1;if(index(FILTER($D$3:$D$27;len($D$3:$D$27)+len($E$3:$E$27));row()-1)="";E$2;D$2);text(index(FILTER($A$3:$A$27;len($D$3:$D$27)+len($E$3:$E$27));row()-1);"HH:mm");index(FILTER($D$3:$E$27;len($D$3:$D$27)+len($E$3:$E$27));row()-1));"")} -
maestro87
őstag
HTML lekérdezésben meg API használatában kellene segítség.
Külföldi rendelős oldalakról szeretném lekérdezni a termékek adatait.
Pl. Aliexpress-ről ha beszúrok egy linket, akkor töltse ki a hiányzó mezőket magától (termék neve, ára stb.).
A másik meg, hogy egyes oldalakhoz van API hozzáférés, és abból is az adatokat be kellene olvasni. De nem nagyon vágom és rendes tutorialt se találni ami Google Script-hez van.
-
Hege1234
addikt
tökéletes
köszi, hogy elmagyaráztad!egy olyanba akadtam még el hogy
az A1 cellából kiolvasott dátum elnevezze az adott lapotfunction onEdit2() {var sheet = SpreadsheetApp.getActiveSheet();var oldName = sheet.getName();var newName = sheet.getRange(1,1).getValue();if (newName.toString().length>0 && newName !== oldName) {sheet.setName(newName);}}ami végül is működik de erre nevezi el a lapot, ha nem szöveg a cella
Sun Mar 21 2021 03:00:00 GMT-0400 (keleti államokbeli nyári idő)
ez mitől lehet?az én tervem 2 cella volt A1 A2 (mert a vasárnapokon kívül minden más napra van egy sheet elvileg van erre is valami szűrő hogy a hét napból a vasárnapot ne mutassa...)
A1 cella: 2021.03.20
A2 cella:=WEEKDAY(A1)
így csak pár számot kellett volna mindig átírogatnomamire még nem jöttem rá hogy az itt látható (1, 1) - et hogyan kell értelmezni?
var newName = sheet.getRange(1,1).getValue();
ha beírtam az (1, 2 ) akkor kiírta ami a B1 -ben volt
milyen számokat kell beírni oda hogy A1,A2 cellát olvassa? -
p5quser
tag
Üdv!
Köszi a választ!
Sajnos set-tel is ugyanaddig jut - az.Activate-ig - majd 438.#46254Fferi50
Neked is köszi a választ! A tömbösítésnél viszont a textboxba beírt szöveget húzza be objektumnévnek. Feltéve ha így gondoltad;Dim tbtomb(8)tbtomb(1) = ActiveSheet.TextBox1tbtomb(2) = ActiveSheet.TextBox2tbtomb(3) = ActiveSheet.TextBox3tbtomb(4) = ActiveSheet.TextBox4tbtomb(5) = ActiveSheet.TextBox5tbtomb(6) = ActiveSheet.TextBox6tbtomb(7) = ActiveSheet.TextBox7tbtomb(8) = ActiveSheet.TextBox8For Each cb In ActiveSheet.OLEObjectsIf TypeName(cb.Object) = "CheckBox" And cb.Object.Value = True Thencbi = Right(cb.Name, 1)With tbtomb(cbi).Activate.SelStart = 0.SelLength = Len(.Text)End WithEnd IfNext cb
De már ott tartok, hogy nem érdekel a selection része, mivel a textboxot aktiválja és odaugrik, onnantól majd kitörlik a benne lévő szöveget. Csak elegánsabb lett volna úgy.
Mégegyszer köszönöm a válaszaitokat! -
moma
őstag
Úristen köszönöm
Kipróbáltam és működik! Sok pepecseléstől mentesz meg ezzel. A pluszban beletett rész is hasznos lesz, pedig ezt nem is mondtam!
És nagyon inspiráló, hogy ezt így megcsináltad más számára. Engem is csak megerősít, hogy mennyire nagy dolog így eltávolítani mások elől az akadályokat.
Amúgy a képeden az ötös ac cellát nem sorszámozza valamiért. Nekem ahogy tesztelgettem mindent jól csinált.
-
KBaj
kezdő
Szia!
Köszönöm, hogy hozzászóltál és tanácsot adtál.
Észrevételedre: Valóban a kód a G8-ra hivatkozik, de az nem üres hanem értéke 9, ami ránézésre csalóka, mert a G8 és H8 Excel művelettel cellaegyesítve van, igazítása középre (piros háttérszínnel). Hivatkozása viszont marad az első cella címe.
Az utóiratodra: Nagyon sokat kísérletezek Excel-VBA-val. Sokszor változtatok ezt-azt. A Feltétel2 nevű tartományt a program első harmadában használom először a'Feltételekmegjegyzés sor után:Range("AF11:AJ11").Value =... , igaz nem név szerint, hanem tartalom szerint. Nem tudom, hogy helyes-e. Nem függvényként futtatva a programot, lefut rendesen.
Amit eddig tudok: Az1004 Application-defined or object-defined error
akkor jön elő, ha olyan utasítást kell végrehajtania, ami egy értékadás valaminek egy munkalapfüggvényt tartalmazó cellából. Persze a munkalapfüggvény helyes. Autódidakta megérzésem ezen az úton kell elindulni a hibakeresésben.
Minden hozzászólást szívesen fogadok. Köszönöm az eddigieket.
Üdv. -
Mutt
senior tag
Másik fórumon a kérdés az volt, hogy van-e olyan függvény amely megadja hogy egy listából mely számok hiányoznak.
pl. 1, 2, 4 esetén a 3-as hiányzik
Hogy hány szám hiányzik egy növekvő számsorból azt meg lehet kapni az alábbi képlettel
= (maximum érték - minimum érték) / lépésköz + 1 - számok darabszáma
A fenti esetben = (4-1) /1 + 1 - 3 = 1 db szám hiányzik.Ha csak 1 db hiányzik, akkor 2 HOL.VAN segít a megadni a hiányzó számot.
=HOL.VAN(HAMIS;SZÁM(HOL.VAN(SOR(INDIREKT("$A"&MIN(A:A)&":$A"&MAX(A:A)));A:A;0));0)+MIN(A:A)-1
Ha több hiányzik, akkor többet kell küzdenünk hogy egy cellában megjelenjenek a számok.
=SZÖVEGÖSSZEFŰZÉS(",";IGAZ;ÖSSZESÍT(15;6;SOR(INDIREKT("$A"&MIN(A:A)&":$A"&MAX(A:A)))/(1-SZÁM(HOL.VAN(SOR(INDIREKT("$A"&MIN(A:A)&":$A"&MAX(A:A)));A:A;0)));SOR(INDIREKT("$A1:$A"&MAX(A:A)-MIN(A:A)+1-DARAB(A:A)))))
Mindegyik esetben a SOR(INDIREKT("$A"&MIN(A:A)&":$A"&MAX(A:A)) függvény előállítja a teljes számsort a kezdő és végszám között egyesével (ha más lépésköz kellene, akkor Excel365-ben a SORSZÁMLISTA tudna segíteni).
A belső HOL.VAN megnézi hogy az előbb létrehozott számok az A-oszlopban hol találhatóak. Amelyik hiányzik ott hibát ad vissza, amelyet a SZÁM függvény HAMIS értékre fog lefordítani.
A külső HOL.VAN megnézi hogy hanyadik elemre kaptunk HAMIS értéket. Ezt a pozíciót hozzáadva a kezdőszámhoz megkapjuk hogy melyik hiányzott. -
karlkani
aktív tag
Szia!
Majdnem jó, de az Ünnepnapok között nem csak az adott év szerepel, így az összes azonos hónap, hétköznapra eső ünnepnapjait összegzi. Átírtam a következőképp a képletet, látszólag működik is. Jó így?
=SZORZATÖSSZEG((HÉT.NAPJA(Ünnepnapok;11)<6)*(ÉV(Ünnepnapok)=ÉV(C$szám)*(HÓNAP(Ünnepnapok)=HÓNAP(C$szám)))) -
Slowman
aktív tag
Szia,
gyakorlatilag minden olyan beállítás/formázás amit egyénileg állítok be. Tehát adat feliratok/diagramcím legyen vagy ne, szín stb.
Amit itt kvázi beállítok:
Ebből a legbosszantóbb az adatfelirat, mert minden egyes szeletelő használatnál a kördiagram feliratai elvesznek és fogalmad sincs mi az és mekkora értéket képvisel, holott előtte beállítottam, hogy legyen százalékos érték és kategórianeve minden cikknek. -
Slowman
aktív tag
Szia,
Köszi a választ. A kimutatást táblázat formázás megtartását azt megtaláltam Microsoft support leírás alapján, de ez nem oldott a meg a teljes gondot csak az, hogy nem ugrál az oszlop minden frissítésénél/szeletelő használatnál.
A probléma a kimutatásdiagram formázásával van. Sajnos a diagram veszíti el a formátumot nem a táblázat. Az összes beállított adatfelirat szín stb.
Készítettem sablont, hogy ha ezt csinálja egy mozdulattal betöltsem, de azt meg valamiért nem tolerálja a gép 100% produkálja a hibát ha a sablont betöltöm bezárja az excelt azonnal. -
-
Mutt
senior tag
Annyi pontosítás, hogy ahogy nézem a sort könnyebben el lehet érni, vagyis a a kód rövidebb tud lenni.
illetve annyit finomítottam, hogy csak akkor frissít ha a linkedcell értéke nem jó.
Sub UpdateLinkedCells()
Dim sp As Shape
Dim rng As Range
Const sorEltol As Long = 0
Const oszlopEltol As Long = 7
For Each sp In ActiveSheet.Shapes
'az aktív lapon talált objektumok közül csak a jelölőnégyzeteket keressük meg
'hiba esetén menjünk tovább
On Error Resume Next
If sp.DrawingObject.progID Like "*CheckBox*" Then
'a jelőlőnégyzet a TopLeftCell.Column oszlopban található, a sort pedig TopLeftCell.Row adja meg
'a sor és oszlop azonosítókat csal akkor toljuk el a megadott értékkel ha ráférnek még a lapra
If sp.TopLeftCell.Row + sorEltol <= Rows.Count And sp.TopLeftCell.Column + oszlopEltol <= Columns.Count Then
Set rng = Cells(sp.TopLeftCell.Row + sorEltol, sp.TopLeftCell.Column + oszlopEltol)
'frissítsünk ha az új hely máshol van
If Intersect(rng, ActiveSheet.Range(sp.DrawingObject.LinkedCell)) Is Nothing Then
'mentsük át az új helyre az eddigi értéket
rng = ActiveSheet.Range(sp.DrawingObject.LinkedCell)
'töröljük a korábbi hely tartalmát
ActiveSheet.Range(sp.DrawingObject.LinkedCell).ClearContents
'linkeljük be az újat
sp.DrawingObject.LinkedCell = rng.Address
End If
End If
End If
On Error GoTo 0
Next sp
End Sub -
csferke
senior tag
Szia.
Siker
2. Ha igen, akkor kell egy szövegdoboz a formra, ahova tudja a felhasználó a szöveget gépelni és ezek után lehet visszamenteni az összefúzött szöveget a lapra.
Ezt a megoldást nem tudom használni mert a kérdéses Form-ot több helyen is használom. Úgymond egy univerzális Form. Nem volt kedvem minden egyes bevitelre külön-külön Form-ot készíteni
Ezt megcsinálod a mutatott makrórészlet előtt, majd jöhet amit mutattál. Ezzel a cella értéke a kiválasztott lesz - mivel pedig ezt használod Defaultként, az Inputboxban hozzá tudod írni a szükséges részt.
Így összejött és működik.Köszönöm
-
csferke
senior tag
Szia Mutt!
Csak most jutottam oda, hogy megnézzem amit küldtél. Sajna nem boldogulok vele.
Eddig így használtam. Az E19-be csak 1-2 féle adatot kellet bevinni és azt is csak pár szavat.Range("E19").Select
Default = ActiveCell.Value
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
ActiveCell = MyValueMivel időközben az E19 cellába írandók igencsak kibővültek és hosszabbak is lettek azt szeretném elérni, hogy egy legördülő listából (AC1:AC12) válasszam ki a fix részt. Azonban ehhez a fix-hez többször még hozzá is kellene fűzni valami szöveget.
Az AC1:AC12 listából egy Form-al kérném az adatot BeviteliForm.Show de így mindjárt beírja a kiválasztott fix részt és nem tudok hozzáírni.
Valahogy/valahol itt be szeretnék kérni/írni szöveg-et is InputBox-al és a végén
ActiveCell = MyValue & " " & szovegköszi
-
mckay
aktív tag
Mutt,
zseniális! És ez már az a szint, amit nem is értek.
Ahogy az előző hozzászóló írta: elképesztő!
Ha estig gugliztam és próbálkoztam volna, ezt a tömbképletet akkor sem hozom össze!
És működik!
Persze, megpróbálom felfogni, de még a rácsodálkozásnál tartok, és teszem át a valódi táblába.
És máris kérdésem van... :-)
Az van a függvényben, hogyC$2:C$100=igen
Ezt hogyan lenne elegáns módosítani, ha nekem a valóságban több ezer sorom van? Írjak be egy nagy számot, hogy mindig elég legyen? -
#44138
szricsi_0917
tag
Mutt
#44127
-
#44126
szricsi_0917
tag
Mutt
#44122
szricsi_0917
tag
Szia
Sub kmfrissites_auto()
Dim auto As Worksheet
Dim utnyilvan As Worksheet
Dim szerviz As Worksheet
Dim lastrow
Dim lastrow1
Dim lastrow2
Dim i As Long
Dim a As Long
Dim vMax As Double
Dim xMax As Double
'On Error GoTo kmfrissites_auto_Error
Set auto = Sheets("Autó")
Set utnyilvan = Sheets("Útnyilvántartó")
Set szerviz = Sheets("Szerviznyilvántartó")
lastrow = auto.Cells(Rows.Count, 1).End(xlUp).Row
lastrow1 = utnyilvan.Cells(Rows.Count, 1).End(xlUp).Row
lastrow2 = szerviz.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
For a = 10 To 21
auto.Range("V" & i) = Evaluate("=SumProduct(Max((Szerviznyilvántartó!B2:B" & lastrow2 & " = Autó!B" & i & ") * (INDIRECT(""'Szerviznyilvántartó'!"" & address(2," & a & ",4) & "":"" & INDIRECT(address(" & lastrow2 & "," & a & ",4)) = ""Motorolajcsere"") * Szerviznyilvántartó!G2:G" & lastrow2 & "))")Átalakítottam az általad javasolt megoldásra viszont újabb probléma merült fel.
Több feltételt szeretnék hozzárakni. A probléma, hogy a 2. feltétel más méretű tömb mint a többi így ugye hibára fut a képlet.
For ciklussal oldottam meg, hogy a 2. feltételnél oszloponként megy újra végig és mindig az utolsó legnagyobb értéket hagyja meg így a végén megkapom majd a maximum értéket.
A probléma, hogy az indirect megoldással mindig érték hibára fut. Mi lehet a probléma? -
#44123
szricsi_0917
tag
Mutt
#44122
szricsi_0917
tag
Szia
Köszönöm a segítséget, nem gondoltam volna, hogy a VBA nem tudja kezelni a MAX képlettel.
Sajnos én olyan verziót használok amiben nincs MAXHA függvény pedig már rég kész lenne.
AB.MAX-ot vagy kimutatást azért nem akartam, mert ez egy userformhoz tartozik és ezután még lesz pár számítás így az csak plusz lépés lett volna és nem tudom mennyire lenne lassabb mikor már több ezer sor van, a másik pedig, hogy így elegánsabb. -
pentium4
senior tag
Sziasztok,
Az alábbi feladatot hogy tudnám megoldani:
A 2. sorban egy másik tábláról kerülnek beolvasásra az adatok, ha függvénnyel, ha a másik lapon pl PÁRIZS van akkor 'p' betüt ir ezen a lapon, azt kéne megoldani, ha 2db nál több 'p' van akkor a 'p' helyett 'n' betű legyen az eredmény, és a p számolását a sor elejéről kell kezdeni, vagyis ebben a példában az első 2 marad 'p' nek, és a többinek 'n'-nek kéne lennie.
KösziP4
-
mulli86
tag
Szia,
1- ok
2- ok
3- amint látod a mintát a hibakódok számot és szöveget is tartalmaznak azért a variant.
4-5 ha látod a teljeses progit, láthatod hogy kell-e szerintünk oda kell rakni, de hát logikai felfogás kérdés ki hogy írja meg a programot asszem
6. Úgy rémlett hogy tettünk bele ilyet, de úgy látom mégse, csak akartunk.Egyébb észrevétel így hogy átlátjátok?
Egyébként nem találtam infót róla, mi az a karakter, amivel inaktívvá lehet tenni a két karakter közé zárt szövegrészt. C++-ban ez a {} volt. Itt micsoda?
-
Zenebohoc
tag
Bocs a megkésett válaszért. Megpróbáltam mindent.
Nem vezettek eredményre mit írtál. Végül el kezdtem kitörölgetni egyenként a lapokat és közben próbálgattam a makrót. Tegnap ki is bukott egy hibás lap a fájlban, melyben volt néhány hivatkozás, egy grafikon, de nem ezek voltak a bűnösök. Az egész lapot törölnöm kellett és akkor gyorsult vissza a makró.
Ma gondoltam folytatom tovább és elemzem ezt a hibás lapot a fájlban. Sajnos nem vezetett eredményre, már törlést követően sem javult a helyzet.
Feladtam.
Marad a fájl bezárása, makró futtatás a másik fájlban, majd visszanyitás és adatmásolás.
Köszi még egyszer a segítséget! -
adDis
csendes tag
Sziasztok!
Nagyon szépen köszönöm lappy [link] és Fferi50 [link] tippeit is, egyelőre Mutt [link] javaslatát próbáltam ki és remekül működik!
(Jut eszembe, régen át tudtam írni ezt a link szócskát is bármire, most azt sem látom már , hogyan kellene )Most "már csak" azt kellene még beépíteni valahogy ebbe a képletbe, hogy ugyanezt a 3 vizsgálatot (A=1, A=2 és A=3 esetét) akkor is végezze el, ha van mondjuk van még előtte két olyan kritérumtartomány (legyen X és Y) amely között egyébként mindig ÉS kapcsolat van.
Azaz, ha pl.:
X=1 és Y=1 és A=1, akkor a C mező értékeit adja össze +
X=1 és Y=1 és A=2 akkor a D mező értékeit adja össze +
X=1 és Y=1 és A=3 akkor a C-t szorozza D-vel.Azért nem reagáltam még eddig, mert ezen ügyködöm most, h valahogy belerakjam
üdv -
Guitar14
senior tag
Kipróbáltam a /x kapcsolót és semmi változás nincs, altal pedig csak megnyílik a tulajdonságok panel az exe-ről. Ugyanúgy egy ablakosban fut és ha bekapcsolom a DDE-t akkor magában megnyílik az excel de ha PL total commanderből nyitnék meg egy fájlt akkir a fentebb írt hibaüzenet jelenik meg.
-
zeeland66
tag
Szia, nincs jelenleg táblázat mivel nem sikerült még megoldanom. De csatolom a a képet amin látható, hogy miként szeretném megoldani. Előre is köszönök minden segítséget.
Szóval a példa kedvéért: 500 Ft egy szappan(de lehetne bármi más is) eladok belőle 3 db-ot, beírom az A3-ba, a C3-ban megjelenik a 3 db eladott szappan után a bevétel összege.A D3-ban logikusan a C3 értéke jelenik meg. Fél óra múlva ( vagy holnap) eladok még 5 db szappant. Az A3-ba beírom ismét a 5 db-ot. A C3-nak 2500 lesz az értéke, a D3-nak meg 1500+2500 vagyis 4000 lenne , ha működne és így tovább.
-
-
zsolti_20
senior tag
Szia, Azta... Ez valahol az excel istenszint környékén van. Az én megoldásommal kb 40-50 perc volt 30 ezer sor közül kikeresni a dolgokat. Ezzel pedig kevesebb mint 1 perc. Rettentő gyors, rugalmas a megoldás amit kitaláltál. Minden tiszteletem ezért.
Ha bármi változó van, akár egy új lista vagy másra kell szűrőt használni, mindenhogy megfelel. Ez az amit szerettem volna kezdetek óta. Eddig fogalmam sem volt, hogy lehetséges ilyesmi.
Fferi50:
Neked is nagyon szépen köszönöm a segítséget. Még nem volt időm tesztelni amit kaptam tőled, de este megnézem és össze hasonlítom melyik megoldást lenne a megfelelőbb ehhez a dologhoz.
Köszönöm szépen a sok segítséget! Hihetetlen hogy milyen magas szinten álltok ebben. -
zsolti_20
senior tag
-
-
ROBOTER
addikt
Szia!
Továbbra is gondom van ezzel az implicit intersectionnel.
Időnként hibát dob, nem tudom elkapni/beazonosítani az okot.
Létrehozok egy sheetet, történik rajta egy esemény (az első oszlopban kiválasztok egy elemet egy listából), ekkor jön ez a sor:
Range("KÖLTSÉG").Cells(rowID, 1).Formula = "=EGYSÉGÁR*MENNYISÉG"Application-defined or object-defined error jön a fenti sorra, majd az Excel bezáródik és újraindul Majd kitöltök utána 10 sort alá, és tökéletesen működik, sőt az első sornál ha újra meghívódik a képlet beíró Sub, az is működik.
Ki lehet kerülni? Lehet úgy képletet tölteni a formula tulajdonságba, hogy az névvel ellátott oszlopokra hivatkozik, de tartalmaz sor-koordinátát? Vagy maradhatna, de mi lehet a gond?
-
-
halfnote
friss újonc
Most nincs előttem, ritkán hozom haza a melót :)
Alapban van 10 munkalap, ami adatbázist kérdez le. Ezek ellenőrző listák, más-más rekordszerkezettel. A lekérdezések végére, minden munkalapra készítek egyéb számításokat, de ezeknek a képzett adatoknak a rekord/oszhlopszerkezete már azonos, így összemásolhatók lesznek. De ez csak úgy sikerült,hogy a közös szerkezetű mezőket beimportálom lekérdezésként. Ez 10 lekérdezés. Ezeknek az elérési útvonala van a képen. Minden gondom megoldódna, ha ide tudnék olyan függvényt,vagy hivatkozást írni, ami mindig a fájl aktuális elérési utját helyettesíti be. Ez azért érdekes, mert többen használnák, de más-màs helyről,ha elmásolják maguknak. A kapcsolatoknál megnézem, mi történik,ha egyenként frissítem, de szerintem ez a kollégáknak nem fog tetszeni :) Legrosszab esetben készítek 5 ilyen álományt és mindenkinek névreszóló lesz,fix elérésel, de jobb lenne az univerzálisabb megoldás, aminek tuti léteznie kell. Ezt a függvényt megnézem mi pontosan. Meg kipróbálom mégegyszer. Az a fura,nemrég amit készítettem, az adatbázislekérdezések frissítése után a rájuk épülő kereszttábkákat külön frissítenem kellett,de az frissült a frissen lekért adatok mentése nélkül is. Bár az logikailag más, az is igaz, mert a pivot egy másik munkalapra hivatkozik, míg a mostani eset egy fájl mentett állapotát hívja meg. Persze, azt is próbáltam, hogy beszúrtam egy üres munakalapot és mezei =szerzodesek_szama![@megyekod] hivatkozással át tudtam húzni a megfelelő adatokat, csak az így elkész7lt munkalapot nem tekintette lekérdezésnek, hiába PQ alatt hoztam létre, üres munkalap beszúrással, így nem tudtam őket összemásolni. Lehet kicsit zavaros, már cellákkal álmodom :) -
#42849
Fire/SOUL/CD
félisten
Mutt
#42848
-
karlkani
aktív tag
Szia!
Köszönöm!
(#42825) Fferi50
Szia!Így már jó, viszont a tisztított adatoknál a felhasználónév előtt ott marad a
"és a végén a",, id után pedig a,. +3-ra növelve az elejéről sikerül eltüntetni a"-t. Hossznál be lehet állítani, hogy -2 karakter legyen, illetve id-nél -1 karakter? -
#42722
torrentwarez
csendes tag
Mutt
#42720
torrentwarez
csendes tag
Szia!
Ezt akartam használni :https://www.youtube.com/watch?v=Z-h2UER3b_0 sajátra átdolgozni, de már megoldottam ezzel: https://officeguru.blog.hu/2018/04/28/automatikusan_frissulo_data_validation_list_vba_nelkulKöszönöm szépen!
-
#42361
dellfanboy
őstag
Mutt
#42354
dellfanboy
őstag
-
ny.janos
tag
Szia!
Remélem nem tűnt úgy, hogy negatív kritikával akartam volna illetni a megoldásodat. Ha mégis, akkor elnézést kérek. Biztosíthatlak, hogy nem ez volt a célom.
Mivel a megoldás megértésére tett próbálkozás során ugyanazt az adatot írtam véletlenszerűen le a feltételezett cikkszámként, mint már korábban is, akkor jöttem rá, hogy a megoldás sajátossága okozhat nem várt eredményt, ha esetleg Gicz adatainál is előfordulna ilyen eset. (Nekem egyébként biztos semmilyen megoldás nem jutott volna eszembe a kérdés kapcsán.)Sokszor csak ámulok azokon a képletes megoldásokon (a makróhoz láma vagyok, azokat így el sem olvasom) melyeket írtok és remélem, hogy még sokat tanulhatok tőletek. Még a tanulás mellett is gyakran írtok azonban olyan számomra felfoghatatlan megoldásokat, amelyeknek az értelmezésébe bele sem kezdek. Ez esetben örültem, hogy legalább megértettem, hogyan működik a megoldás és ezért bátorkodtam kiegészítést tenni. Ugyanakkor fel sem merült bennem, hogy a megoldásod e sajátosságáról te erről nem tudtál volna (a hozzászólásodra történő válaszom azonban megtévesztő lehetett ebből a szempontból).
Mivel a megoldás megértésére tett próbálkozás során ugyanazt az adatot írtam véletlenszerűen le a feltételezett cikkszámként, mint már korábban is, akkor jöttem rá, hogy a megoldás sajátossága okozhat nem várt eredményt, ha esetleg Gicz adatainál is előfordulna ilyen eset. (Nekem egyébként biztos semmilyen megoldás nem jutott volna eszembe a kérdés kapcsán.)Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Eladó Steam kulcsok kedvező áron!
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Lenovo ThinkPad X13 G2 multitouch
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Bomba Ár! Dell Latitude 3190 - Intel N4120 I 4GB I 64GB SSD I 11,6" HD I Cam I W11 I Garancia!
- AKCIÓ! HP Victus 16-R1002NF Gamer notebook - i7 14700HX 16GB RAM 1TB SSD RTX 4070 8GB WIN11
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged