Hozzászólások
-
Vagy másik megoldás. Az Excel saját beépített funkciója. Kijelölöd az $I$2:$I$55 tartományt, majd feltételes formázás (menüszalagon találod)>> új szabály>> Szabály megadása képlettel, és oda bírod: =I2>K2. A formátum gombbal pedig beállítod a színt.
Ugyanezt a K oszloppal, csak =K2>I2.
Ez a megoldás talán még egyszerűbb és nem igényel makrót sem.
Remélem ez már megfelel.Update: Imre megelőzött 🙂
Igen, erre gondoltam. Mit össze keresetem mindenhol, de sehol nem bukkantam rá. Pedig az Evaluate függvénnyel már dolgoztam is. A Match pedig pofátlanul logikusnak tűnik, mert a legtöbb angol fórumon inkább csak a min és max elemet keresték, de úgy tűnik igazolódni látszik, hogy sok esetben a legegyszerűbb megoldás a legkézenfekvőbb
Ezer köszönet. Örülök, hogy van ez a fórum. Persze még mindig nem működik valamiért, de nagyon sokat segítettél! Így néz ki egyébként a kis rutinom, aminek nem tetszik sem a nevek.Count, a nevek(i)-nél pedig azt mondja, hogy a tartományon kívül esik:Sub ment()
Dim nevek
nevek = [dolgozok]
t = UserForm1.TextBox3.Value ‘ Melyik hónapra szeretnénk a kimutatást? Ha üres, összes hónapra, azaz éves.If t <> „” Then
For i = 1 To nevek.Count
i = nevek(i)
ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Hónap”).PivotFilters.Add Type:=xlCaptionEquals, Value1:=t
ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Név”).PivotFilters.Add Type:=xlCaptionEquals, Value1:=i
fname = Left(ActiveWorkbook.Name, 8)
ChDir („c:\temporary\Munkaidő”)
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=i & ” ” & t & ” ” & fname & ” ” & Date, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveSheet.PivotTables(„Kimutatás1”).PivotFields.ClearAllFilters
i = WorksheetFunction.Match(i, nevek, 0)
Next iElse
For i = 1 To nevek.Count
i = nevek(i)
ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Név”).PivotFilters.Add Type:=xlCaptionEquals, Value1:=i
fname = Left(ActiveWorkbook.Name, 8)
ChDir („c:\Users\Andras\Documents”)
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=i & ” ” & „éves” & ” ” & fname & ” ” & Date, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=FalseActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Név”).ClearAllFilters
i = WorksheetFunction.Match(i, nevek, 0)
Next iEnd If
ActiveSheet.PivotTables(„Kimutatás1”).PivotFields.ClearAllFilters
End Sub
A Powerpivot-tal már ismerkedtem, a Powerquery-vel még nem, de azt hiszem itt az ideje 🙂
Tényleg óriási lehetőségek vannak benne és nem kell megírnom a makrót sem.
Nagyon hálás vagyok! Nagyon-nagyon köszönöm!
Remélem lesz majd hamarosan egy Power kiegészítő tanfolyam is 😉 Ha igen én tuti megyek!
Köszönöm!
