Szia Imre,

Köszönöm szépen a gyors választ!
Megpróbálok az ötleteid mentén elindulni és megnézni, hogy mi történik az egyes ágakon.

Péter

Szia Imre,

Igen, elég sokat nézem a külföldi fórumokat ha valamire szüskségem van, de néha előfordul, hogy nem találom meg, amire szükségem van.
Nagyon köszönöm a segítséget, sikerült közben megvalósítani mind az álatlad javasolt másolással, mind tömb segítségével. Illetve egyetlen utolsó kérdés.
A tömb tartalmának új sheet-re töténő, dinamikus range-be beilesztése során azt a hibát dobja, hogy
„Application-defined or Object-defined error”

With ActiveSheet
.Range(.Cells(l, j), .Cells(UBound(myArray), 1)) = WorksheetFunction.Transpose(myArray)
End With

Erre is rákerestem, és egy fóromun pont ezt a megvalósítást javasolták.
Lenne ötleted, hogy mi a hiba?

Péter

Valamiért a csatolmány lemaradt.

Igen, észrevettem, hogy a deklarációk bővültek.
Ugyanakkor nagyon köszönöm a mögöttes kiegészítést és magyarázatot, nagyon hasznos volt.
Az általad javasolt beállítást meg is tettem a Tools | Option | Editor fülön.

Köszönöm,
Péter

Szia Imre,

Köszönöm szépen, hogy kipróbáltad.
Nálam is működött otthon.
Megpróbáltam itt egy másik gépen, de sajnos ott sem működik (érdekes módon itt nem kapok semmilyen hibaüzenetet, viszont az Excel-ben a visszatöltés után csak egy üres sheet van).
Remélhetőleg az O365-re történő átállás megoldja a problémát.

Péter

Igen, én is arra gondoltam, hogy az otthoni gépen megnézem, hogy működik-e.
És persze én is bízom Imrében:)

Szia,

Igen, Windows 10 és kb. egy hete volt frissítve.

Szia Kati,

Nagyon szépen köszönöm a gyors segítséget!
Az ilyen kérdéseknél az „elegancia” számomra messze nem preferencia, tehát mindegy, hogy milyen úton jutunk el a kívánt eredményhez.
Még egyszer ezer köszönet,

Péter

Szia Imre!

Köszönöm a gyors választ.
Valamiért tallózás után nem tudom feltölteni a fájlt, de egy rövid mintát itt is tudok neked adni.
Úgy gondolom ez az egyszerű példa is teljesen alkalmas a feladat szemléltetésére.

Oszlop1 (Kódok) Oszlop2
INT1 Igen
INT1 Nem
INT2 Igen
INT2 Nem
INT2 Igen
INT3 Igen
INT3 Nem
INT3 Igen

A képletnek azt kellene csinálni, hogy az első oszlopban kiszűri azokat az ‘INT’ szövegrészt tartalmazó cellákat, amelyekhez a második oszlopban ‘Igen’ válasz van rendelve, végül kiszűri az ismétlődő értékeket is. A fenti példát figyelembe véve a képlet eredményének 3-nak kell lenni.
(A jelen példában minden cella tartalmazza az ‘INT’ szövegrészt, viszont a táblában többfajta – ugyanakkor jól beazonosítható – kód van, ezért van szükség a szövegrész keresésére).

Sziasztok!

Először is köszönöm szépen a gyors válaszokat.
Elnézést, tényleg lemaradt a csatolmány, de látva Delila logikáját, úgy gondolom, hogy sokkal célszerűbb ezt a megközelítést követni, mint az enyémet.
Imre kérdésére válaszolva az összerendelés a mappákban szereplő fájlok ABC sorrendje alapján történik. Megjegyzendő, hogy a két mappában az összerendelendő fájlok nevei kizárólag egy karakterben térnek el, tehát pl. ha az első mappában az első fájl neve ‘Alma’, akkor ennek a párja a második mappában ‘Alma2’.

Időközben teszteltem Delila rutinját, természetesen a vonatkozó elérési útvonalakkal.
A rutin a következő sornál fut hibára:
Workbooks.Open „F:\első mappa\” & tomb(1, sorszam)
A hibakód Run-time error ‘1004’, a hiba oka pedig, hogy nem találja a mappát, mert azt áthelyezték, átnevezték, vagy törölték.

Péter