- iPhone topik
- Xiaomi 12 - az izmos 12
- Mobil flották
- OnePlus 7 - magabiztos folytatás
- Telekom mobilszolgáltatások
- Realme GT 5G - versenyképes
- Magyarországról is elérhető a Xiaomi Pay
- Milyen okostelefont vegyek?
- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- Android alkalmazások - szoftver kibeszélő topik
Hirdetés
-
Xbox Game Pass [2024] - A májusi lista
gp Az elkövetkező időszakban többek között megkapjuk a Kona II Brume című játékot.
-
Lenovo Essential Wireless Combo
lo Lehet-e egy billentyűzet karcsú, elegáns és különleges? A Lenovo bebizonyította, hogy igen, de bosszantó is :)
-
Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
ph A cég megoldása centralizált vezérelhetőséggel, masszív radiátorral és robusztus ventilátorokkal igyekszik vásárlásra csábítani.
-
Mobilarena
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
-
gdodi
csendes tag
Sziasztok!
Hogy lehet sorokat áthelyezni makróval egy munkalapról a másikra, ha a sorok száma egy változótól függ? Pl.:
Sub Makró1()
' Makró1 Makró
Rows("1:4").Select
Selection.Copy
Sheets("Munka2").Select
ActiveSheet.Paste
Sheets("Munka1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
Itt a 4 sor helyett egy változót (esetleg 2-t is, sortól sorig) szeretnék használni, de nem tudom megoldani. Az áthelyezést is csak úgy tudnám megoldani, hogy másolok, majd törlöm az eredetit. Nyilván van sokkal egyszerűbb megoldás.
Előre is köszönöm a segítséget! -
gdodi
csendes tag
válasz m.zmrzlina #25201 üzenetére
Köszönöm a segítséget, kipróbálom!
Egy hivatkozott cellából veszek egy számlált változót. -
gdodi
csendes tag
válasz m.zmrzlina #25201 üzenetére
Tökéletes!
Erre volt szükségem, ez már nekem is kezelhető, be tudtam illeszteni oda, ahol szükségem volt rá.
Nagyon köszönöm!!! -
gdodi
csendes tag
válasz m.zmrzlina #25204 üzenetére
Még kidolgozás alatt van az egész elképzelés, több szempontból kell adatokat kigyűjteni több táblázatba. Erre szükségem is van, és szeretném megtanulni is ezt a programozást. Jelenleg ennyi az egész:
Sub Makró00()
'
' Makró00 Makró
''
Rows("1:1").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
ActiveSheet.PasteSheets("tmp").Select
Dim eleje As Long
Dim vege As Long
eleje = 2
vege = Cells(1, 9) + 1
Worksheets("tmp").Rows(eleje & ":" & vege).Copy Destination:=Worksheets("Munka2").Rows(eleje & ":" & vege)
Worksheets("tmp").Rows(eleje & ":" & vege).Delete Shift:=xlUp' A munkalap formázása és átnevezése
Sheets("Munka2").Select
Columns("A").Select
Columns("A").EntireColumn.AutoFit
Columns("G:L").Select
Selection.Delete Shift:=xlToLeft
Sheets("Munka2").Select
Sheets("Munka2").Name = "00"
Range("A1").SelectEnd Sub
Ezt szeretném még tovább bővíteni. Remélem menni fog. Ha mégsem menne, megint segítségért folyamodok.
-
gdodi
csendes tag
Köszönöm, értem.
Én még csak ott tartok, hogy amit rögzítek, azt próbálom értelmezni. Viszont így sikerült rögzíteni, azért lett ilyen. Rögzíteni viszont csak azt tudtam, hogy kijelölök sorokat, majd másolom, vagy törlöm, itt nekem most az volt a lényeg, hogy nem tudtam megoldani, hogy egy külső változótól függően módosuljon a sorok mennyisége. Ezt formailag meg lehet adni valahogy? Arra gondolok, hogy van egy "s" számú sorom, ami időnként változik, most mindegy miért. Azt szeretném elérni, hogy mondjuk a 10. sortól egy s számú sort másoljak, vagy töröljek, azt meg lehet adni valami olyasmi formátumban, hogy Rows(10:s), vagy ilyen nincs? Persze próbálkoztam, de csak hibaüzenetet kaptam.
Azt is szeretném megkérdezni, hogy van valamilyen letölthető anyag, ami segítene a tanulásban?
Köszi! -
gdodi
csendes tag
Sziasztok!
Kérlek segítsetek megoldani az alábbi problémámat!
Egy munkalap felső sorában nevek vannak, a "B1" cellától kezdve, kb.20, de ez a mennyiség változik. Ezek egy "ml" változóval lettek beíratva. Ugyanennyi munkalap készült ezekre a nevekre átnevezve, és fel lett töltve adatokkal. A kiindulási munkalapon az "A2" cellától lefelé van egy csomó adat, nevezzük cikkszámnak. Ezek mellé szeretnék az összes többi lapról a nevének megfelelő oszlopba (makróval) a szumhatöbb függvénnyel adatokat átvinni, az alábbi szerint:
Range("B2").Select
ActiveCell.FormulaR1C1 = "=SUMIFS('ml'!C[1],'ml'!C[-2],RC[-8],'ml'!C,1)"
Nem tudom, hogy lehet megoldani, hogy az"ml" helyett a munkalapok neve szerepeljen.
(A többi része talán menni fog.)
Előre is kösznöm! -
gdodi
csendes tag
Sziasztok!
Az a problémám, hogy egy csomó lapon kell megcsinálni ugyanazt a kimutatást. Az első 13 oszlopból (A-M) kell ugyanarra a lapra a kimutatás, a 14. oszlop 1. cellájába (N1). A kimutatás megcsinálása nem probléma, de csak laponként tudom elvégezni. Meg lehet oldani ezt valahogy egyszerűbben? Esetleg egy a vizsgált lapról indítható makróval? A lapfülek neve változik, előre nem definiálható.
Előre is köszönöm, ha valaki segít!
-
gdodi
csendes tag
válasz Delila_1 #27923 üzenetére
Kedves Delila!
Sajnos csak most jutottam a fórumhoz, ezért a késedelmes válasz.
A lapok száma 3-tól 23-ig változhat, egymás után következnek, nevük előre nem ismert. A sorok száma változó.
Arra gondoltam, hogy a makrót valahogy úgy lenne jó megoldani, hogy egy olyan lapról billentyűkóddal indítható legyen, ahol kell a kimutatás. (Ha ezt akár 23-szor meg kell csinálni, az is sokkal gyorsabb, mint laponként a kimutatást megcsinálni.)
A kimutatás makrója nálam így néz ki:Sub kimutatás()
'
' kimutatás Makró
''
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"24!R1C11048576C13", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="24!R1C14", TableName:="Kimutatás1", DefaultVersion:= _
xlPivotTableVersion14
Sheets("24").Select
Cells(1, 14).Select
With ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyag")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyag rövid szövege")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Kimutatás1").PivotFields("Sarzs")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Kimutatás1").AddDataField ActiveSheet.PivotTables( _
"Kimutatás1").PivotFields(" Mennyiség"), "Mennyiség / Mennyiség" _
, xlCount
With ActiveSheet.PivotTables("Kimutatás1").PivotFields( _
"Mennyiség / Mennyiség")
.Caption = "Összeg / Mennyiség"
.Function = xlSum
End With
Columns("A:M").Select
Selection.EntireColumn.Hidden = True
Range("N4").Select
ActiveSheet.PivotTables("Kimutatás1").PivotFields("Rendelés").Subtotals = Array _
(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("Berendezés").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("Rögz.indít").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyagbizl.").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("Könyv.dát.").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("MNE").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyag").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyag rövid szövege"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("Sarzs").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields(" Mennyiség"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("BME").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields(" SP-összeg"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Kimutatás1").PivotFields("Pnem").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("Kimutatás1").ColumnGrand = False
ActiveSheet.PivotTables("Kimutatás1").RowAxisLayout xlTabularRow
Columns("N:T").Select
Columns("N:T").EntireColumn.AutoFit
End SubHA van "rám" szánható időd, akkor kérlek segíts. Sajnos már hétfőig valószínűleg nem jutok gép közelbe, de amint lesz rá lehetőségem rögtön keresni fogom reménykedve a válaszodat!
-
gdodi
csendes tag
Sziasztok!
Egy táblázatban van egy csomó (nem ismétlődő) dátum. Egy konkrét dátum cellájának helyét hogy tudom megtalálni? (Az is nagy segítség lenne, ha csak egy sorban az oszlopot megtalálnám!)
Köszönöm!
-
gdodi
csendes tag
válasz Delila_1 #30833 üzenetére
Köszönöm!
Ez nagy segítség, de ha lehet kérdeznék még hozzá. Ezt egy makróban szeretném felhasználni, ahol a keresendő dátumot megkérdezem a felhasználótól, (InputBox) aki pl.: 2016.03.03 formátumban beírja. Ezt fel tudom használni közvetlenül, vagy be kell írnom valahova egy cellába, hogy ezzel a függvény kombinációval használhassam?
Ha nem érthető, hogy mit is kérdezek, akkor ne fáradj vele! Elég bénán magyarázok.
Az előző válaszoddal már mindenképpen meg tudom oldani a problémámat! -
gdodi
csendes tag
válasz Delila_1 #30838 üzenetére
Kedves Delila!
Sajnos nem láttam amit küldtél, mert régóta nem voltam net közelben. Most pedig már nem hoz fel semmit a link. Megtennéd, hogy ismét elküldöd valami módon? Sajnos túl értékeltem magamat, nem tudtam megoldani a problémámat. Makróból az InputBox függvénnyel bekérek egy dátumot, amit meg akarok keresni. A kapott dátumot a formátuma miatt nem tudom megtalálni, és akármit próbálok vele, sehogy sem sikerül. Mi lehet az oka?
Köszönet a segítségért!
-
gdodi
csendes tag
Szervusztok!
A következő feladatot szeretném megoldani, makróval. Van egy kiinduló lapfülem, tele adattal. Az „A” oszlopban számok vannak (kb. 30-35), melyek rendszertelenül ismétlődnek. 2-3 ezer sornyi. Ezekhez tartozik 10-15 oszlopnyi adat. Szeretnék minden számhoz egy fület létrehozni, melyekre az eredeti fülön levő adatokból az összes ezen számhoz tartozó tétel (sor) szerepel, majd ezekből kimutatást készítenék. A problémám ott van, hogy a kimutatás készítéséhez nem tudom hogyan lehet megadni az aktuális fül nevét, mert azt előre nem ismerem.
Pl.: „ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Munka2!R1C1123C9", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Munka2!R1C20", TableName:="Kimutatás1", DefaultVersion _
:=xlPivotTableVersion14”
Itt a Munka 2! helyett meg lehet adni valahogyan az aktív fül nevét?
Előre is köszönöm a segítséget! -
gdodi
csendes tag
válasz BigBadPlaYeR #31106 üzenetére
Próbáltam, nem szereti. Lehet, hogy csak szintaktikailag nem fogadja el, de nem jöttem rá, hogy lenne jó.
-
gdodi
csendes tag
válasz BigBadPlaYeR #31108 üzenetére
Azzal kezdtem.