-
Fototrend
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
-
föccer
nagyúr
Erő, egészség!
Van némi zavar az erőben, kérlek segítsétek kibogozni.
Van egy munkafüzet, két munkalappal. Tulajdonságok munkalap tartalmazza az alap adatokat, vizsgálati eredményeket, a segédszámítások pediglen a kiértékelést. Utóbbiban beállíthatóak azok a paraméterek, amelyek alapján a kiértékelést el akarom készíteni
Minden paraméter választható lista, kivétel a mintavétel eleje és vége, amelyre adatérvényesítés van megadva. A tulajdonságokban az egyes adatsorok feltöltésénél szintén listából választható a paraméter, így elgépelés esete nem állhat fenn.
A képen látható Talált vizsgálatok értéke a fenti paraméterek alapján, darabhatöbb() függvénnyel megtalált vizsgálati sorok számát adja meg.
Készítettem egy makrót, ami a közvetlenül a tulajdonság munkalapon állítja be az autofiltert az adott paraméterekre (erre azért van szükség, mert az adott vizsgálati halmaz minimum és maximum értékeire is szükségem van, így a Tulajdonság munkalapon használnom kell az összesítés() függvényt is).
Sub Szurofeltetel_alk()
'
' Szurofeltetel_alk Makró
'
'
With Sheets("Tulajdonságok")
If .AutoFilterMode Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=1
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=2
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=3
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=4
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=5
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=6
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=7
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter
End If
End With
If Sheets("Segédszámítások").Range("C3").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=1
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=1, Criteria1:=">=" & Sheets("Segédszámítások").Range("C3").Value, Criteria2:="<=" & Sheets("Segédszámítások").Range("D3").Value
End If
If Sheets("Segédszámítások").Range("C4").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=2
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=2, Criteria1:=Sheets("Segédszámítások").Range("C4").Value
End If
If Sheets("Segédszámítások").Range("C5").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=3
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=3, Criteria1:=Sheets("Segédszámítások").Range("C5").Value
End If
If Sheets("Segédszámítások").Range("C6").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=4
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=4, Criteria1:=Sheets("Segédszámítások").Range("C6").Value
End If
If Sheets("Segédszámítások").Range("C7").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=5
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=5, Criteria1:=Sheets("Segédszámítások").Range("C7").Value
End If
If Sheets("Segédszámítások").Range("C8").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=6
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=6, Criteria1:=Sheets("Segédszámítások").Range("C8").Value
End If
If Sheets("Segédszámítások").Range("C9").Value = "" Then
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=7
Else
Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=7, Criteria1:=Sheets("Segédszámítások").Range("C9").Value
End If
End SubEz gyönyörű szépen is működik minden esetben, kivéve a dátum esetében. A makró pontosan beállítja a szűrőfeltételt, amit az helyen két érték közöttinek értelmez is ahogy kell. Viszont az autoszűrő úgy veszi át a dátum paramétert, hogy a szűrőfeltételekben a végén van egy pont.
Erre viszont az autoszűrő már nem ad találatot, mert az csak pont nélkül eszi meg a dátum adatokat.
Ha nem adok meg dátum paramétert, akkor nyilván hibátlanul működik.
Mi lehet a megoldás?
Köszi, FG
-
föccer
nagyúr
válasz
DeFranco
#37816
üzenetére
Van egy adattábla.
Első 7 oszlopban vannak a megrendelő, a vizsgáló labor, a vizsgálati anyag, azonosító szám, vizsgálat ideje meg ilyenek. A maradék oszlopban pedig a vizsgálati eredmények, szépen egymás mellett, vagy 20 oszlopban.
Egy másik munkalapon legördülő listában lehet kiválasztani a 7 paramétert, külön-külön, cellánként 1 paramétert. A feladat az, hogy számoljuk meg a listában beállított paramétereknek megfelelő találtok számát (és feltétellel).
Darabhatöbb pont erre van és működik is (dátumot tól-ig is működik, ha jól paraméterezzük a függvényt)), addig amíg valamelyik cella nem marad üresen. Ugyanis ha a darabhatöbb függvény kritérium értéke üres cella, akkor az 0 értéknek veszi és azt keresi, ami nyilván valóan nincs a listába, így 0 eredményt ad. Nekem arra van szükségem, hogy ha egy paraméter nincs megadva (üres cella), akkor a kritériumot ne vegye figyelembe. Erre a megodás az, hogy a kritéiumba az alábbi faék egyszerű képlet ment be HA(C5="";"<>";C5). Azaz, ha a C5 cellában lévő paraméter nincs megadva, akkor a keresett érték legyen "kisebb-nagyobb mint 0, azaz nullától különböző bármilyen érték.
üdv, föccer
-
föccer
nagyúr
Sziasztok!
Szumhatöbb, darabhatöbb használatánál, ha több kritériumot is megadok, cella hivatkozásnál. Megoldható, hogy ha a kritérium cellája üres, akkor azt úgy vegye, mintha nem lenne megadva a feltétel? Ahogy olvastam úgy működik, hogy üres cellára 0 értéket vesz fel, ami nekem nem jó, mert így mindig 0 eredményt ad.
Azt szeretném, hogy ha nincs megadva egy cella, akkor az ahhoz a kritériumot ne vegye figyelmbe. Van erre lehetőség?
Köszi, FG
-
föccer
nagyúr
válasz
cheeka
#37363
üzenetére
A beepitett fuggvanyek hasznalata nagyon kis helyet foglal es egy fajl meretebol nem lehet annak bonyolultsagara kovetkeztetni.
Olyasmire gondoltam hogy megirod, hogy pl adott egy lista ami tartalmazza a termek nevet es masik tucat tulajdonsagat. Ebbol a listabol legordulo menubol lehet valasztani es a valasztas melle kiratni valamelyik tulajdonsagot. Ha ilyen elemi lepesekre le tudod bontani a feladatot akkor az egyes lepesek megoldasaban tudunk segiteni itt a forumon. Az, hohy ugyan ezt az algoritmust/fuggvenyz 30x be kell irni az mar "rabszolga munka".

-
föccer
nagyúr
-
föccer
nagyúr
válasz
dellfanboy
#37299
üzenetére
mármint szöveggént van megadva? Segésdtáblával, ami tartalmazza, hogy melyik szöveg milyen jegynek felel meg. Utána simán az átlagba beágyazni az fkeres függvényeket.
=ÁTLAG(Fkeres();Fkeres();Fkeres())
-
föccer
nagyúr
Jó estét!
Nem fog az agyam, segítsetek rajtam.
A megoldandó feladatrész a következő.
Van egy adathalmaz. Az egyik oszlop 2 értéket vehet fel. "L" vagy "U" (illetve kis és nagybetű, valamint a nagy i, mert sokszor a kis L-t nagy i-nek fogják fel. mindegy).
Az adathalmazban egy másik oszlopban autószűrővel szűrök.
A feladat az, hogy megszámoljam, hogy a mennyi elem van "U" vagy "L" (mindegy, a kettő aránya kell), de csak a szűrt halmazra vonatkozva, nem a teljes adatbázisra. A DARABHATÖBB figyelembe veszi a szűréssel elrejtett elemeket, az ÖSSZESÍT-be beépített darab2 pediglen nem tud kritériumnak megfeleltetést.
Az összesíttel megvan a leszűrt halmaz darabszáma, sima liba, de a szumhatöbb a teljes halmazra ad eredményt, így 1-nél (100%) nagyobb eredmény jön, ami nyilván nem jó.
=DARABHATÖBB(G7:G1007;"L")/ÖSSZESÍT(3;3;A7:A1048576)Milyen függvénnyel, vagy trükkel oldjam meg? Érzésem szeirint tömbképlettel meg lehet oldani, de sosem voltam magabiztos a tömbképlet működésében.

Köszi, föccer
-
föccer
nagyúr
válasz
Szakos90
#37138
üzenetére
Felételes formázással elvileg lehet ilyet csinálni. Képlet alapján, de ebben nem vagyok jó.
Hát, én azt csinálnám, hogy kimásolnám az adott oszlopot egy segéd munkalapra, majd kijelölve őket, adatok menü, ismétlődések eltávolításával megkapod az összes egyedi értéket. Kalap kabát.
Vagy beállítasz egy autoszűrőt az adott oszlopra és akkor a szűrés mellett még dolgozni is tudsz az adatokkal.
-
föccer
nagyúr
válasz
andreas49
#37069
üzenetére
Jelöld ki a az oszlopokat, majd adatok menü, rendezés. Itt a különböző szinteknek tudod beállítani a szükséges sorba rendezési elveket.
Jelen példánál jelöld ki az E és D oszlopokhoz tartozó tartományt, de úgy, hogy az E3-ba kattint esőként és menj a kiejlöléssel a D oszlop végéig. Majd simán nyomj a Z->A ikonra és ha minden igaz akkor a kívánt végeredményt fogod kapni.
üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#36984
üzenetére
Így van, de itt érzésemre más volt a gond.
Szoktam olyan "csalást" alkalmazni,m hogy ha kevés elemből kell keresni, hogy a keresési oszlop értékeire listás érvényesítést állítok be az adatbeviteli cellában, így ki van zárva bármiféle gépelési vagy egyéb user erroro.
üdv, föccer
-
föccer
nagyúr
válasz
the radish
#36857
üzenetére
SZUMHATÖBB kell neked. Több kritériumot is meg lehet neki adni.
üdv, föccer
-
föccer
nagyúr
válasz
lumpy92
#36803
üzenetére
Nem kell hozzá makró.
Csinálj egy segéd oszlopot mondjuk D-be. D1 cellába
=A2Ezt autofill-el rakd át az összes szükséges sorra.Kapcsold be az auto szűrőt.
A oszlopra az autoszűrő értéke legyen egyenlő 0, D oszlop értéke legyen nem egyenlő 0. A leszűrt listát keresed (ez minden olyan elemet tartalmaz, ami az A oszlopban 0 után szerepel.)
Kijelölöd a B oszlopot, másolsz, kikapcsolod az autoszűrőt, ráálsz C1-re és csinálsz egy érték beillesztést.
Törlöd a D segédoszlopot.
ps: ez az módszer feltételezi, hogy az A1 cella értéke 0.
Üdv, föccer
-
föccer
nagyúr
válasz
customer114
#36730
üzenetére
autoszűrő pont erre van kitalálva.
Legfelső sort (fejlécet) kijelölöd, ctrl+shift+L, majd a szükséges oszlopon lenyitod a nyilacskát, tartalomazza -->
Oké, kész vagy.
-
föccer
nagyúr
Beröffentettem egy kellemes számolótáblát. Kényelmes 20 perc volt amíg végigért a ~9k soron.
A forrás adatbázisa ~350k soros. Imádom. 
üdv, föccer
-
föccer
nagyúr
Jelöld ki az összes nevet, majd érték beszűrással másold be egy üres helyre. Hagyd meg rajta a kijelölést, majd adatok menüben használd az ismétlődések eltávolítását. Ezzel megkapod az egyedi elemeket. Ezután az egyedi elemek mellett használd a szumhatöbb függvényt. Az fkereshez használd a teljes paraméterezést. Fkeres(mit keressen;hol keressen;melyik oszlop elemét adja eredményül;pontos találatot keressen)
A hol keressen paraméterben megadhatsz tetszőleges széles tartományt. A mit keressen mindig a megadott tartomány első oszlopában fog keresni, és eredményül a melyik oszlop elemét adja vissza paraméterként megadott oszlop tartalmát fogja megadni.
Ha bizonytalan vagy, akkor használd a súgót.

üdv, föccer
-
föccer
nagyúr
-
föccer
nagyúr
válasz
Petium001
#36438
üzenetére
Az összegzéshez használd a részösszeg funkciót (ha jól emlékszem adatok menü, de súgó segít). A változó sorszámot csak úgy tudom egyszerűen elképzelni, hogy ha a dátumból valamilyen formában származtatható. (mondjuk a dátum maga lenne a sorszám ((a dátum alapvetűen egy számérték, mégpediglen a 1900.01.01 óta eltelt napok számával megegyező szám)).
üdv, föccer
-
föccer
nagyúr
válasz
BullZeye
#36383
üzenetére
Összefűt függvény tud olyat, hogy minimumot keres úgy, hogy kihagyja a hibákat, üres oszlopokat. Kombináld az fkeressel és akkor megadja, hogy melyik bolt a legolcsóbb és nem akad meg a hibáktól.
=Fkeres(összesít(A:A;5;3);B
;2;0)Nincs előttem excel, a paraméterek lehet nem stimmelnek, de nagyjából érted, hogy mire gondolok. Az fekeres keresési értéket az összesíttel keresteted ki, így mindig valid értéket kap és nem akad ki.
üdv, föccer
-
föccer
nagyúr
Fuck yeah.
Megadom a paraméter listát, ellenőríz, optimumot keres, tervez, számít, formanyomatványba nyomtat. Mindezt az aktuális előírások betartásával, az üzemi eredményeket figyelembe véve, tervezett alulmaradással, költségoptimumra.
Mindezt tömegesen, up to 500 összetételre.
Bocs, most kicsit élvezkedek.

üdv, föccer
-
föccer
nagyúr
-
föccer
nagyúr
Estét!
Következő kérdésem lenne. Hogyan tudom eldönteni, hogy egy cella rejtett-e autoszűrő által-e vagy sem? Illetve makróból hogyan tudom beállítani az egyes autószűrőket? Összesen 4 küldönböző oszlopban kell szűrnöm és a leszűrt halmaz 2 oszlopát átmásolnom máshová, majd resetelnem az autószűrőt.
-
föccer
nagyúr
Helló!
Megoldható, hogy egy megnyitott fájlt ne lehessen menteni (se mentés, se mentés másként) csak jelszó megadásával?
ködzi!
üdv, föccer
-
föccer
nagyúr
Amikor az EA jelű oszolppal kell foglalkozni ott azért valami már nem kerek...

-
föccer
nagyúr
válasz
Fferi50
#36213
üzenetére
Feneket. A 800. Sor korul ujraindult a gep, szerintem tulmelegedett... ^.^
Majd mindjart rakok bele egy automatikus mentest meg hogy kezelje a meglevo rszeket ne kelljen ujra szamolnia.
Hogyan lehet az eesz oszthatosagot ellenorizni? Regebben pascalos idoben valahogy ugy oldottam meg hogy ha az osztasi maradek =0 akkor hajtsa vegre muveletet. Igy lehetett konnyen egy for ciklusban periodikus utasitasokat futtatni.
-
föccer
nagyúr
válasz
föccer
#36211
üzenetére
Ó, és nem ez volt a hiba (csodálkoztam is volna, mert azt a 2 cellát fixen felül kell írni minden ciklusban, szóval baj nem lehetett belőle, hogy nem nulláztam őket.
Ellenben ilyen eset is régen történik velem...
Az optimalizációs algoritmust én építettem fel, moat, hogy futtatom kell rájönnöm, hogy túlságosan is jól készítettem fel és okosabb mint én...
Ugyanis bele tettem egy olyan lépést is aminek az alaplépései nem jelennek meg a végeredmény táblázatban, csak a végeredménye és az istenért nem akartam rájönni, hogy mégis miért nem nem azt látom amit. Ugyanis megtörtént, hogy az bementi alapadatok táblázatában el van írva valami és ezt az elírást a hibakereső rész automatikusan felismerte és korrigálta... 
Epic, inkább megyek aludni...

-
föccer
nagyúr
válasz
Fferi50
#36206
üzenetére
Már egészen jól akalku. Csak valamiért nem a várt eredményeket adja vissza az optimalizáció... Vannak közel azonos sorok. LEgalábbis technológiailag azonosak, aminél az alkalmazott szabályrendszer alapján más eredményeknek kellene jönni.... :-/ Nem a makróval van a gond, az szépen elvégzi a feladatát.
Szóval most morci vagyok.
Óóó, és most eszembe is jutott a megoldás...
A 12 bevitt paraméterből csak 10-et nulláztam ki a ciklus elején...
Van 2 eldugottabb helyen, az kimaradt...

üdv, föccer
-
föccer
nagyúr
Estét!
Elkészítettem egy viszonylag összetett számolótáblát. Egy optimalizációs eljárásról van szó. Ez a számolótábla 1 paramétersor alapján el tud végezni egy markényi számítást, kiértékelést, összehasonlítást, értékadást. Mindent függvénykezeléssel. (fkeres, index, indirekt, hahiba, ha, és, vagy, szumhatöbb, darab, darabhatöbb, aritmetikai műveletek). A számolótábla végén megjelenik 2 cellában a számomra értékes végeredmény.
Van nekem egy paraméterlistám, ami cirka 1200 tételből áll. A kérdésem az, hogy ha egy külön munkalapra berakom a paraméterlistát, akkor rá tudom-e venni macróból a számolótáblámat, hogy soronként kiszedje a paramétereket, betolja a számolótáblába, végrehajtsa az optimalizálást, majd a végeredményt visszaszedje a munkalapra, lépjen a következő sorra etcetc?
Milyen utasítással tudom rávenni, hogy a beírt paraméterekkel újraszámoljon?
Köszi

üdv, föccer
-
föccer
nagyúr
Szép napot!
Az megoldható, hogy egy bizonyos makró akkor fusson le, ha egy bizonyos cella értéke módosul? Pl ha lenyíló választélksitából kiválasztok valamit, akkor végig fusson?
Köszi.

-
föccer
nagyúr
válasz
botond2225
#35977
üzenetére
A formázandó cellák kijelölés képlettel kell neked. Ott van a lista alja felé.
üdv, föccer
-
föccer
nagyúr
válasz
botond2225
#35975
üzenetére
Feltételes formázás, cella értéke alapján. Pont erre van kitalálva.
üdv, föccer
-
-
föccer
nagyúr
válasz
Aventador91
#35949
üzenetére
HA(ÉS(A1>0;B1>0);"Pipa";HA(VAGY(A1<2;B1<2);"";"Egyéb eset?"))
Nincs előttem táblázat, így csak fejből.
-
föccer
nagyúr
válasz
Fferi50
#35939
üzenetére
Hol hangzik, remelem boldogulok vele holnap.
Az auto szuro beallitasait milyen objektumon erem el? Ezt suma ertekadassal tudom modositani?
Illetve vektor tipust ismer a wba? Tehat definialni egy vekror adattombot valamilyen tipusbol? Monsjuk array of integer vagy valami ilyesmi.
Szepen lassan jonnek elo a regi emlekek... asszem holnap is jot fogok szorakozni...

-
föccer
nagyúr
válasz
Fferi50
#35937
üzenetére
A makrórögzítésekkel eleddig mindig csak a bajom volt, de ha van rá reális esély, hogy valahogy kiszedjem belőle az infót, akkor megéri szenvednem vele.

Egyébként este hazafelé kigondoltam egy viszonylag gyors algoritmust, ami járható út. A nagy adattáblából leszűröm a szükséges adatpárokat, majd gombnyomásra kimásolom őket egy külön lapra, csoportosítva egymás mellé, gyorsan egymás után, végig szaladok azon a 30-40 paraméteren pár perc alatt. A kérdéses lapon pedig választéklistából, indirekttel 1 kattintással tudom frissíteni a teljes diagrammot, leírom a 2 paramétert és már vissza is adja nekem a szükséges számokat. Ha másképpen nem megy, ez lesz a megoldás.
Ha szövegesen megkapom az egyenletet az jó, mert azt már szét tudom szedni függvényekkel és át tudom konvertálni számokká. Király lenne.

-
föccer
nagyúr
Jó estét!
Akkor most egy nagy falat. Aki ebben érdemben tud nekem segíteni, annak jövök egy pizza/sör/pálinka kombóval.
Makróval kellene meghatároznom egy adathalmazból kiértékelhető exponenciális trend görbe fuggvényét. Pont azt, amit a diagrammokra le lehet kérni 1 gombnyomással.
Természetesen minden kék adatpontnak megvannak a koordinátái, és amire rettenetesen szökségem lenne az a trend görbének a matematikai függvénye. Ha ez megvan, akkor megváltom a világot
![;]](//cdn.rios.hu/dl/s/v1.gif)
A lányeg, hogy elég nagy, dinamikus adatmennyiségen kellene elvégezni egy olyan elemzést, amihez az átlag görbétől való átlagos eltérést (szórást) számítok. Különböző paraméterek mellett leszűrök egy listából néhány adatpontot, amire szórást kellene számítani. (egyes adatpontok száma pártucattól 100-150 darabig terjed.
Eddig mindig úgy csináltam, hogy a leszürt adatokat betettem egy külön táblázatba és manuálisan beírtam a függvény paramétereit, amiből már az excel számolni tudott. Igen ám, de ha automatikusan akarom elvégezni az elemzést, akkor ez a "lenézem és beírom" nem működik.

Köszi szépen.

üdv, föccer
-
föccer
nagyúr
válasz
Fferi50
#35934
üzenetére
Valamikor megdicsőült gyermekkoromban foglalkoztam objektum orientált programozással, szóval nem teljesen idegen számomra ennek a lelki világa. Leginkább a programnyelv ismerete (legyen az bármennyire is egyszerű), illetve az objektumok és funkciók ismerete hiányzik.
Köszi, ezzel a szamárvezetővel már szerintem el fogok holnap boldogulni, sokat segítettél, köszönöm szépen.

üdv, föccer
-
föccer
nagyúr
Jó estét!
Mára egy utolsó kérdés, így este 11 körül.

Hogyan tudok makróba "beilleszteni" egy már általam jól ismert függvényt. Mondjuk egy összefűz, vagy darabhatöbb függvényt?
Például ha létrehozok egy új munkalapot, és ennek az új munkalapnak az egyik cellájába szeretnék egy olyan összeget írni, amit a fenti képletek valamelyikével, vagy bármilyen másik függvénnyel meg tudnék csinálni?
Függvénykezelésben viszonylag jó vagyok, így sokkal gyorsabb (és kényelmesebb) lenne ha a makró kódba be bírnám rakni, hogy egy cellába írja bele az adott függvény által kiszámított eredményt. Nyilván ez a szám, csak mint érték jelenne meg, nem működne dinamikusan, de ez nem baj, lehet csak gombnyomásra futó dolog is.
Köszi szépen.

üdv, föccer
-
föccer
nagyúr
-
föccer
nagyúr
válasz
föccer
#35922
üzenetére
No, csak kellene bele tenni hiba javítást, mert úgy egyszerűbb lesz az életem.
Le kellene elleőrízni, hogy a C2-ben megadott nevű munkafüzet létezik-e, és ha nem akkor létrehozza azt, és bemásolja a megfelelő cellákat.
Ugyan itt szökség lenne arra is, hogy az oszlop szélességeket beállítsam. Erre melyik bojektum, melyik paraméterét kell módosítanom?
(fene egye meg, hogy nem ismerem még az objektum listáját sem
)Köszi .

üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#35919
üzenetére
Listából választhatóak az elemek, illetve makróval töltöm ki a C2-t, így elvileg nem lehet hiba.
Ez lett a végleges makró, kicsit igazítottam a tartományokon, meg amin kellett. Így tökéletesen működik, köszi szépen.

Sub Masolas()
Dim sor As Long
If Sheets(Range("C2").Value).Range("B3") = "" Then
sor = 3
Else
sor = Sheets(Range("C2").Value).Range("B" & Rows.Count).End(xlUp).Row + 2
End If
Sheets("Mintavételek").Range("A2:AD5").Copy
Sheets(Range("C2").Value).Range("A" & sor).PasteSpecial xlPasteFormats
Sheets(Range("C2").Value).Range("A" & sor).PasteSpecial xlPasteValues
End Subüdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#35886
üzenetére
Szuper lesz. Annyi kigészítést szeretnék hozzá kérni, hogy hogyan kell módosítani, hogy ha a cél munkafüzet megnevezése a "C2" cellában meadott szöveg lenne?
Tehát a C2 cellába bemásolok egy "MOS" szöveget, akkor keresse meg a "MOS" nevű munkalapot és arra végzi el a beillszetés.
Köszi szépen.

üdv, föccer
-
föccer
nagyúr
Jó reggelt!
Gombnyomásra kellene kimásolnom az A18:AD21 tartományt értékben, és formázásban, képletek nélkül. Nehezíti a helyzetet, hogy AD18:AD21 cellák egyesített cellák. Ha probléma, akkor megoldom egyesítés nélkül is, de így jobb lenne.
A beillesztés egy másik munkalapon lenne. A beillesztés nehézsége, hogy egymás után több beillesztést kell elvégezni, egymás alá. Tehát az első gombnyomsára bemásol az 5. sortól kezdődően, egy sort kihagyok, majd következő gombnyomásra megismételni a beillesztést alá. Így össze tudok állítani pár gombnyomással egy teljes dokumetációt.
Köszi

FG
-
föccer
nagyúr
válasz
Fferi50
#35862
üzenetére
A keresett értéket ismerem, de nem tudom/akarom kézzel begépelni.
Tehát leszűrük egy több feltétel szerint egy adattáblát, és a szűrt táblázat első érvényes sorában szereplő, szöveg értékeket akarom kinyerni. A szám adatokkal megbírkózok az összesít függvénnyel el tudom végezni az elemzést, illetve átlagolással ki tudom nyerni az infót. A szöveggel van bajom.
Tehát a leszüt lista első sorából kellene a felső részre átpaterolni az adatokat, ahonnan egy mozdulattal tovább tudom tolni érték másolással.
Köszi

-
föccer
nagyúr
Szép napot!
Úgy néz ki, hogy céges környezetbe fogok tudni makrót futtatni. Hallelúja.

Van egy tábla, amely soronként tartalmazza a releváns információkat. Az értékelést úgy végzem, hogy autószűrővel leválogatom a szükséges sorokat, és összesít függvénnyel keresem az min, max, átlag és szórás értékeket:
=ÖSSZESÍT(5;3;Z22:Z1048576)
Ezek mellett szükségem lenne a leszürt táblázatból olyan adatokra is, amelyek szöveges adatok, amellyel nem boldogulok föggvénnyel. Hogyan tudom makróval átellenőrízni, hogy egy adott sort az autószűrő kivett-e vagy sem?
Példa:
A oszlopban szűrök 1 szöveges értékre. Adatok A22:A10000 tartományban. Elvileg a szürt adatok közül minden esetben ki van véve az üres cellák, így elég A22-től addig keresni, amíg nem talál üres cellát. Az A18-as cellába kellene kiíratni a leszürt szöveges értéket.
Ha megy függvénnyel az még jobb lenne, de ha csak makróüval megy az sem gond.
régebben volt már egy ilyen kérdésem, de nem találom

Köszi szépen a segítséget.

üdv, föccer
-
föccer
nagyúr
válasz
aclandiae
#35430
üzenetére
C-re: Az adatokat képletből generálod, vagy statikus elemként van betéve? Ha képletből generálod, akkor az egész képletet ágyazd be egy felételbe az alábbiak szerint =HA(eredetiképlet=0;"";eredetiképlet). ezzel a célcella értéke üres lesz. Kicsit kókány, biztos van szebb megoldás, de én ezt szoktam meg.
Ha statikus elemként jelenik meg, akkor feltételes formázást kell rá beállítani, hogy a a cella értéke 0, akkor legyen fehér a szöveg és aháttér is. Ekkor a cella értéke megmarad 0-nak, csak nem fog látszódni, mert fehér háttéren, fehér szöveg van. Illetve van még egy verzió ha simán leszűröd az adott oszlopait autoszűrővel és törlöd őket.D: csak úgy tudod kijelölni őket, ha a CTRL-t nyomva tartod végig kattintgatod az összes kijelölendő cellát. Ezen módszeren kívül (tudtommal) csak folytonos kijelölés működik.
E: Lásd C-re adott választ, gyakorlatilag ugyan az a felállás. Vagy feltételbe ágyazod, ha dinamikus cella értéked van (tehát képlettel meghatározott), vagy feltételes formázás. Egyébként azt, 3-5 cm között van nem tudja értelmezni akkor ha a cella értéke "3-5 cm". A cella értéke vagy szám formátum (ekkor működnek a kisebb, nagyobb, egyenlő logikai operátorok), vagy szöveg formátum, amikor csak összehasonlításra van lehetőség. a fenti példában a "3-5 cm" szövegnek minősül.
Új hozzászólás Aktív témák
- Yettel topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Apple iPhone 16 - ígéretek földje
- Kínai és egyéb olcsó órák topikja
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Formula-1
- Milyen billentyűzetet vegyek?
- Xbox Series X|S
- Elemlámpa, zseblámpa
- További aktív témák...
- Xiaomi Redmi Note 14 Pro+ / 8/256GB / Kártyafüggetlen / 12Hó Garancia
- HIBÁTLAN iPhone 13 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3687, 100% Akkumulátor
- LG 32GS94UX - 32" OLED / UHD 4K / 240Hz - 480Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
- GYÖNYÖRŰ iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS3121, 100% Akkumulátor
- BESZÁMÍTÁS! LG UltraGear 32GR93U-B 32 144Hz IPS UHD 1ms monitor garanciával hibátlan működéssel
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest










;2;0)

![;]](http://cdn.rios.hu/dl/s/v1.gif)

