- Google Pixel topik
- iPhone topik
- Megérkezett a Google Pixel 7 és 7 Pro
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- Egy szenzor, két zoomkamera: újraírta a Huawei a mobilfotózás történetét
- Poco M3 - felújított állomás
- Térerő gondok, tapasztalatok
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Milyen okostelefont vegyek?
- Honor Magic6 Pro - kör közepén számok
-
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
-
Zoty4
őstag
válasz
Delila_1
#45171
üzenetére
Szia
Ezt ki lehetne terjeszteni úgy hogy ne csak a munka1 hanem a munka2, munka3, munka4 területekről is kigyűjtse a termékeket?
Van ami csak egyik munkalapon van, de lehetnek átfedések is (nyilván ugyanazokkal az adatokkal)
Szóval ne csak munka1-ben keresse hanem mindenhol -
Delila_1
veterán
válasz
zsolti_20
#45192
üzenetére
Nem volt egyszerű, de végül sikerült.
Sub Eredmeny()
Dim sorSzuro As Integer, sorEredm As Integer, db As Integer, csoport As Integer
Dim usorLista, x As Integer, elso As Integer, ucso As Integer, nev As String, van
sorEredm = 2: csoport = 1
usorLista = Range("D" & Rows.Count).End(xlUp).Row
Kezd:
elso = Application.Match(csoport, Columns(1), 0)
ucso = Application.Match(csoport, Columns(1))
db = 0
For x = elso To ucso
If Application.WorksheetFunction.CountIf(Columns(4), Cells(x, 2)) > 0 Then db = db + 1
If db = ucso - elso + 1 Then
For sorSzuro = 2 To usorLista
nev = Cells(sorSzuro, "D")
On Error Resume Next
van = Application.Match(nev, Range(Cells(elso, "B"), Cells(ucso, "B")), 0)
If VarType(van) = vbError Then
On Error GoTo 0
Else
Cells(sorEredm, "F") = csoport
Cells(sorEredm, "G") = nev
sorEredm = sorEredm + 1
End If
Next
End If
Next
csoport = csoport + 1
If csoport > Application.WorksheetFunction.Max(Columns(1)) Then
Exit Sub
Else
GoTo Kezd
End If
End Sub -
#45198
Fferi50
Topikgazda
the radish
#45196
Fferi50
Topikgazda
válasz
the radish
#45196
üzenetére
Szia!
A konstansnak nem adhatsz változó tartalmat pl. cellaértéket sem, a deklaráláskor pontosan meg kell adni az értékét.
Ha változó értékeket szeretnél, akkor valódi változót kell használnod és pl. a Workbook_Open eseményben beolvasni az értékét - vagy az adott makróban, mielőtt használni kezdenéd.
Üdv. -
Saviour
csendes tag
Sziasztok!
Lehetséges olyan grafikont létrehozni Excelben aminek szimpla lineáris értékkészlet helyett ilyen számsor lenne: +0.96; +0.97; +0.98; +0.99; +-1; -0.99; -0.98; -0.97; -0.96
Az x tengely az időt tartalmazná. A problémám az, hogy van egy adatsorom ami sűrűn veszi fel a +1 és -1 értéket, viszont így elég csúnya "négyszögjeles" grafikont hoz létre a lineáris értékkészlettel. Más programban volt ez a felsorolt értékkészlet és úgy sokkal olvashatóbb az adtok szempontjából. Az, hogy +1 vagy -1 lényegtelen azért kerül egy helyre a grafikonon belül úgymond ez a két szám lenne a középérték. -
#45195
zsolti_20
senior tag
the radish
#45193
zsolti_20
senior tag
válasz
the radish
#45193
üzenetére
Kicsit utana olvastam, probaltam tesztelni, de azt irjak hogy ilyen formaban megoldani nem lehet. Erre egy valtozo kell csinalnod.
De az en tudasom is meg all itt. Majd a tobbiek kisegitenek.
-
#45194
zsolti_20
senior tag
the radish
#45193
zsolti_20
senior tag
válasz
the radish
#45193
üzenetére
Public Const burnKey = Worksheets("KEY").Cells(1).Value -
#45193
the radish
senior tag
zsolti_20
#45191
the radish
senior tag
válasz
zsolti_20
#45191
üzenetére
Köszi, de nem látni akarom, hanem azt szeretném, ha a meglévő makró a makró
Public Const burnKey = "A_qTUOS_aAN-a6uUA!jER%rZE"
sorában elhelyezett kód helyett a a munkafüzet "KEY" munkalapjának "A1" cellájában elhelyezett kódot használná.Azaz valahogy így kéne:
Public Const burnKey = " Sheets("KEY").Range("A1") " -
#45191
zsolti_20
senior tag
the radish
#45189
zsolti_20
senior tag
válasz
the radish
#45189
üzenetére
Szia,
Esetleg probald meg ezt:
Sub lol()var1 = Worksheets("Sheet2").Cells(1).ValueMsgBox var1End Sub -
#45189
the radish
senior tag
the radish
senior tag
Sziasztok!
Sehogy nem jövök rá egy egyszerűnek tűnő dologra:
Makróban található egy kód, mely tartalmaz minden létező karaktert. Néha azonban ezt meg kell változtatni:Public Const burnKey = "A_qTUOS_aAN-a6uUA!jER%rZE"
Szeretném ha nem minden alkalommal a makróban kéne ez miatt turkálni, hanem a munkafüzet "KEY" munkalapjának "A1" cellájában tudnám módosítani ezt, azaz ott lenne a kód elhelyezve.
Próbáltam már több verziót, de sajnos nem jöttem rá a megoldásra, ezért nagyon hálás lennék egy jó kivitelezésért.Előre is köszönöm!
-
zsolti_20
senior tag
Szép reggelt emberek. Épp egy filterezésen dolgozok de elakadtam a megvalósításában.
Van 3 táblázatom. Lista,Szűrő és Eredmény.
A listában felvannak sorolva szavak számozással ellátva, úgy is felfoghatjuk mintha csoportok,halmazok lennének.
A szűrőben megadom ayokat a kulcs szavakat amiket az eredménybe szeretnék átvinni. De csak akkor kell átvinnie ha annak a csoportnak az összes szava megegyeik a listában felsorolttal.
Kép:
[link]Van valakinek ötlete hogyan lehetne megoldani? legjobb egy VBA script lenne rá, sajnos sima filterezés nem működik mert akkor megtart néhány csoportot aminél nincs meg a teljes egyezés.
-
Pakliman
tag
válasz
Norbika1493
#45186
üzenetére
Egy pl...
Ez egy meglévő táblázatban halad végig és bizonyos cellák értéke alapján színez bizonyos számokat is.
Készít egy táblázatot az így létrejótt listából és elküldi a megadott címzetteknek:Public Enum OlBodyFormat
olFormatUnspecified = 0
olFormatPlain = 1
olFormatHTML = 2
olFormatRichText = 3
End Enum
Private Function TableDataColor(strIn As String, Optional color As String = "") As String
If color = "" Then
TableDataColor = strIn
Else
TableDataColor = "<FONT COLOR=" & color & ">" & strIn & "</FONT>"
End If
End Function
Private Function Table(strIn As String, Optional lBorder As Long = 0) As String
Dim sBorder As String
If lBorder = 0 Then
sBorder = ""
Else
sBorder = " border=" & lBorder
End If
Table = "<TABLE" & sBorder & ">" & strIn & "</TABLE>"
End Function
Private Function TableData(strIn As String, Optional alignment As String = "") As String
TableData = "<TD nowrap align=" & alignment & ">" & strIn & "</TD>"
End Function
Private Function TableRow(strIn As String) As String
TableRow = "<TR>" & strIn & "</TR>"
End Function
Public Sub Email_Humányügyre()
Dim sSzöveg1 As String: sSzöveg1 = "Kedves Lányok!" & "<br /><br />"
Dim sSzöveg2 As String: sSzöveg2 = "Szíves hasznosításra..." & "<br /><br />" & _
"Üdv," & "<br /><br />"
Dim OutApp As Object
Dim OutMail As Object
Dim strFej As String
Dim strTB As String
Dim sDátum As String: sDátum = Format(Format(Range("Z1"), "0000"".""00"".""00"), "yyyy. mmmm")
Dim sTárgy As String: sTárgy = "Külsősök teljesítései " & sDátum
Dim lAktSor As Long
Dim lÚjSor As Long
Dim szín As String
strFej = TableRow( _
TableData("HR") & _
TableData("Név") & _
TableData("Összes óra") _
)
For lAktSor = 3 To Cells.Rows.Count 'Az utolsó sort célszerű először meghatározni...
If IsEmpty(Cells(lAktSor, 1)) Then Exit For
If Cells(lAktSor, 15) = "Külsős" Then
Select Case Cells(lAktSor, 11)
Case 60 To 79.9
szín = "blue"
Case Is > 80
szín = "red"
Case Else
szín = ""
End Select
strTB = strTB & _
TableRow( _
TableData(Cells(lAktSor, 1)) & _
TableData(Cells(lAktSor, 2)) & _
TableData( _
TableDataColor( _
Format(Cells(lAktSor, 11), "0.0"), _
szín _
), _
"right" _
) _
)
End If
Next lAktSor
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "Humánügyek"
.CC = "hum1@hum.hu; hum2@hum.hu"
.BCC = ""
.Subject = sTárgy
.BodyFormat = 2 'olFormatHTML
.HTMLBody = sSzöveg1 & _
Table( _
"<Caption>Külsős órák</Caption>" & _
strFej & _
strTB _
, 1) & "<br /><br />" & _
sSzöveg2
.Display ' vagy elküldéshez .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub -
#45186
Norbika1493
csendes tag
Norbika1493
csendes tag
Sziasztok,
Valakinek nincs egy olyan VBA kód ami excelbe importálva cellától celláig másolva az adatokat elküldi embereknek,csoportoknak?
nagyon szépen köszönöm
-
#45184
Fferi50
Topikgazda
the radish
#45183
Fferi50
Topikgazda
válasz
the radish
#45183
üzenetére
Szia!
Mi van az eseménykezeléssel? Le van tiltva?
Megmutatnád azt a kódrészletet, amelynél ez bekövetkezik?
Üdv. -
#45183
the radish
senior tag
the radish
senior tag
Makró művelet közben a "Application.ScreenUpdating = False" segítségével érem el, hogy a folyamat ne legyen látható.
Külső fájl megnyitása alkalmával azonban teljes képernyős módból ablak nézetbe teszi az Excelt.
Ez ellen van valami okosság?
Előre is köszönöm! -
#45180
the radish
senior tag
Fire/SOUL/CD
#45176
the radish
senior tag
válasz
Fire/SOUL/CD
#45176
üzenetére
Nagyon köszönöm!!!
-
Delila_1
veterán
válasz
xenom0rph
#45175
üzenetére
A makrót a laphoz kell rendelned. Az F2 cellában érvényesítés biztosítja, hogy csak az A oszlopban szereplő értékek közül lehessen választani.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Integer
If Target.Address = "$F$2" Then
sor = Application.Match(Target, Columns(1), 0)
MsgBox "B = " & Cells(sor, 2) & vbLf & "C =" & Cells(sor, 3) & vbLf & _
"D = " & Cells(sor, 4), vbInformation
End If
End Sub -
#45176
Fire/SOUL/CD
félisten
the radish
#45173
válasz
the radish
#45173
üzenetére
Private Sub CommandButton1_Click()
Dim MyFilename As String
Dim MyWorkBook As Workbook
'Excel fájl útvonala
MyFilename = "D:\gyumolcs.xls"
'Megnyitjuk
Set MyWorkBook = Workbooks.Open(MyFilename)
'A megnyitott munkafüzet "Munka1" nevü munkalapjáról
'beolvassuk az "A1" cella tartalmát és
'nagybetű-helyesen értelmezzük.
'Így mindegy, hogy a cellában hogy szerepel, "Alma" vagy "ALMA" vagy "alma" stb stb.
Select Case UCase(MyWorkBook.Sheets("Munka1").Range("A1"))
Case "ALMA"
Call alma
Case "KÖRTE"
Call korte
Case "SZILVA"
Call szilva
'ha bármi más szerepel a cellában vagy üres,
'akkor figyelmeztető ablak, majd bezárjuk a munkafüzetet
Case Else
MsgBox ("A(z) " + MyFilename + " munkafüzet be lesz zárva.")
MyWorkBook.Close
End Select
Set MyWorkBook = Nothing
End Sub
Private Sub alma()
MsgBox ("Alma makró")
End Sub
Private Sub korte()
MsgBox ("Körte makró")
End Sub
Private Sub szilva()
MsgBox ("Szilva makró")
End Sub -
xenom0rph
őstag
Sziasztok,
Segítséget szeretnék kérni egy - szerintem- egyszerű problémában, de annyira ráfeszültem már, hogy nem látom a fától az erdőt és nem haladok sehova. Tehát:
Adott ABCD oszlop.
F2 cellába beírva, az A oszlopban szereplő értéket (1-től 600-ig) egy msgBox-nak kéne felugrania mely kiírja a B-C-D oszlop értékeit.
Honnan kéne ezt megközelíteni?Köszönöm előre is.
-
#45173
the radish
senior tag
the radish
senior tag
Sziasztok!
Következőben kérnem a segítségeteket:
Szükségem lenne egy makróra, mely
- megnyitja a "C:\gyumolcs.xls" fájlt
- ha a megnyitott "gyumolcs.xls" A1 cellája = alma, akkor lefuttatja az alma makrót, ha A1= körte, akkor a körtét és végezetül ha A1= szilva, akkor a szilva makrót. Ha A1 fentiek egyikét sem tartalmazza, akkor bezárja a gyumolcs.xls-t és felugró ablakban figyelmeztet, hogy pl. nem megfelelő a formátum.
Előre is köszönöm! -
Delila_1
veterán
-
Zoty4
őstag
válasz
Delila_1
#45144
üzenetére
Szia
Így működik nekem a lekérdezés, ha a B3-ba rakom a lekérdezni valót:
=INDEX('[Actual.xlsx]munka'!$A$1:$AM$505;HOL.VAN($B$3;'[Actual.xlsx]munka'!$B:$B;0);HOL.VAN(D$2;'[Actual.xlsx]munka'!5:5;0))De szeretnék további lekérdezéseket betenni.
Miért van az hogy a b3-ba írt szövekhez kilistázza a dolgokat, de a b4-nél egy másikat már nem? B3-at átírtam ott B4-re, de azt írja hogy hiányzik -
Heavyrain
őstag
Sziasztok,
A segítségeteket szeretném kérni. INDEX-HOL.VAN-al vagy valamivel biztosan könnyen megoldható de nem jövök rá hogyan.
A képen látszódik a leegyszerűsített kiindulási tábla. A számok értéke lényegtelen, mindig pozitívak és egy sorban mindig csak egy szám van.
Ezek a számok máshol nem szerepelnek szóval nem tudok rájuk hivatkozni.Pl. első sor esetében szeretném ha az Excel megkeresné, hogy, hol van nem üres cella és kiírná az ezen cellát tartalmazó oszlop azonosítóját. (E)
A jobb oldali táblát most még kézzel írkáltam be de szeretném ha képlet csinálná.
Előre is köszönöm a megoldásokat!
-
#45166
Fire/SOUL/CD
félisten
Sonyk1208
#45164
-
-
Sonyk1208
csendes tag
Sziasztok!
Adott A,B,C,D oszlop.
A-t lerendezem növekvő sorrendbe
B-ben ugyanazok az adatok mint A-ban.
B-t szeretném úgy lerendezni mint A-t, tehát növekvő sorrendben, de úgy hogy C és D oszlopot is rendezze, de ne növekvőbe, hanem hagyja úgy ahogy volt, vagyis a B,C és D öszlopk kávzi össze tartoznak.
Cella egyesítés nem játszik, mert szövegként van formázva, de A,B és C oszlopokban számok vannak. D-ben szöveg.
A,B több mint 15 számból áll ezért kellett szövegként formáznom.Ötlet?
-
#45163
Delila_1
veterán
Fire/SOUL/CD
#45162
Delila_1
veterán
válasz
Fire/SOUL/CD
#45162
üzenetére
Egy nagyon komoly nyúlról van szó benne.
-
#45162
Fire/SOUL/CD
félisten
Delila_1
#45161
-
#45161
Delila_1
veterán
Fire/SOUL/CD
#45160
Delila_1
veterán
válasz
Fire/SOUL/CD
#45160
üzenetére
Nézd meg a válaszomat, ami pontosan olyan értelmes, mint a kérdés.
-
#45160
Fire/SOUL/CD
félisten
Delila_1
#45159
válasz
Delila_1
#45159
üzenetére
Azt sem tudom, hogy mivel kapcsolatban kérdez. Visszakerestem, hogy nem-e esetleg egy korábban feltett problémával kapcsolatos a mostani kérdése, de ezt megelőzően 2020.06.16-ban volt utoljára hozzászólása.Én ennyit látok a mostani hozzászólásából. Te estleg nem?
Erre hogyan lehet rendesen válaszolni? -
#45158
Fire/SOUL/CD
félisten
gepesz13
#45156
-
#45155
Fferi50
Topikgazda
Aventador91
#45154
Fferi50
Topikgazda
válasz
Aventador91
#45154
üzenetére
Szia!
Tedd fel elérhető helyre, aztán megnézzük.
Üdv. -
#45153
Fferi50
Topikgazda
Aventador91
#45150
Fferi50
Topikgazda
válasz
Aventador91
#45150
üzenetére
Szia!
Szerintem előbb rendezd időrend szerint (későbbi előbb), utána a másik oszlopot pedig Z-A (fordított) sorrendben.
Üdv. -
#45150
Aventador91
őstag
Aventador91
őstag
sziasztok. kéne egy kis segítség
a pirossal bekeretezett részen, rendezéssel szeretnék egy olyan sorrendet létrehozni mint az alatta lévő képen. de nem tudom megoldani.
ha simán abc sorrendre megyek, és időrendbe rendezem, akkor a podolsk-ot dobja be elsőnek
tud valaki segíteni hogyan tudnám megoldani?
-
#45149
eszgé100
őstag
Fire/SOUL/CD
#45148
eszgé100
őstag
válasz
Fire/SOUL/CD
#45148
üzenetére
gyönyörű, nagyon szépen köszönöm.
a "cancel=true"-t láttam kb 15x a mai nap folyamán, de nem értettem meg a lényegét.
gondolom a jövőben sokat segítene rajtam az is, ha legalább a kérdésem normálisan meg bírnám fogalmazni -
#45148
Fire/SOUL/CD
félisten
eszgé100
#45147
válasz
eszgé100
#45147
üzenetére
Óóóó, bakker, ezt Én nagyon félreértettem. nagyon másra gondoltam...
Akkor ennyi az egész.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'itt adhatod meg, hogy mely tartományban lévő cellákon működjön a duplaklikk
'itt a példában az A1:A5 tartományt vizsgálja
If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
Select Case Target.Value
Case 0
ActiveCell.Value = 25
Case 25
ActiveCell.Value = 50
Case 50
ActiveCell.Value = 75
Case 75
ActiveCell.Value = 100
Case 100
ActiveCell.Value = 0
End Select
'ez a kis "trükk" oldja meg, hogy nem lép be a cellába szerkesztési üzemmódba
Cancel = True
End If
End Sub -
#45147
eszgé100
őstag
Fire/SOUL/CD
#45138
eszgé100
őstag
válasz
Fire/SOUL/CD
#45138
üzenetére
Szia, köszönöm szépen.
5 embernél valóban nem sok értelme van, de kb 100 ember betanulását 80 munkafolyamaton kellene így nyomonkövetni, ezért gondoltam, hogy a dupla klikkes megoldás gyorsabb.VBA-ban jelenleg ezt kellene finomhangolni:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Value = 0 ThenActiveCell.Value = 25Range("A1").SelectElseIf Target.Value = 25 ThenActiveCell.Value = 50Range("A1").SelectElseIf Target.Value = 50 ThenActiveCell.Value = 75Range("A1").SelectElseIf Target.Value = 75 ThenActiveCell.Value = 100Range("A1").SelectElseIf Target.Value = 100 ThenActiveCell.Value = 0Range("A1").SelectEnd IfEnd SubFeltételes formázáskor csak az ikont megjelentítve szépen ugrál szeletről-szeletre, de muszáj volt a kijelölést elmozdítanom, különben loop lenne belőle. Ebből a "Range("A1").Select"-re jobb lenne valami más, mert ez csak addig okés, míg nem kell görgetni, legjobb lenne, ha ugyanazon a cellán maradna a kijelölés, valamint az egész Sheet1 helyett csak egy adott tartományban működjön a duplaklikk.
-
Zoty4
őstag
Sziasztok
Van egy ömlesztett listám.
egy másik excelbe azt szeretném ha mondjuk beirom az első oszlopba hogy "a", akkor automatikusan behúzza az ömlessztett excelből a gyümölcs értékeit a megfelelő cellába, jelen esetben 1,2,3,4,2-t
Elég csak az az egy sor ami tartalmazza azt az értéket, mert majd ebből kell diagrammokat készítenem.köszönöm
-
#45138
Fire/SOUL/CD
félisten
eszgé100
#45135
-
#45133
terencehIII
tag
terencehIII
tag
az alábbi jelenséghez kérnék valakitől segítséget:
16 munkalapos excel--> mindegyikbe az adatok mellett vágtam be képmetszővel képeket (többet) kb 2,5 mb az fájl
az utolsó néhény munkalapnál egy idő után a képek helyén megjelent az a szöveg, hogy "Az rID1 azonosítójú képrész nem található a fájlban"-- ezek újra megcsináltam, elmentettem.
Ma megint elővettem ezt az excel fájlt- erre most azoknál a munkalapok képeinál írja ugyanezt amik edddig rendben voltak, amiket újra beraktam az most rendben.
Mit lehet ezzel kezdeni??
-
#45132
lappy
őstag
Norbika1493
#45131
lappy
őstag
válasz
Norbika1493
#45131
üzenetére
Üres függvény
-
#45131
Norbika1493
csendes tag
Norbika1493
csendes tag
Sziasztok,
Felteteles formázásnal, hogy tudom azt megadni
, hogy az üres cellát ne színezze viszont a “0” beírva már színezze ki ? -
#45130
Delila_1
veterán
Norbika1493
#45129
Delila_1
veterán
válasz
Norbika1493
#45129
üzenetére
A bekeretezett tartományra kell megadnod a formátumot.
-
#45129
Norbika1493
csendes tag
Norbika1493
csendes tag
Valamiért még mindig nem írja ki.
-
#45128
Delila_1
veterán
Norbika1493
#45127
Delila_1
veterán
válasz
Norbika1493
#45127
üzenetére
Az összesítésnél [óó]:pp:mm formát kell alkalmaznod.
-
#45127
Norbika1493
csendes tag
Norbika1493
csendes tag
Sziasztok,
Van egy táblázatom amiben vannak adatok köztük idő is óó:pp:mm formátumba. Kimutatásban szeretném összesíteni ezeket a dolgokat de valamiért 00:00:00 ír ki.
Formátumot összegre állítottam a számformátumot pedig egyedinél erre : óó:pp:mm.
Mit tudnék még kezdeni vele, hogy kiírja kimutatás módban?előre is köszönöm a választ
Üdv
-
ny.janos
tag
válasz
Gyöször
#45111
üzenetére
A legnagyobb kérdés az, hogy androidon működik-e bármilyen Windows / Excel gyorsbillentyű kombináció. Ha igen, akkor a Ctrl + 0, Ctrl + Shift + . kombinációkra lenne szükséged. Van olyan angol billentyűzet androidra, ahol van Alt és Crtl is. Ha gondolod tegyél egy próbát, sok vesztenivalód nincs.
-
Fferi50
Topikgazda
-
-
lrobertoc
tag
válasz
lrobertoc
#45122
üzenetére
Gondolom a kapcsolat típusa lehet az oka. A szervezet tábla pozíció kódja köti össze a terv táblát és a törzs táblát, ugyanis mind a tervben (időszakok miatt), mind a törzsben (egy pozícióra évközben jöhetnek, mehetnek az emberek) a pozíciókód többször szerepelhet.
Vagy nem tudom...
-
lrobertoc
tag
válasz
Fferi50
#45120
üzenetére
Szia,
köszönöm. közben én is eljutottam idáig, azaz a törzsből vettem a szervezeti adatokat, illetve a sorösszegzéseket is bekapcsoltam.
Az oké, hogy a pozíció betöltő szintjére nem tud tervet szumházni a riport, mivel csak pozíció szintig van terv. A betöltője pedig változhat....
Viszont azt nem tudom, hogy pozició szinten miért a total tervet hozza minden sorban és miért nem csak az adott pozire szummázottat.... -
Fferi50
Topikgazda
válasz
lrobertoc
#45119
üzenetére
Szia!
A pozícióra leosztott - nem munkavállalóra szabott - tervet ebben a riportban még nem tudtam megjeleníteni.
A dolgozó sokszorozást viszont a sorok alábbi sorrendjében sikerült kiküszöbölni:
Terület - Pozíció neve - Pozíció betöltője.
Ez az eredmény egyenlőre:
Elképzelhető, hogy a terv-tény összehasonlítás ebben a formában nem megoldható...
Üdv. -
lrobertoc
tag
Sziasztok,
egy kis segítségre lenne szükségem. Egy bérterv/tény riportot szeretnék excelben készíteni.
Ahol szervezeti egységre és pozícióra (illetve munkavállalóra) lebontva látom az egyes időszakokban a tervet és a tény összegeket.Ehhez az alábbi tábláim vannak:
1. szervezeti struktúra: a szervezeteken lévő pozíciók, a pozíció szervezeti egysége (oszlopok: pozíció kódja, pozíció neve, szervezeti egység)2. terv: az egyes pozíciók tervszámai hónapra lebontva (oszlopok: pozíció kódja, időszak, terv összeg)
3. törzs: az egyes pozíciókat feltöltő munkavállalók (oszlopok: pozíció kódja, név, törzsszám, szervezeti egység, valalmint a pozíciókód és törzsszám mező összefűzése -> egy pozícióban több munkavállaló is ülhet, egy munkavállaló több pozíciót is betölthet)
4. tény: a munkavállalók tényleges bérei pozíció szerint (oszlopok: pozíció kódja, törzsszám, tény bér, időszak, pozociókód és törzsszám összefűzött mező)
5. időszak: (oszlopok: év, hóap, időszak)A riportot PowerBI segítségével próbálom összehozni.
Kapcsolatok:
1. időszak 1: végtelen kapcsoalt a tervvel és a tény táblával az időszak kulccsal;
2. szervezeti struktúra 1: végtelen kapcsolat a terv és törzs táblával a pozíció kódja kulccsal;
3. tény 1:végtelen kapcsolat a törzs táblával a pozíciókód és törzsszám összefűzött mező kulccsal.A riport pozíció kódig működik, amikor viszont a sorokban szeretném látni, hogy a tény adatokat mely munkavállalók adatai teszik ki, a riport szétesik.
(nyilván a terv adatokra nem tudja értelmezni a munkavállalót, hiszen a terv csak pozíció szintre van meghatározva).
Erre létezik valalmi megoldás, hogy a pozició terv szintjére felemeljük a tény táblából a munkavállalókat?Ide elérhető a file:
https://drive.google.com/file/d/1CBrC-TB8aX7FPVlVpClgJGr9hpK8N2hQ/view?usp=sharing -
ntamas97
csendes tag
Sziasztok!
Egy következő kérdésem lenne. Van egy oszlopom cellákkal, melyben vesszővel elválasztva van (legtöbbször) 3 szó
A következőre gondolok: [kép]
Hogyan tudom megoldani azt, hogy az egyes szavak, gondolatok külön sorokba kerüljenek?Köszönöm a választ!
-
-
Gyöször
senior tag
Sziasztok! Androidos excelben hogy lehet beszúrni az aktuális dátumot óra perccel? Fixre, tehát nem ma() és most() fügvényekkel. Egyszerű feljegyzésekhez kellene, eső méröt, hűtő fogyasztást stb írnám fel. Keresőben ezt így nem találtam, bocsi ha már ezerszer volt.
-
Delila_1
veterán
válasz
Gondics
#45100
üzenetére
Az L1 cellában legyen az összegző képlet,
=SZUM(A1:A7)Modulba másold a makrót.
Sub Osszegzes()
Range("B1") = Range("B1") + Range("L1")
End SubTegyél a lapodra egy gombot, és ahhoz rendeld az Osszegzes makrót. A gombbal indítva a B1 cellában a teljes összeged jelenik meg.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
, hogy az üres cellát ne színezze viszont a “0” beírva már színezze ki ?
Új hozzászólás Aktív témák
Hirdetés
- Bomba ár! Lenovo ThinkPad E550 - i5-5GEN I 8GB I 256SSD I DVDRW I 15,6" HD I CAM I W10 I Garancia
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RTX 4060 8GB GAMER PC termékbeszámítással
- Napi 700 ft tól elvihető RÉSZLETRE BANKMENTES HP 840 G11 Ultra 5
- Bontatlan SteelSeries QcK 3XL egérpad
- BESZÁMÍTÁS! GIGABYTE H77-DS3H H77 chipset alaplap garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged