-
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
-
lenkei83
tag
Azt esetleg tudja valaki, hogy logikailag ebben mi a hiba?
ActiveCell.Formula = "=sumifs(Range("F2") & "!" & "B
", Range("F2") & "!" & "V:V", Range("E2"))" -
lenkei83
tag
válasz
DeFranco
#28915
üzenetére
Jó a meglátás, jelen esetben sehogyan sem. A helyes képlet így nézne ki:
[...]INDIREKT("'" & $F2 & "'!$A$"[...]
Az első idézőjelek között egy aposztrófnak kell szerepelnie és a felkiáltójel előtt szintén, ami lefordítva így nézne ki amennyiben F2="sales":
'F2'!A2 --> 'sales'!A2A korábban taglalt képlet ilyen szempontból valóban hibás, viszont nem kellett kezelnem sem numerikus karaktereket, sem szóközöket a munkalapok neveiben, ezért nem is foglalkoztam vele.
üdv
-
lenkei83
tag
-
lenkei83
tag
válasz
DeFranco
#28901
üzenetére
Elvileg "'" nélkül is működik, ez akkor szükséges, ha szóköz van a munkalap nevében. Enélkül nem tudná értelmezni a munkalap nevében lévő szóközöket.
Példával szemléltetve:
szumhatöbb képlet "sample1" fülre hivatkozva
=SZUMHATÖBB(Sample1!B
;G:G;1)szumhatöbb képlet "sample 1" fülre hivatkozva
=SZUMHATÖBB('Sample 1'!B
;G:G;1)Mindkettőt szerkesztőlécről másoltam, csak a munkalap nevét változtattam egy szóközzel. Tehát az excel ezt dinamikusan kezeli, viszont ilyen "összerakott" képleteknél célszerű már az elején befoglalni a képletbe a későbbi problémák megelőzésének érdekében.

-
lenkei83
tag
Sziasztok!
Mostanában kicsit elborult az agyam, és van pár elvetemült ötletem, ez is egy ilyen.
Van egy összesítő táblám a sample fülön A24:O47-ben és sok másik alatta amiből összesít.
A szum fügvényt kicsit megbolondítottam (Pl: C26 cella), így tudok összegezni úgy, hogy a kritérium mindig csak a szummázandó tábla feletti részben szerepel azonos elhelyezkedésben. Ez így ok.
Amit viszont még elméletben sem tudok lemodellezni (és itt nem VBA megoldásra lennék kíváncsi hanem excel képletre) az az, hogy ugyanezt hogyan tudom megcsinálni szumhatöbbel? Hogyan tudom megadni azt, hogy a sample fül A52 cellában lévő érték tartozzon kritériumként az A55:A66-hoz?
Egyébként a sales kivonat fülön (PL.: H oszlopában) kellene ilyet varázsolni, ahol már csak ez hiányzik a képletből.
Könnyű lenne ha minden sorba beraknám a kritériumot, de én ilyen mazochista huligán vagyok. Nem szeretem az egyszerű dolgokat.

Csinált már valaki ilyet? Lehet egyáltalán?
üdv
P. -
lenkei83
tag
válasz
Delila_1
#21522
üzenetére
Megoldottam máshogy...
Minden lapon van fix cellám ami nem változik:
Sub AR_APSELECT()
Dim SheetArray() As Variant
Dim ws As Worksheet
Dim indx As Integer
For Each ws In ThisWorkbook.Sheets
If ws.Range("A6") = "Company" Then
ReDim Preserve SheetArray(indx)
SheetArray(indx) = ws.Index
indx = indx + 1
End If
Next
If indx > 0 Then
Sheets(SheetArray()).Select
End If
End Sub -
lenkei83
tag
Sziasztok!
Egy nagyon (számomra nem
) egyszerű dologra lenne szükségem VBA-ban.Van 20 munkalapom, 10 x-re végzőik és 10 y-ra.
Szeretném egyszerre kijelölni csak az x végűeket.
Tudna valaki ebben segíteni?
köszi
Új hozzászólás Aktív témák
- HiFi műszaki szemmel - sztereó hangrendszerek
- Mesterséges intelligencia topik
- MWC 2026: Szép délutánt!
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Arc Raiders
- MWC 2026: Kezünkben a minden tekintetben európai okostelefon
- Apple MacBook
- Hardcore café
- Samsung Galaxy S23 FE - nincsen sárkány
- Bundle topik
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Xbox One S 500 GB
- A Legújabb! Dobozos Új DELL XPS 13 9340/ULTRA 7-155H/32 GB Ram/1TB SSD/AI BOOST+INTEL ARC
- HIBÁTLAN iPhone 15 Pro 128GB Black Titanium-1 ÉV GARANCIA - Kártyafüggetlen, MS4653
- AKCIÓ! szinte RAM áron adom! MSI Vector GP78 HX13V i7-13700HX RTX4080 32GB DDR5 1TB QHD240 1 év gari
- Xiaomi Redmi 9T 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


", Range("F2") & "!" & "V:V", Range("E2"))"
) egyszerű dologra lenne szükségem VBA-ban.
Fferi50