Kifutottam a szerkesztésből - bonyolultabb (segédoszlopos) megoldás:

1) Sárga terület TEXT formtumra konvertálása, utána szabadon tölthető (sajnos a lenti formula nem kezeli jól a szám és dátum formátumoú adatokat). B1 kötelezően üres marad.

2) Zöld első mezőbe (B2) a következő Array formula kell (CTRL+ENTER - rel kell bevinni):
=IFERROR(INDEX($A$2:$A$11,MATCH(0,COUNTIF($A$2:$A$11,"<"&$A$2:$A$11)-SUM(COUNTIF($B$1:B1,$A$2:$A$11)),0)),"")

3) Első zöld mezőt lehúzni a sárga aljáig

4) A következő Named Range felvétele (itt pl. Validation névvel):

=OFFSET(Sheet1!$B$2,0,0,COUNTIF(Sheet1!$B$2:$B$11,">'"),1)

5) Validáláshoz a fenti Named Range behivatkozása:

[ Szerkesztve ]

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Köszönöm, pont erre van szükségem.

Tesztelgetem, de nekem nem gyűjti össze az adatokat. Ugyanazt írtam be, mint Te csak magyar az Excel és átírtam a függvényeket meg a vesszőket különben nemtudta értelmezni.

[link]

Megvan CTRL+SHIFT+ENTER-rel kell bevinni. Tökéletesen működik, köszönöm.

+1 problémám lett a =HIPERHIVATKOZÁS()-al. Ha speciális karakter van benne, azt ASCII kóddá alakítja.
PL ha a fájlnévbe van egy nemzeti karakter, vagy szököz, máris "Hib%C3%A1s+linket_gener%C3%A1l" Így meg már nem találja meg a windows.
Rá lehet venni arra, hogy ne kódolja a linket?

[ Szerkesztve ]

Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews

Jó reggelt! Arra keresek valamilyen gyors megoldást, hogy egy munkafüzetben van 20 lap és az ezeken lévő adatokat kellene egy lapra rátenni. Nem szeretném kézzel másolgatni, de egyelőre nem jut eszembe semmi.

Amennyi időt eltöltöttél a lenti posttal, és vártál a válaszra 2 percet, már készen lennél. Nem több, mint 3 perc 20 lapot egybe másolni, ha bill kombókkal tolod és nem használsz egeret.

Építésztechnikus. Építőmérnök.

ilyen gyorsan

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

Közben mást csinálok, csak majd azt is meg kell oldanom valamikor, így nem töltöttem időt idle-ben.

Tökéletes lett, köszönöm!

Sziasztok!

Van arra vanami megoldás (vagy külső program), amivel egy, Excelben lévő képet ki tudok cserélni egy másikra? A probléma annyi, hogy pár 100 fájlban kéne ezt megtennem, és egyesével nem olyan jó móka a CTRL+C CTRL+V Mindegyik dokumentumban ugyanaz a kép szerepel, és ugyanarra is cserélném.

Köszönöm a segítséget

P.S.: Delila_1: nagyon jól vizsgázott a héten a táblázat

"Amúgy a lekvár leszedésre jobb módszer is van: le kell nyalni... elképzelem, ahogy egy nagy PH!-s procitesztben fLeSsék nyalogatják a procikat" by Male (Hűtőpaszta vs. lekvár 2. rész)

Ha minden fájlban ugyanott van a kép és ugyanaz, akkor valószínűleg ki lehet cserélni makróval.

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Az egyes fájlokban több lapon is szerepel a lecserélendő kép?

Több kép is van 1-1 lapon? Ez azért fontos, mert nem tartom valószínűnek, hogy a több 100 fájlban azonos megnevezése van a beszúrt képnek – valószínűleg régi logónak –, így esetleg nem lehet fixen hivatkozni rá.

ActiveSheet.DrawingObjects.Delete

A fenti kóddal az aktív lapon lévő összes képet 1 lépésben le lehet törölni. Ha csak 1 db logó van a lapon, ez alkalmazható.

Egy ciklussal meg kell nyitni a fájlokat. Ha több lapon is szerepel a cserélendő kép, egy másik ciklussal a lapokat kell sorba venni, törölni a régi képet, majd meghatározott helyre beszúrni az újat, beállítani a méretét, végül menteni és bezárni a behívott fájlt.

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!
Adott táblázatban folyamatosan bővülnek majd az adatok kb.250 sor-ig.
Ebből kellene a B oszlopból kijelölni egy mezőt/dátumot és e sortól lefelé +16 sorig összeadni a C oszlopban szereplő óó:pp adatokat. Mint a képletből is látszik ezt kell osztanom 17-el.

Az alábbi kódban nem tudom:
- megállítani a futást amíg kijelölök egy cellát a B oszlopban
- meghatározni a kCell(row, col), vCell(row, col) értékeket amit használnák a SUM-ban
- a SUM sor így megfelel?

Sub Atlag4x()
' B - oszlop - dátum
' C, D - oszlop - óó:pp
' kDatum - kezdo dátum, B oszlop
' vDatum - végzo dátum, B oszlop
' kCell - kezdo Cella, kDatum sora C oszlop
' vCell - végzo Cella, vDatum sora D oszlop

Dim kDatum, vDatum, kCell, vCell, adat
' B oszlop
?? B oszlopban cella / dátum kiválasztása

kDatum = ActiveCell.Value
ActiveCell.Offset(RowOffset:=0, ColumnOffset:=1).Activate
' C oszlop
kCell = Cells(getRow, getCol).Address

ActiveCell.Offset(RowOffset:=16, ColumnOffset:=-1).Activate
' B oszlop + 16 sor
vDatum = ActiveCell.Value

If vDatum.Isblank Then
MsgBox "HIBA"
Else
ActiveCell.Offset(RowOffset:=0, ColumnOffset:=2).Activate
' D oszlop a +16. sorban
eCell = Cells(getRow, getCol).Address
adat = ((Sum(kCell; eCell)) / 17)
Range("F1").Select
ActiveCell = kDatum
Range("F2").Select
ActiveCell = adat
End If

End Sub

Egyáltalán helyes-e a megközelítés amit összehoztam?

köszi

[ Szerkesztve ]

Kifutottam a szerkesztési időből.

Ha a vDatum cellában még nincs adat akkor ne számoljon semmit.
If vDatum.Isblank Then

A becsúszott smiley miatt nem tudom, melyik oszlop adatait kell összegezned, és hova akarod az eredményt írni.
A makró a B oszlop adatait összegzi, és osztja 17-tel, az eredményt a C1-be írja.

Sub ido()
Dim sorK As Integer, sorV As Integer
Dim osszeg As Double

sorK = Selection.Row
sorV = sorK + 16
If Cells(sorV, "B") = "" Then Exit Sub

osszeg = Application.WorksheetFunction.Sum(Range("B" & sorK & ":B" & sorV)) / 17
Range("C1") = osszeg
End Sub

Egyszerűbben az osszeg meghatározása:

osszeg = Application.WorksheetFunction.Average(Range("B" & sorK & ":B" & sorV))

[ Szerkesztve ]

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. Hogy tudnám a D oszlop értékeit egymás mellé vagy akár egy cellába helyezni F oszlop értéke alapján. Tehát F oszlop értéke a közös nevező és szeretném hogy egy sorba/cellába kerüljenek az értékek. Transzponálással meg tudom csinálni de több ezer tételről van szó. Köszi!

Másolod a D oszlopot (ameddig adataid vannak benne), G1-be állsz, jobb klikk, Irányított beillesztés, Transzponálva.

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

Szia

Alakítsd táblává a tartományt, és ezt írd D2-be (ha a C oszlopodat "Valami"-nek nevezed el):

=HA([@Valami]<>C1;SZÖVEGÖSSZEFŰZÉS(";";0;A2:INDIREKT("A"&SZÖVEG(KERES(9.99999999999999E+307;1/([Valami]=[@Valami]);SOR([Valami]));"0")));"")

ps: a SZÖVEGÖSSZEFŰZÉS függvény csak Excel 2016-tól műxik. Delimiternek (listaelválasztónak) azt adsz meg amit akarsz (én ";"-t adtam meg)

[ Szerkesztve ]

Bocsi a becsúszott smiley miatt de azért köszönöm.

A C:D oszlop adatait kellene összeadni.

Az

osszeg = Application.WorksheetFunction.Average(Range("B" & sorK & ":B" & sorV))

sorban kell átírni a két "B"

osszeg = Application.WorksheetFunction.Average(Range("C" & sorK & ":D" & sorV))

A változó neve atlag lehet az osszeg helyett.

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

Bocsi a becsúszott smiley miatt de azért köszönöm.

A C:D oszlop adatait kellene összeadni és osztani 17-el.
Az osszeg sorban átírom B-B => C-D, eddig ok, kijavítom.
Mivel a B oszlopban van a mutató így megvan a kezdő dátum is kDatum amit majd kiíratok F1-be.

Az egyszerűbb megoldás Average nem jó, nem az átlag kell mint eredmény.

A logikádat követve úgy látom, hogy előbb kiválasztod a kezdő mezőt a B oszlopban és ezután indítod a makrót. Így sem rossz de én úgy szeretném, hogy elindítom a makrót és addig várakozik amíg egérrel kiválasztok egy dátumot/mezőt, klikk az egérrel, és csak ezután folytatja a futást.

köszi

[ Szerkesztve ]

gyorsabb vagy a válasszal mint ahogy én megfogalmazom a kérdést

Szóval a B oszlopban választasz ki egy cellát. Ez a kezdősor. A végző sor a kezdő + 16. Összegezni a Ckezdő:Dvégző tartományt kell, és ennek az összegnek a 17-ed része az eredmény.

A makró bekéri a kezdősort úgy, hogy rákattintasz a cellára, majd a G1-be beírja az eredményt.
Ha a Bvégvő cella üres, hibát jelez.

Sub mm()
Dim sorK, sorV As Integer, osszeg As Double

Set sorK = Application.InputBox(prompt:="Kérem a kezdő sort", Type:=8)
sorK = sorK.Row
sorV = sorK + 16
If Cells(sorV, "B") <> "" Then
osszeg = Application.WorksheetFunction.Sum(Range("C" & sorK & ":D" & sorV)) / 17
Range("G1") = osszeg
Else: MsgBox "Hiba"
End If
End Sub

[ Szerkesztve ]

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

és sztanozs: köszönöm

Delila hozzászólása volt a kulcs, az alapján elkezdtem keresgélni, és egy külföldi fórumon találtam egy hasznos makrót, pont ilyen esetekre. Sikerült szépen lecserélnem az összes képet (és jól gondoltad, régi logót újra ). És igen, azonos helyen voltak a logók. Ha valakinek még szüksége lenne rá, akkor közzé is teszem, lefordítva a használat korlátjait, és a makróban a megjegyzéseket, szövegdobozokat. Egy új fájlba másoltam bele a makrót, amit utána elmentettem, aztán hajrá

A makró működéséhez azért volt pár feltétel, ami szerencsére nálam adott volt:
- ha a munkalap védett, akkor átugorja, és nem cseréli le a képet
- ha a fájl csak egyetlen képet tartalmaz, akkor
- a régi képet lecseréli az újra, ugyanabban a pozícióban, ahol az elődje volt
- az új képen nem végez semmilyen átméretezést, szóval megfelelő méretűt célszerű választani
- a fálj ugyanazon néven, de másik (LOGONEW) mappába kerül elmentésre; ezt a mappát létre kell hozni abban a könyvtárban, ahol a cserélendő fájlok vannak
- és nyilván a művelet előtt nem árt egy biztonsági mentés

És a makró:

Sub ReBrand()

Dim PCount As Long, I As Long, Candid As Long, myPath As String, myFFile As String
Dim LogSh As Worksheet, LogoPos As String, newLogo As String, NextLogLine As Long
Dim mySk As Long, myRep As Long, myTim As Single
'
newLogo = "D:\logo2.jpg" '<<< Az új logo elérési útja és neve
'
'Figyelmeztető üzenet:
rispo = MsgBox("Add meg a könyvtárat, amelyek fáljaiban ki kell cserélni a logo-t" & vbCrLf _
& "A könyvtárnak tartalmaznia kell egy ÜRES mappát, aminek a neve ""LOGONEW""" _
& vbCrLf & "Nyomd meg az OK-t a folytatáshoz, vagy a Cancelt a folyamat megszakításához.", vbOKCancel)
If rispo <> vbOK Then Exit Sub

