Hello,

...Az első oszlop 14 soronként ugyanaz, ezekből szeretnék egy új lapon 14 oszlopot fejléccel...

Makrós megoldásod van már, de ezt képletekkel is el lehet érni, mivel az adatod struktúrált.

A lényeg, hogy az új lapodon a második sorban a Név mezőbe a másik lap 1 sorát, a 15-et, a 29-et stb. kell kiíratni.

Ez az alábbi logikával írható le: 14*{0;1;2;3..}+1
Excelben a képleted: =14*(SOR()-2)+1 (2-t kell kivonnunk mert az elsőben fejléc van már)

A születési idő a 2, 16, 30 stb. sorokban van, ahol a képlet a fentiektől csak annyiban tér el, hogy nem 1-et, hanem mindig 2-t kell adni az elsőrészhez.

Mivel a név az első oszlopban van, a születési idő a másodikban (és így tovább), ezért ha használjuk az OSZLOP függvényt akkor nem kell nekünk megadni, hogy egyik esetben 1-et, a másikban 2-t stb. kell hozzádni. Vagyis az univerzális képlet: =14*(SOR()-2)+OSZLOP()
Már csak cella hivatkozás kell, amelyre az INDIREKT függvény szolgál.
A végső képlet tehát: =INDIREKT("Masiklap!B"&14*(SOR()-2)+OSZLOP())

Ezt másold le jó sokszor, hogy biztos lefedd a másik lapon összes sorát (10000 sor esetén elgé 715 sorba).

A képlet ott ahol üres a cella 0-t fog kírni, ezt el tudod tüntetni ha vizsgálod a SZÖVEG.E függvénnyel, hogy kaptál-e adatot vissza.

üdv.

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Hello,

2007 vagy újabb Excelben a DARABHATÖBB függvény tud segíteni.

A képlet pl. 5-10 km közötti futások esetén:
=DARABHATÖBB(L:L;L:L;">=5";L:L;"<10")

5 km-ig illettve 100 felett, pedig egyszerűen:
=DARABTELI(L:L;"<5") és =DARABTELI(L:L;">=100")

Régebbi Excel verziókban a DARABHATÖBB helyett SZORZATÖSSZEG-gel fog műkődni:
=SZORZATÖSSZEG(--(L:L>=5);--(L:L<10))

üdv.

[ Szerkesztve ]

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Megnézem ha akarod, de az Excelben a szum függvények, mindig 1 tartományt összegeznek.
Vagyis 2x kell használnod ugyanazt a képletet, csak az összegző tartományokban lesz eltérés.

2007 előtt több feltételre való szűrést csak SZORZATÖSSZEG-el vagy CSE függvénnyel lehet eléni.

Nagyjából ez lenne az elképzelés: [Tartomány1 ÉS Tartomány2];kritérium;[Összeg1 ÉS Összeg2]

A fenti logikára ez a CSE képlet van:
{=SZUM(HA(Tartomány1&Tartomány2=kritérium&kritérium;VÁLASZT({1\2};Összeg1;Összeg2);))}

[ Szerkesztve ]

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Hello,

Fájl kompatibilitással nem lesz gond, azonban az újabb verziókban bevezetett függvények (pl. KÉPLETSZÖVEG vagy a szeletelő) nem fognak működni, szövegként vagy egyáltalán meg sem jelennek.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Köszi

Excel megnyitás védelmét, elfelejtett jelszó után ki lehet iktatni vagy valahogy megnézni/kinyerni az excel tartalmát?

F.K.T.

Sub Feltetel()
Dim sor As Long

For sor = 1 To 18
If Cells(sor, "A") = 1 Then Cells(sor, "B").Copy Sheets("MásikLap").Cells(sor, "I")
Next
End Sub

Ezen kéne úgy módosítani, hogy a "MásikLap" A1 cellájába másolódjon minden, nyomtatás és jöhet a következő másolás.

Megoldható ?
Előre is köszi.

+1:

Adott az alábbi 2013-as adatbázis:

