- Android alkalmazások - szoftver kibeszélő topik
- Milliókkal olcsóbb a Model Y Standard Magyarországon
- Okosóra és okoskiegészítő topik
- iPhone topik
- Samsung Galaxy A55 - új év, régi stratégia
- Apple iPhone 17 Pro Max – fennsík
- Poco F7 – bajnokesélyes
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Google Pixel topik
- Fotók, videók mobillal
-
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
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!
Új hozzászólás Aktív témák
- One otthoni szolgáltatások (TV, internet, telefon)
- Android alkalmazások - szoftver kibeszélő topik
- Milliókkal olcsóbb a Model Y Standard Magyarországon
- Így tör borsot a Samsung az Apple Vision Pro orra alá
- Okosóra és okoskiegészítő topik
- sziku69: Szólánc.
- Milyen autót vegyek?
- Gran Turismo
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Intel Core i5 4590S 4 mag 4 szál processzor garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone i5 14400F 16/32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- GYÁRI TÖLTŐK DELL LENOVO HP FUJITSU TOSHIBA Macbook---------- Budapest,/MPL/Foxpost
- ÚJ Microsoft Surface Laptop 7 13.8" 2K - 120Hz Érintő - Snapdragon X Elite - 16GB - 512GB-2 év gari
- Bomba ár! Lenovo ThinkPad Yoga 260 - i5-G6 I 8GB I 192SSD I 12,5" FHD Touch I W10 I Cam I Gari!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest