Jedná sa iba o 3 bunky E1, K1, Q1 (hodnota v zlúčených bunkách E1:E2 sa uchováva v E1), alebo aj inde môžu byť písmená?
Ak kopírujte Data!O2:O4 (to sú 3 riadky) do zelených polí. Tieto polia ale nie sú v stĺpci "i", ktorý nájdete hľadaním písmena.
Skúste tam ešte doplniť nejaké dáta do prílohy (lebo kontrolujete počet v oblasti zelená+1 stĺpec), a pridajte kópiu listu s požadovaným výsledkom, ak teda stlačím "Data B".
Jedná sa o totálnu prkotinu, len Vás tak pochopiť...
V žiadnom prípade nepoužívajte Copy, ale rovno Value2, a rovnako nie 3 takmer rovnaké makrá, ale jedno parametrizované. Všetko spravím ak pochopím...
EDIT:
Skúsil som sa vysomáriť z "popis vs makro". Viď príklad v prílohe.
Sub Data_X(Co As String)
Dim i As Integer
Dim rngZapis As Range
With wsObsluha
On Error Resume Next
i = WorksheetFunction.Match(Co, Array(.Range("E1"), .Range("K1"), .Range("Q1")), 0) - 1
If Err.Number <> 0 Then MsgBox Co & " neexistuje", vbCritical: Exit Sub
On Error GoTo 0
Set rngZapis = .Range("D16:D18").Offset(, i * 6)
End With
If WorksheetFunction.CountA(rngZapis) > 0 Then
If MsgBox("Pod " & Co & " se nalézají data." & vbNewLine & "Chcete je přepsat ?", vbCritical + vbYesNo) = vbNo Then Exit Sub
End If
rngZapis.Value2 = wsData.Range("O2:O4").Value2
End Sub
Sub data_A()
Data_X "A"
End Sub
Sub data_B()
Data_X "B"
End Sub
Sub data_C()
Data_X "C"
End Sub
Prečítal ste si to po sebe?
S čím sa má porovnávať vypočítaná suma v N2? Z tohto porovnania ide výsledné zafarbenie a textová hláška do Q2.
S čím sa má porovnávať vypočítaná suma v N3? Z tohto porovnania ide výsledné zafarbenie a textová hláška do Q3.
Ak porovnať N2 a N3 medzi sebou, ako chcete vypísať výsledok a farbu do Q2 a Q3??? Q2 a Q3 je zlúčená bunka ??? Pri tomto porovnaní máte jeden výsledok. Do dvoch buniek???
!!! PRÍLOHA !!!
Skúste:
=INDEX(FILTER(Hárok1!$C$2:$P$101;Hárok1!$B$2:$B$101=$A$2;"nič");SEQUENCE(10;);SEQUENCE(;14))
alebo bez SEQUENCE
=INDEX(FILTER(Hárok1!$C$2:$P$101;Hárok1!$B$2:$B$101=$A$2;"nič");{1;2;3;4;5;6;7;8;9;10};{1\2\3\4\5\6\7\8\9\10\11\12\13\14})
alebo
=INDEX(FILTER(Hárok1!$C$2:$P$101;Hárok1!$B$2:$B$101=$A$2;"nič");ROW($A$1:$A$10);COLUMN($C$2:$P$2)-2)
=INDEX(FILTER(Hárok1!$C$2:$P$101;Hárok1!$B$2:$B$101=$A$2;"nič");ŘÁDEK($A$1:$A$10);SLOUPEC($C$2:$P$2)-2)
V Office 365 je na to fnc TAKE(). Aký máte Office?
Už som doma z nemocnice, a na niekoľko riešení som prišiel. Ale záleží na tom, čo už som sa pýtal, a neodpovedal ste. A niektoré nové otázky. A riešenie sa potom už nakombinuje (pomocná tabuľka, UNIQUE, SMALL, COUNTIF, ...).
O M7=N7 a M8<>M8 o tom už nepíšte, to je každému jasné.
MUSÍTE odpovedať na každý bod !!!
1. Verzia Office na ktorej to bude prevádzkované ? (staršie verzie totiž nemajú pokročilé funkcie).
2. Čo ak dátumov potrebných na vypísanie bude viac ako 8 ? (v mojej simulácii to bez problémov nastane)
3. Môže sa zhodovať dátum v M s dátumom v N predchádzajúceho riadku? (a napíšte výsledok tohto príkladu)
1.2.2025 - 1.2.2025
4.2.2025 - 5.2.2025
5.2.2025 - 7.2.2025
4. Môže sa zhodovať dátum v M s dátumom v M predchádzajúceho riadku? (a napíšte výsledok tohto príkladu)
1.2.2025 - 1.2.2025
4.2.2025 - 4.2.2025
4.2.2025 - 7.2.2025
5. Môže výsledok obsahovať rovnaké dátumy? (to súvisí s predchádzajúcimi 2-mi bodmi)
6. Môže nastať, že bude vyplnený iba M a nie aj N? Ak áno, má sa tento M zahrnúť do výsledku? (predpokladám takú možnosť v poslednom zadanom zdrojovom riadku M)
Za "výsledok" sa považuje to, čo je v stĺpci A. Nevypisujte A8= ,A12=, ... Iba dajte dátumy pod seba.
Ešte ma nejaká otázka potom pri aplikácii odpovedí napadne, ale každopádne som dosť chorý na to, aby som niekoho dotláčal do odpovedí na svoj vlastný problém, a do toho, aby sa zamyslel nad možnými stavmi, ktoré môžu nastať a uviedol ich.
Musím byť na Vás teraz tvrdší, ak na niečo neodpoviete, končím.
Zaradím si Vás dnes zatiaľ do tej istej "kolonky", ako som sa pre chvíľou dohadoval, že je rozdiel medzi "je" a "sú", ak hovorím o vlastnostiach 2 vecí.
Váš popis mi príde nejasný. Uvádzate ideálny stav dátumov, neuvádzate ani len k nim požadovaný výsledok, ale duplom neuvediete ani taký príklad, kde sú dátumy posunuté, a o požadovanom výsledku takéhoto posunutého prípadu ani nehovorím. A čo ak bude posunutí viac? na to Vám nemusí stačiť tých 8 koloniek. Stačia 2 posuny, a koloniek je 8.
Neuvádzate, čo s prvým políčkom. Tam nie je možné pozerať o riadok vyššie.
3.2.2025 - 3.2.2025 ==> A8 = 3.2.2025
4.2.2025 - 4.2.2025 ==> A12 = 4.2.2025
5.2.2025 - 5.2.2025 ==> A16 = 5.2.2025
6.2.2025 - 6.2.2025 ==> A20 = 6.2.2025
7.2.2025 - 7.2.2025 ==> A24 = 7.2.2025
8.2.2025 - 8.2.2025 ==> A28 = 8.2.2025
3.2.2025 - 4.2.2025 ==> A8 = 3.2.2025 ?
4.2.2025 - 4.2.2025 ==> A12 = 4.2.2025
5.2.2025 - 5.2.2025 ==> A16 = 4.2.2025
6.2.2025 - 6.2.2025 ==> A20 = 5.2.2025
7.2.2025 - 7.2.2025 ==> A24 = 6.2.2025
8.2.2025 - 8.2.2025 ==> A28 = 7.2.2025
8.2.2025 - 8.2.2025 ==> A32 = 8.2.2025
3.2.2025 - 4.2.2025 ==> A8 = 3.2.2025 ?
6.2.2025 - 8.2.2025 ==> A12 = 4.2.2025 ?
10.2.2025 - 15.2.2025 ==> A16 = 6.2.2025 ?
16.2.2025 - 16.2.2025 ==> A20 = 8.2.2025 ?
20.2.2025 - 23.2.2025 ==> A24 = 10.2.2025 ?
24.2.2025 - 24.2.2025 ==> A28 = 15.2.2025 ?
25.2.2025 - 28.2.2025 ==> A32 = 16.2.2025 ?
_____________________ ==> A36 = 20.2.2025 ?
_____________________ ==> A40 = 23.2.2025 ???
_____________________ ==> A44 = 24.2.2025 ???
_____________________ ==> A48 = 25.2.2025 ???
_____________________ ==> A52 = 28.2.2025 ???
Chápete, na čo narážam? Udajte takéto presné príklady toho, čo má kedy nastať.
=SUMPRODUCT((Source_Board!$D$4:$O$4<=$B$4)*(Source_Board!$C$5:$C$35=$A5);Source_Board!$D$5:$O$35)
=SOUČIN.SKALÁRNÍ((Source_Board!$D$4:$O$4<=$B$4)*(Source_Board!$C$5:$C$35=$A5);Source_Board!$D$5:$O$35)
Tie vzorce chcete do Board!D5:D...?
Čo je to za bunku $B$64 ???
EDIT:
To má byť asi $B$4 (6 je tam pleklep asi). Má to byť mesiac ? Teda v Source_Board!D4:O4 sú mesiace? Prečo potom z B4(pôvodne B64) pomocou EOMONTH zisťujete posledný deň mesiaca? Porovnávate tak číslo mesiaca s dátumom jablká a hrušky.
Alebo sú Source_Board!D4:O4 čísla dní (lebo dátumy to nie sú)? Prečo iba 12? A znovu platí jablká a hrušky (číslo dňa s dátumom).
Poriadne to vysvetlite.
PF?
Platí pre odpovede:
-nie
-áno
-10
-nie
-časť textu?
-celý text?
-koľko je druhov farieb?
-viac farieb v jednej bunke?
-...
príloha na ukážku...
Napr.
Ale skontrolujte si to.
Skúste to, čo sa spomína tu
Veď skúste COUNTIFS, uvidíme, ako to bude s výkonom. Teda predpokladal som, že ide o kombináciu SERIA AND DOKLAD.
V PQ mi hore píše Upraviť poverenia - kliknem na ten čudlík - potvrdím anonymné - funguje.
EDIT: Aha, tak máte pravdu, nefachá to ani tak. Pritom je adresa správne, ako aj na webe. Teraz nejdem ale laborovať...
No to makro by bolo treba prekopať komplet celé. A na to fakt nemám čas. Skontrolujte si, či je to OK.
V module ThisWorkbook som pridaním 2 do názvu vypol Workbook_Open a Workbook_AfterSave.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.