Szeretném ha az idén látnám, tavaly azonos napon (pl. pénteken) a kolléga hány ügyletet bonyolított le. Az FKERES függvényre tippelek, de nem jövök rá a megoldásra.

Tehát tegyük fel:
Szabó az idén január 19.-án 26, mellette a cellában pedig látnám, hogy 2013.01.20.-án az ezzel szemben 32 ügyletet bonyolított le.

Előre is köszi.

Sziasztok, kellene egy kis segítség...

Amit Excelben elértem:
Egy adathalmazból vadászom ki függvények segítségével termékazonosító, vonalkód utolsó számjegyei vagy kötegszám alapján a szükséges adatokat, ez működik is rendesen.

Szeretném egy másik munkalapra elmenteni ezeket a kinyert adatokat.

Amit szeretnék elérni:
Adatok munkalapfül F,G,H,K,P,Q oszlopainak sorait amennyiben nem üresek (a sorokban a cellák természetesen összetartozó adatokat tartalmaznak) szeretném átmásolni a Mentett munkalap A - F oszlopainak soraiba úgy, hogy az Adatok munkalapfülről mentésre kerülő minden sor a Mentett munkalapon a következő üres sorba kerüljön (felülírást elkerülendő), és értékként legyen beillesztve (tehát a függvények ne működjenek tovább és a dátum is /Adatok P oszlopából/ változatlan maradjon. Plusz szeretném a Mentett munkalap minden mentett sorának végére (G oszlop) odabiggyeszteni az Adatok munkalapfülön a W1 cellában levő nevet, ami napról-napra változhat.

Próbáltam egyszerű makrófelvétellel, de mivel az Adatok munkalapfülön a kitöltött sorok száma szintén napról-napra változhat, így ez a megoldás amellet, hogy túl bonyolult, nem vezetett eredményre.

A legegyszerűbb megoldás asszem simán kijelölni és átmásolni a kitöltött adatokat, hogy azután a Mentett munkalapról tovább tudjak dolgozni függvényekkel, pivottal, stb., de egy stabilabb és belevalóbb megoldást megbízhatóbbnak tartok :-)

Attól tartok, hogy valódi makróírás nélkül nincs megoldása a feladatnak, azonban az én tudásom ehhez nem elég még.

Ötlet valakinek...? :-)

Sub Feltetel()
Dim sor As Long

For sor = 1 To 18
If Cells(sor, "A") = 1 Then
Cells(sor, "B").Copy Sheets("MásikLap").Range("A1")
Sheets("MásikLap").Range("A1:I30").PrintOut Copies:=1, Collate:=True
End if
Next
End Sub

A másolás területét írd át a saját területed címére.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!
Megoldható valahogy hogy egy excel cellán belül valamiféle pontozásos sorvezetés legyen? Ilyesmire gondolok mint az A1 cellában:
http://i.snag.gy/Pu1gC.jpg
Csak én ugye beírtam a pontokat, kérdés hogy ezt lehet-e valahogy automatizálni... Illetve ha igen akkor a sorköz mértéke állítható?
Köszi előre is!

[ Szerkesztve ]

>> www.FlyEagles.hu << >> http://www.photobucket.com/rataccess <<

Feltételezem, hogy mindkét lapon van címsorod.

Sub masolas()
Dim sor As Long, usorA As Long, usorM As Long, WF As WorksheetFunction

Sheets("Adatok").Select
Set WF = Application.WorksheetFunction
usorA = Range("F" & Rows.Count).End(xlUp).Row

For sor = 2 To usorA
If WF.CountA(Range("F" & sor & ":H" & sor)) = 3 And Range("K" & sor) <> "" And _
WF.CountA(Range("P" & sor & ":Q" & sor)) = 2 Then
usorM = WF.CountA(Sheets("Mentett").Columns(1)) + 1
Range("F" & sor & ":H" & sor).Copy
Sheets("Mentett").Range("A" & usorM).PasteSpecial Paste:=xlPasteValues
Range("K" & sor).Copy
Sheets("Mentett").Range("D" & usorM).PasteSpecial Paste:=xlPasteValues
Range("P" & sor & ":Q" & sor).Copy
Sheets("Mentett").Range("E" & usorM).PasteSpecial Paste:=xlPasteValues
End If
Next
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

+1 Nagyon köszönöm!

Szívesen.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sajnos elakadtam és ez megint annak köszönhető, hogy először nem fogalmaztam elég pontosan.
Szóval két dolog lenne:

Cells(sor, "B").Copy Sheets("MásikLap").Range("A1")

A C oszlop tartalma is kéne (B), azt hogy tudom meghatározni? (Próbáltam a "B"&"C" formátumot, de csak tipp volt és természetesen nem jó.

+1 Csak értéket szeretnék átmásolni. (Irányított beillesztés / érték.)

[ Szerkesztve ]

Range("B" & sor & ":C" & sor).Copy
Sheets("MásikLap").Range("A1").PasteSpecial Paste:=xlPasteValues

Nem lesz tapsikoló figura, ha kijelölöd a képletet, és Konvertálatlan gombot nyomsz.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Nagyon irigyellek a tudásodért!
+1 Köszi.

Örülök, hogy sikerült.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok! Segítségre lenne szükségem, van két xls, mind a kettő első oszlopa az ID azonosítót tartalmazza, de a két táblázatban nem egyforma sorrendben vannak az sorok /így az ID sem/ és szeretném a két xls sorait azonos ID alapján összefüzni, az azonos id-hez tartozó adatoknak egy sorba kellene kerülniük

[ Szerkesztve ]

Szia!
Köszi ez szuper.
(Ha azt akarod, hogy mondjuk az első 2 sor semmiképp ne legyen kiszínezve, mert ott fejléc van, akkor erre bővítheted: =AND(NOT(ISBLANK(D1));D1<TODAY();ROW()>2)

Azonban az eredményt látva most jöttem rá, hogy még 1 feltételnek kel teljesülnie, hogy pontosan az legyen a mit szeretnék.
A 2. feltétel (E_oszlop_cellája - F_oszlop_cellája)>0

köszi

[ Szerkesztve ]

Fény villant nálam az alagút végén és bepróbálkoztam. Sikerült.
A következő képlet már figyelembe veszi a 2. feltételt is.
=AND(NOT(ISBLANK(D1));D1<TODAY();ROW()>2;(E1-F1)>0)

Így tökéletes.

Köszi

Sziasztok!
Adott az alábbi macro:
Sub Mail_Workbook_1()
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
' This example sends the last saved version of the Activeworkbook object .
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
' Change the mail address and subject in the macro before you run it.
With OutMail
.To = "akármi@akármi.hu"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hello World!"
.Attachments.Add ActiveWorkbook.FullName
' You can add other files by uncommenting the following line.
'.Attachments.Add ("C:\test.txt")
' In place of the following statement, you can use ".Display" to
' display the mail.
.Send
End With
On Error GoTo 0

Azonban 2003-as office-ban küldés előtt ez az ablak jelenik meg és nem is küldi el, csak ha az igen-re klikkelek:

(2013-asban jól működik)

Kérdés: Van-e lehetőség arra, hogy kérdés nélkül küldje az emailt?

Közben megoldódott.
Ha valakit érdekel:
[link]

Olyat tud az Excel, hogy például egy szumhatöbb függvénynél megmondja h melyik kritérium tartomány krtitérium páros miatt mennyire szűkíti le az eredményt. Képletezés javításnál szerintem hasznos lenne, mikor van pl 8 kritérium tartomány.

Köszönöm szépen a gyors segítséget!

Elnézést, de most jutottam gép közelbe.
Az elrendezés, és egyebek tökélete lett.
Mivel nem fogalmaztam pontosan ezért akad a dologgal egy kis probléma:
A kategóriák nem pontosan az utazás hosszát adják, hanem pl az adott távom érvényes menetjegyek kategóriáját, valahogy így:
84km >> 90-es kategória, mert 80 fölött még 4 km le kell utazni
36km >> 40-es kategória, mert 35 fölött még 1 km le kell utazni
92km >> 100-as kategória, mert 90 fölött még 2 km le kell utazni

Ebből is látszik, hogy a köznapi életben elég felületesen fogalmazunk.

Köszönöm szépen.

[ Szerkesztve ]

Sziasztok!
Lenne az alábbi üzenet:
Dim Answer As String
Dim MyNote As String

'Place your text here
MyNote = "Helyezz a nyomtatóba "X" papírt!"

'Display MessageBox
Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Lapok nyomtatása")

If Answer = vbNo Then
MsgBox "Akkor majd később.", vbInformation, "Ejnye-bejnye..."
'Code for No button Press
Else
'Code for Yes button Press

Szóval az "X" papír kéne, hogy egy számra mutasson, az legyen mondjuk a munka1 A1 celllában.

Köszi előre is.

Dim Answer As String
Dim MyNote As String
Dim Papirlap As String

Papirlap=Worksheets("Munka1").Cells(1,1)


'Place your text here
MyNote = "Helyezz a nyomtatóba " & Papirlap & " papírt!"

'Display MessageBox
Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Lapok nyomtatása")

If Answer = vbNo Then
MsgBox "Akkor majd később.", vbInformation, "Ejnye-bejnye..."
'Code for No button Press
Else
'Code for Yes button Press

[ Szerkesztve ]

"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"

Nagyon köszönöm!

Hello,

... "X" ... legyen mondjuk a munka1 A1 celllában.

MyNote = "Helyezz a nyomtatóba " & Sheets("Munka1").Range("A1") & " papírt!"

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Hello,

..azonos id-hez tartozó adatoknak egy sorba kellene kerülniük

A FKERES függvény tud neked segíteni, ebben a videóban 15. perctől látható a használata.

A függvény kicsit hektikus, ezért ha gond an nyugodtan kérdezz itt a fórumon.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Köszönöm a segítséged :-)

Sajnos valamit nem csinálok megfelelően, mert
ezt az üzit kapom:

Run-time error '13':
Type mismatch

Debug után ezt emeli ki:

If WF.CountA(Range("F" & sor & ":H" & sor)) = 3 And Range("K" & sor) <> "" And _
WF.CountA(Range("P" & sor & ":Q" & sor)) = 2 Then

Valamit elrontottam?

Egy "Save" gombhoz akartam hozzárendelni a megírt makrót, de nem sikerül... :-(

Esetleg még egy kis segítség, tanács...?
Az, hogy tanuljam meg, ezek után az elsők között van a listán...

Szintén köszi!

Az And után legyen egy szóköz, majd az alsó kötjel. Ez jelzi a belső fordítónak, hogy az utasítás folytatódik a következő sorban.

Lehet, hogy a forma csak itt jelenik meg tördelve, és az egyes utasításokat nem tudja értelmezni a VBA. Ezen úgy segíthetsz, hogy a bővítményeknél bekapcsolod a két Analysis kezdetűt. Verziótól függ, hol találod meg ezeket. Ha így sem jönne össze, küldd el privátban a füzetet.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!
Segítséget szeretnék kérni egy makró megírásában. A feladatom az lenne, hogy van egy, a képen is látható adathalmazom. (a kép csak egy része, az adathalmaz 70000 sorig tart, de nem mindig van addig betöltve) Olyan makróra lenne szükségem, amibe beírom, hogy a C oszlopban keresse ki azokat a cellákat amiben az szerepel pl., hogy "AF0250M01SP1" és ha talál ilyet, akkor a mellette a D oszlopban szereplő időadatot (időformátumba másolja be a Munka1 C6-ba majd a következőt találatnál a C7-be...stb, de a végén a sok száz talált és átvitt időadatot még tegye növekvő sorrendbe is. Valamint egy ugyanilyen makró, azzal a különbséggel, hogy a keresendő feltételt a B oszlop tartalmazza. Tehát "AFS" re keres és az vele egy sorba lévő időadatot másolja illetve rendezi majd növekvő sorrendbe. Tudom hogy nagy kérés, de nagyon elakadtam.
Előre is köszönöm az iránymutatást és a segítséget!!

Üdv
Attas

"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"

Sziasztok!

Megoldható-e excelben hogy pl. vannak különböző tételek
1.Tv ár 200e
2.Hifi ár 150e
3.dvd lejátszó ár 100e

és van vagy 100 tétel, de persze a név és árak mellett több dolog is felvan tüntetve. Na most azt akarnám hogy a száz felsorolt tételből mondjuk hármat egy új oldalra akarok helyezni és ne kelljen kijelölnöm copy/paste-znem egy másik oldalra, hanem valamilyen módon megjelölöm a kivánt termékeket és azt automatikusan, másik oldra tegye egyenként egymás után.

Köszi előre is a válaszokat!

Mitől tűnnek el a celllák szélei
hogy lehet visszaállítani?

" I'm going to make him an offer he can't refuse."

Azt nem írtad, hogy ha a B oszlopból választasz kigyűjtendő adatot, hova írja. Úgy írtam meg a makrót, hogy B választáskor a Munka2, C-nél pedig a Munka1 lapra gyűjtsön ki.
Az adatokat az Adatok lap tartalmazza. Ezt kell átírnod a makróban 2 helyen a saját lapod nevére.

Sub Atmasol()
Dim WS As Worksheet, sor As Long, usor As Long, v$, WF As WorksheetFunction
Dim oszlop As Integer, sor1 As Long, f As Boolean

Application.ScreenUpdating = False

Set WF = Application.WorksheetFunction
Sheets("Adatok").Activate

v$ = Application.InputBox("B, vagy C oszlop szerint akarsz másolni?", "Oszlop választás", , , , , , 2)
If v$ = "B" Or v$ = "b" Then
Set WS = Sheets("Munka2")
oszlop = 2
v$ = Application.InputBox("Kérem a keresendő B értéket", "Adat választás", , , , , , 2)
GoTo Keres
End If

If v$ = "C" Or v$ = "c" Then
Set WS = Sheets("Munka1")
oszlop = 3
v$ = Application.InputBox("Kérem a keresendő C értéket", "Adat választás", , , , , , 2)
GoTo Keres
End If

MsgBox "B vagy C értéket írhatsz", vbOKOnly + vbExclamation
Exit Sub

Keres:
usor = WF.CountA(Columns(oszlop))
f = False
For sor = 1 To usor
If Cells(sor, oszlop) = v$ Then
If WS.Range("C6") = "" Then sor1 = 6 Else sor1 = WS.Range("C" & Rows.Count).End(xlUp).Row + 1
Cells(sor, "D").Copy WS.Cells(sor1, "C")
f = True
End If
Next

'Rendezés
WS.Activate
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Sheets("Adatok").Activate
Application.ScreenUpdating = True

If f = False Then MsgBox "Nincs a tartományban " & v$ & " érték", vbOKOnly
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Tegyél ki egy gombot, ahhoz rendeld a makrót. Kijelölöd a másolandó tartományt, a gombra klikkelve átmásolja a Másik lap A oszlopának aljára.

Sub Masol()
Dim sor As Long, WF As WorksheetFunction, WS As Worksheet

Set WF = Application.WorksheetFunction
Set WS = Sheets("Másik lap")
sor = WS.Application.WorksheetFunction.CountA(WS.Columns(1)) + 1
Selection.Copy WS.Range("A" & sor)
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!

Erre van valakinek 5lete?

[link]

Az elsőnek kapott végeredmény tetszett,

mert az nem függ az Excel től, mert és függvény mindegyikben van.

[link]

Az egész eredmény egy kategóriával feljebb/ jobbra tolnánk, akkor pont megfelelő lenne.

Nem sikerül kisütni a megoldást, mert több IGAZ értéked ad a szükségesnél.

Köszönöm az eddigi segítő szándékot.

[ Szerkesztve ]

Szia Delila!
Mint már oly sokszor, most is köszönöm a segítséged! Valamiért nem működik. Kicsit átalakítottam, mert azt szeretném, ha a makró tartalmazná a keresési feltételeket. Vagy esetleg a Munk4 A1 és B1 cellája. A makró lefut de nem visz át időadatot.

Sub Atmasol()
Dim WS As Worksheet, sor As Long, usor As Long, v$, WF As WorksheetFunction
Dim oszlop As Integer, sor1 As Long, f As Boolean

Application.ScreenUpdating = False

Set WF = Application.WorksheetFunction
Sheets("Adatok").Activate

v$ = "C"
If v$ = "B" Or v$ = "b" Then
Set WS = Sheets("Munka2")
oszlop = 2
v$ = "AF230"
GoTo Keres
End If

If v$ = "C" Or v$ = "c" Then
Set WS = Sheets("Munka1")
oszlop = 3
v$ = "AF0230M01SP1-Station2"
GoTo Keres
End If
Exit Sub

Keres:
usor = WF.CountA(Columns(oszlop))
f = False
For sor = 1 To usor
If Cells(sor, oszlop) = v$ Then
If WS.Range("C6") = "" Then sor1 = 6 Else sor1 = WS.Range("C" & Rows.Count).End(xlUp).Row + 1
Cells(sor, "D").Copy WS.Cells(sor1, "C")
f = True
End If
Next

'Rendezés
WS.Activate
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Sheets("Adatok").Activate
Application.ScreenUpdating = True
End Sub

"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"

A füzeted felépítésének ismerete nélkül nem tudom kitalálni, hol a hiba. A látnoki képességem meglehetősen fejletlen. Küldd el a fájlodat, akkor valószínűleg több re jutok.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszönöm a segedelmet!
Elküldtem a fájlt.

Üdv

Attas

"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"

Szia!
Neked ez kell :=HA(ÉS(D1<$B$2;$B$2<=E1);IGAZ;"")

Bámulatos hol tart már a tudomány!

Sziasztok!

Kérnék egy kis segítséget...

Van egy táblázatom, ott az első sort rögzítem (látható maradjon), viszont szeretném ugyan ebben a táblázatban 40. sort is rögzíteni... (ez nem sikerül..)

Előre is köszönöm.

Sziasztok,

Van két munkafüzetünk, A1 és A2, az lenne a cél, hogy A2 azonos lapján azonos cellái ugyanúgy nézzenek ki, mint A1-ben. Az érték valós idejű változása képlettel rendben van, viszont formázást és láthatóságot is szeretnénk pont ugyanúgy megjeleníteni, tehát ha A1 táblázat Munka1 lapján A1 cella háttere piros, akkor A2 táblázatban ugyanennek a cellának a háttere is legyen piros, és ha mondjuk A1 táblázatban a 20. sor el van rejtve, akkor A2 táblázatban is legyen elrejtve. A2 táblázatnak nem szabad befolyással lennie A1 táblázatra, de pontosan ugyanúgy kell kinézniük. Két külön munkafüzetben kell lenni ezeknek.

[ Szerkesztve ]

Köszi, megnéztem. Nem rossz, de nekünk valami másra van szükségünk.

Sziasztok!

Adott egy tábla, első oszlopban nevek, utána van olyan oszlop melyben 1-es számmal van jelölve egy megfelelőség.
Hogyan tudom, milyen képlettel kiíratni egymás utánra,hogy azokat a sorokat dobja ki, ahol van egyes beírva az egyik oszlopban? Ha nem egy sima szűréssel (hogy csak a nem üreseket szűrjem.)

F.K.T.

Én az adatok - rendezés és szűrésen belül a speciális szűrést használnám , ahol meg lehet adni neki hogy hova tegye a leszűrt állományt

Bámulatos hol tart már a tudomány!

Sziasztok!
Kérhetnék egy olyan makrót, ami egy munkafüzet bezárásakor kitörli a Muna3 lap, B, C, D, E, F, oszlopok 4 cellájától lefele, addig amíg van adat? (ez változó, van mikor 70000 ezer sor de van hogy ennek többszöröse. (A tartomány elnevezése nem olyan jó, mert ennyi cellát nem lehet egyben elnevezni)

Köszönöm előre is a segítséget

"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"

A makrót meg tudtam csinálni, már csak valami olyasmi kellene, hogy bezáráskor rákérdez a törlésre és lefuttatja a makróm ha kell.

"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"