MS Excel

Ďalšie 3 možnosti makrom. To sa dá ale aj cez KT. Musíte si na reálnych dátach skúsiť čo bude lepšie. Inak pozor funkcia TRANSPOSE funguje len do cca 32K záznamov, inak je treba pole otočiť cyklom.citovat

1. Nič čo popisujete teraz, v zadaní nemáte. Tam ste mal niečo iné. Tak som to pochopil ja.
2. Takéto príklady sa nepopisujú slovami, ale príkladom vo forme súboru (XLSM súbor musí byť zabalený do ZIP), kde bude na konkrétne manuálne vytvorenom príklade ukázané čo máte, a čo má byť výsledok.
3. Aké statické polia ? Moje polia sú dynamické. Veď si pri každom spustení nájde rozsah každého poľa. Ešte si aj predošlý výsledok dynamicky vymaže.
4. Že Vám hádže zlé výsledky po "úpravách" - no veď práve. Najskôr si dajte záležať na prílohe, potom Vám snáď urobíme nejaké verzie postupov, ktoré si otestujete na reálnych dátach (reálnom množstve údajov), a zistíte, ktoré Vám pobeží najrýchlejšie, alebo bude inak vyhovovať. Či máme okomentovať všetky naše riešenia, a Vy zmeníte zadanie ?

Polepšite sa

Sem s tou prílohou, a keď bude čas...

EDIT: Čo má ten Váš uvedený kód robiť ?
-chýba End Sub - to nieje problém
-Worksheets"Tabelle4") - to funguje bez zátvorky asi ťažko
-deklarácia last_row je, last_row2 nie
-použil ste najpracnejšiu možnú formu kopírovania oblasti buniek z jedného listu do druhého - bunku po bunke
-a čo index poľa 0 a 1 ? Keď dáte Redim(2) dostanete trojmiestne pole (0,1,2)
-takže z listu Tabelle4 nakopíruje A->A , D->B, žiadne porovnávanie to nerobí.

Tá príloha s príkladom a rozšírený popis je ešte potrebnejší.citovat

Jedna z milionu cest.
Seznam hodnot ukládám do pole sValues.
Počet zjistíte pomocí Ubound(sValues)Sub test()
Dim rRange1 As Range
Set rRange1 = Range("A1").CurrentRegion
Set rRange1 = rRange1.Offset(1, 0).Resize(rRange1.Rows.Count - 1, 1)
Dim rRange2 As Range
Set rRange2 = Range("D1").CurrentRegion
Set rRange2 = rRange2.Offset(1, 0).Resize(rRange2.Rows.Count - 1, 1)

Dim sValues() As String
ReDim sValues(1 To 1)
sValues(1) = vbNullString

For Each rCell In rRange1.Cells
If Application.WorksheetFunction.CountIf(rRange2, rCell.Value2) = 0 Then
If Not Len(sValues(1)) = 0 Then
ReDim Preserve sValues(1 To UBound(sValues) + 1)
End If
sValues(UBound(sValues)) = rCell.Value2
End If
Next rCell
Set rCell = Nothing

Set rRange1 = Nothing
Set rRange2 = Nothing
End Subcitovat

Upravil som len môj 1. variant z 3 a popísal. Chcete aj ostatné moje popisovať a prerábať ? Neviem či sa s tým mám piplať (čítajte srať)
Máte tu už 5 variantov, treba si 1 vybrať a mi Vám ho popíšeme doladíme.

EDIT:Výmena prílohy, našiel som chybičku:
V starej prílohe je
WorksheetFunction.Max(R1, R1)
má to byť samozrejme
WorksheetFunction.Max(R1, R2)
Takže tu je vymenená príloha

EDIT: Opravená aj chyba, keď bolo meno iba 1, a oprava názvu poľa.citovat

Narazil jsem pri testovani na nejaky bug.

Kdyz zadam do Day2 jenom jedno jmeno do bunky (2,4) tak to spadne. Konkretne na radku - Day2 = .Cells(2, 4).Resize(R2).Value2 'načítanie mien do poľa Day2citovat