'A fájlok elérési útjának megkapása:
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Nem történt kiválasztás, a folyamat megszakítva")
Exit Sub
End If
myPath = .SelectedItems.Item(1)
End With
'
'Indítás:
myTim = Timer
Set LogSh = ThisWorkbook.Sheets(1) 'A tevékenységek naplózása a munkalapon
'
myFFile = Dir(myPath & "\*.xls*") 'megkapjuk az első fájl nevét
Application.EnableEvents = False
Do
PCount = 0
If myFFile = "" Then Exit Do 'Lépjen ki, ha nincs fájl
Workbooks.Open myPath & "\" & myFFile
'A fájl nevének naplózása:
NextLogLine = LogSh.Cells(Rows.Count, 1).End(xlUp).Row + 1
LogSh.Cells(NextLogLine, 1) = myFFile
'Számolja meg, hány kép van:
For I = 1 To Worksheets.Count
LogSh.Cells(NextLogLine, 2).Offset(0, I) = Sheets(I).Name
If Sheets(I).Pictures.Count > 0 Then
PCount = PCount + Sheets(I).Pictures.Count
If Sheets(I).ProtectContents Then PCount = 999
'Naplózási infó a munkalapokon:
LogSh.Cells(NextLogLine, 2).Offset(0, I).Value = "*--" & PCount & "--*--" & Sheets(I).Name
Candid = I
End If
If PCount > 1 Then '>1, nem kell szkennelni több munkalapot
Exit For
End If
Next I
If PCount = 1 Then 'Fájl kijelölve a kicserélésre
Worksheets(Candid).Select
If UCase(Left(ActiveSheet.Pictures(1).Name, 7)) = "PICTURE" Then
'ok, kicserélés:
ActiveSheet.Pictures(1).Select
LogoPos = Selection.TopLeftCell.Address
Selection.Delete
Range(LogoPos).Select
ActiveSheet.Pictures.Insert(newLogo).Select
Range("A1").Select
'Napló eredmény:
LogSh.Cells(NextLogLine, 2).Value = ">>>>>: " & LogoPos
myRep = myRep + 1
'Mentés az új mappába:
ActiveWorkbook.SaveAs (myPath & "\LOGONEW\" & myFFile)
Else
'Napló eredmény:
LogSh.Cells(NextLogLine, 2).Value = "SKIPPED--" & PCount
mySk = mySk + 1
End If
Else
'Napló eredmény:
LogSh.Cells(NextLogLine, 2).Value = "SKIPPED--" & PCount
mySk = mySk + 1
End If
Workbooks(myFFile).Close savechanges:=False 'Bezárás

myFFile = Dir 'Következő fájl
Loop
Application.EnableEvents = True
'
'Végső üzenet:
MsgBox ("Szükséges idő (secs): " & Format(Timer - myTim, "0.00") & vbCrLf _
& "Lecserélve: " & myRep & vbCrLf & "Átugorva: " & mySk)
End Sub

Az eredeti forrás: [link]

"Amúgy a lekvár leszedésre jobb módszer is van: le kell nyalni... elképzelem, ahogy egy nagy PH!-s procitesztben fLeSsék nyalogatják a procikat" by Male (Hűtőpaszta vs. lekvár 2. rész)

Túl hosszú ahhoz, hogy végignézzem.
A kérdés felvetésekor összedobtam egy makrót, ez célratörőbbnek tűnik.

A makróban a B2 cella bal felső széléhez illesztem az új logót. Csillagokkal jeleztem, melyik sorokban kell a kódot a saját adataidhoz igazítani.

Sub Kepcsere()
Dim utvonal As String, FN, lap As Integer

Application.DisplayAlerts = False
utvonal = "C:\Tmp\" 'Excel fájlok útvonala *********
ChDir utvonal
FN = Dir(utvonal & "*.xls*")

Do While FN <> ""
Workbooks.Open utvonal & FN

For lap = 1 To Worksheets.Count
Sheets(lap).Select

ActiveSheet.DrawingObjects.Delete
Range("B2").Select 'Melyik cellához igazítsa a logót ***********
ActiveSheet.Pictures.Insert("D:\Logó_útvonala\Logo.jpg").Select 'Ezt is írd át *********
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 141.75 'Logó magassága '*******
Selection.ShapeRange.Width = 119.25 'Logó szélessége '*******
Next

ActiveWindow.Save
ActiveWindow.Close
FN = Dir()
Loop

Application.DisplayAlerts = True
End Sub

[ Szerkesztve ]

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

Hello!

Egy eleg furcsa problemara szeretnek megoldast keriteni es gondoltam Excelben meg lehet oldani. Remelem sikerul elmagyarazzam erthetoen.

Szoval van nekunk a cegnel ahol dolgozom egy havi listank amit egy romania programocskaba olvasunk be txtbol. kb havi 300-400 elem van benne, minden elemre eddig 6 sor vonatkozott.

kb igy nez ki a txt, nekem csak az ertek sor fontos most.

sor1
sor2
sor3
sor4
sor5
<Ertek>321</Ertek>
sor7
sor8
sor9
sor10
sor11
<Ertek>1234</Ertek>
...

Ehez utolagosan most bevezettek meg 1 sort es visszamenoleg 2015 re hetvegeig be kellene irdogaljak, kezzel az ertek 9,2% at egy uj sorba.

valahogy igy nezne ki

sor1
sor2
sor3
sor4
sor5
<Ertek>321</Ertek>
<Statisztikai ertek>29</Statisztikai ertek> "ide kell a 321-nek a 9,2% at kiszamolni"
sor8
sor9
sor10
sor11
sor12
<Ertek>1234</Ertek>
<Statisztikai ertek>113</Statisztikai ertek>
...

Valahogy meg lehet ezt oldani makroval? minden 7. sorba kellene szamolja a felette levo sorbol a > jel utani ertek 9,2%-at

[ Szerkesztve ]

Sziasztok,

A következő feladathoz szeretném a segítségeteket kérni [ ha fontos az office legújabb verzióján kellene megoldani ]

A lentebb látható kép alapján, egy megoldásra lenne szükségem, ami jelen esetben az E oszlopba kiszámolná , hogy az adott emberek által választott szolgáltatásokért mennyit kellene fizetniük.

Egy táblázatban mindenki bejelölhette, hogy milyen szolgáltatásra tart igényt [ jelen esetben ezt 'x'-el tették meg ], a B,C,D oszlop 2. cellájában találhatóak az árak. Az F-oszlopban manuálisan kiszámoltam, egyszerű adatoknál/kis táblázatnál nem bonyolult , de ezt lehetne valahogyan automatizálni? Pivot tábla vagy függvény? én sok if-el próbálkoztam de az nem volt valami elegáns és nem is akart működni :/

Előre is köszönöm

Egészség legyen és térerő!

=SZUMHATÖBB($B$2:$D$2,$B3:$D3,"x")

ez az első sorban lévő képlet, majd ezt kell lehúzni ameddig számoltatni akarod

[ Szerkesztve ]

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

Nem írtad, melyik oszlopban vannak ezek az adatok.
Írtam egy makrót, ami az A oszlopban lévő adatoknál végzi el az általad leírt feladatot. Ha nem ott található adatokról van szó, a makróban minden helyen az "A"-t írd át ennek megfelelően.

A makrót modulba másold be a Téma összefoglaló szerint. Ha 2003-nál magasabb verziójú az Exceled, a füzetet makróbarátként kell mentened.

Sub Szazalek()
Dim sor As Long, usor As Long, ertek As Integer
Dim k As Integer, v As Integer

Application.ScreenUpdating = False
usor = Range("A" & Rows.Count).End(xlUp).Row

For sor = usor To 6 Step -1
If Left(Cells(sor, "A"), 1) = "<" Then
k = Application.WorksheetFunction.Search(">", Cells(sor, "A"), 2) + 1
v = Application.WorksheetFunction.Search("<", Cells(sor, "A"), 2) - 1
ertek = Mid(Cells(sor, "A"), k, v - k + 1)
Rows(sor + 1).EntireRow.Insert
Cells(sor + 1, "A") = "<Statisztikai ertek>" & Int(ertek * 9.2 / 100) & "</Statisztikai ertek>"
End If
Next
Application.ScreenUpdating = True
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.

Szupeeer
Koszi, tokeletesen mukodik

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.

Szia Delila!
Más elfoglaltságom miatt csak tegnap tudtam foglalkozni a makróval amit írtál. Meg nem is akartalak állandóan zavarni sorozatos kérdésekkel hanem inkább próbálkoztam, tanultam és bővítettem. Most már úgy dolgozik ahogyan szeretném.
Ezzel eljött az ideje egy NAGY köszönetnek
üdv

Szívesen.

"tanultam és bővítettem", ez a lényeg.

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!

Elnézést, a kicsit offtopicért de gondoltam ti tudtok segíteni, mint már jó pár esetben.
Szóval a kérdésem az lenne, hogy Wordben hogyan tudom megoldani, hogy egy oldal közepén levő szöveg megváltoztatásával az élőfejben levő szöveg automatikusan változzon? (az oldal közepén levő sort manuálisan átírom, s változzon az élőfej is, mintha Excelben egy sima =A8 képlet lenne a D1 cellában)

köszönöm!

[ Szerkesztve ]

A google-ben keress rá csak egy kis angol kell hozzá

[ Szerkesztve ]

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

Köszi Találtam is megoldást a Kész modulok menüben.

Van egy excelem kb 50-60 azonos lappal, ahol csak pár megjegyzés, érték más, de nagy része ugyanaz.
Ezt kellene lefordítanom angolra. Az rendben van, hogy lefordítom, de hogyan lehet kicserélni minden lapon ugyanazokat a szavakat vagy cellákat? Az a lényeg, hogy ne kelljen minden lapon egyesével beírogatni a magyar angol megfelelőjét.

Csere -> Egyebek >> Hatókör -> Munkafüzet ?

FIGYELEM! A többszázezres Samsung okostévék kéretlen reklámokat tolnak az arcodba.

Sziasztok! a következő problémára keresek megoldást: van egy közepes méretű tábla ami Adatérvényesítéseket tartalmaz listák alapján. A listák külön munkalapon vannak és csak egy lapra vannak alkalmazva bizonyos oszlopokra. Használat közben, egy idő után (hetekről beszélünk) egyik pillanatról a másikra használhatatlan módon belassul, pedig mindössze új sorok kerültek bele. Első alkalommal az adatok értékként történő új fájlba másolás, majd a tábla újraparaméterezése oldotta meg a problémát, de ez nyilván nem az ideális megoldás... Azon munkalapok, ahol nincs Adatérvényesítés szépen működnek továbbra is. Az Adatérvényesítés levétele nem oldja meg a problémát, továbbra is szaggat az érintett munkalap.

Sziasztok

Újfent segítséget szeretnék kérni.

Van egy elemző excelem amiben a tartalom midnig ugyan azokban a cellákban van. Az excel elemzésenként külön-külön mentem el így annak a file neve mindig más.

Mivel így az elmezett dolgokat nehéz összenézni ezért csinálnék egy excelt amiben ugyan azokat a tételeket szépen egymás alatt felsorolom és így könnyen összehasonlíthatóak lesznek.

Megtudom e azt oldani, hogy ezen cellákban amik a számomra releváns infokat tartalmazzák ne kelljen mindig manuálisan egyesével rámutatnom a kérdéses cellákra a másik (elemző) fileban, hanem mondjuk beillesztem a file elérési útvonalát egy segéd cellába és a többi cella abból szedi ki az elérési útvonalat.

Jelenleg ezt úgy tudnám megoldani, hogy duplikálom a már működő, manuálisan belinkelt képletet majd keresés cserével kicserélem az új file adataival.

Remélem sikerült értelmesen megfogalmaznom a kérdést

Köszi
üdv

indirekttel megoldható, de az sajnos nem kezeli az elérési utakat, tehát csak addig működik, amíg a fileok ugyanabban a könyvtárban vannak (de úgy kiválóan)

ha más az elérési út, oda makró kell, én ezt találtam és használom nagy megelégedéssel:

[link]

[ Szerkesztve ]

Hy.

Adott egy táblázat, amiben színekre szűrök. Alapból piros a cella, a zöld van szűrve. (Csak a piros kitöltőszínű cellák jelennek meg.)
Ha egy piros cellát zöldre változtatok, akkor hogy tudom azt elrejtetni? Jelenleg törlöm a szűrést, majd újra rárakom, tudom csak pár kattintás, de érdekel, hogy van-e rá valami 1 klikkes megoldás

Köszi

UI: office 2016-ot használok.

Sziasztok
Van egy (számomra borzasztoan nagy )kb 700000 soros excel táblám.
Egyszerűen nem tudok benne keresni mert ha bekapcsolom a szűrést kettő karakter beirása után gondolkodik majd semmi. (2016-os excelt használok) probálkoztam power pivottal de a 40 megás munkafüzet mellé így kaptam még egx kb 60 megás másikat is.
Valami ötlet?
Köszi

Sziasztok!

Excel 2016-ban vezetett pénzügyes adataimhoz szeretnék egy jobb, átláthatóbb kis kimutatás táblázatot beállítani. Ehhez kérnék segítséget, útmutatást.

Egy külön munkafüzetben vannak egymás után bedobálva a költségek a következő adatokkal: dátum, kategária, leírás, költség, kapcsolat (akihez/amihez tartozik, kapcsolatban van), hely, projekt, megjegyzés. Kezdő szinten beállítottam egy kimutatásos pivot táblát: sorok a kategóriák, oszlopok a dátum, értékek a költség összege. A dátum rész automatán évek - negyedévek - hónap - dátum részre bomlik. Az a problémám, hogy a kimutatás minden egyes frissítésénél a dátum oszlopok teljesen lenyílnak (ergo minden oszlop napok szerint kinyílik) és elveszik a hónap rész. Kézzel újra kell állítgatni az egész kimutatás táblázatot.
Az lenne a célom, hogy ebben az elrendezésben minden oszlopban egy hónap adatai legyenek összesítve (az évet felrakom szűrőbe) és frissítés után se kelljen újra beállítgatni a dátum oszlopok csoportosítását (esetleg szélességek is fixen megmaradjanak, mert akkor nem kellene görgetni se a nézetet). Így egy képernyőre kiférne az összes pénzügyes adatom egy éven belül, kategóriákra bontva.

Elnézést, ha nem tudtam jól érthetően leírni. Ha valaki tud ebben segíteni, akkor készítek egy mintát példa adatokkal és feltöltöm.

[ Szerkesztve ]

Sziasztok!

Mértékegység konverziót szeretnék végezni a g-mg-µg-ng-pg tartományban. Azt szeretném, hogyha mondjuk beírom azt, hogy valami hány mg, akkor számolja ki az általam megadott mértékegységben az értékét. Az érték az A1 cellában, a mértékegysége a B1-ben, az eredmény az A2-ben, a mértékegysége pedig a B2-ben lenne. Képlettel szeretném megoldani, lehetőleg segédoszlopok (és makró) nélkül. Egyelőre a legjobb ötlet, ami eszembe jut, az az egymásba ágyazott HA függvények kezelhetetlen hosszúságú sora lenne. Az viszont rendkívül hosszú lenne, alapból már szerintem nem is bírná kezelni az Excel, hiszen minden mértékegységnél meg kellene az összes mértékegységre az átszámolást, ami összesen 25 lehetőség.

Van valami jobb ötletetek? Vagy marad a makró? Előre is köszönöm!

Cancel all my meetings. Someone is wrong on the Internet.

Szia!

Én mondjuk sajnos nem nagyon értek a pivot táblákhoz, de szerintem egy teszt munkafüzetben vedd fel makró rögzítővel az általad végzett módosításokat, az lehet egy viszonylag jó kiindulási alap. Egyébként - nekem legalábbis - kicsit körülményes elképzelni, hogy pontosan mi is a gond, egy mintafájl (dummy adatokkal) sokat segíthetne a megértésben. De persze lehet, hogy valaki tőlem jóval okosabb nemsokára megmondja a megfejtést . Ha nem, akkor szerintem kellhetne a mintafájl...

#34896: Lefagy, megáll? Nem lehet, hogy csak sok idő kell neki? Talán hülyeség, de ha egy mód van rá, én kipróbálnám másik Office verzióval is, leginkább talán a 2010-zel.

Cancel all my meetings. Someone is wrong on the Internet.

Ez ugyan az autoszűrőre, és a teljes használt tartományra van, de az ActiveSheet.UsedRange.AutoFilter paranccsal ki, és be is lehet kapcsolni a szűrőt. Gondolom irányított szűrőnél is valami hasonló van - makró rögzítővel ki lehet próbálni. Ezt egy Worksheet_Change eventhez kell rendelned, amiben a változandó sorra/oszlopra hivatkozol. Amennyiben annak az értéke megváltozik, akkor fusson le a makró, ami ki, majd visszakapcsolja a szűrőt.

Cancel all my meetings. Someone is wrong on the Internet.