Příspěvky uživatele

Minulý rok jsem každý den měřil data (sloupec B), ale každý den byl jiný počet dat, takže nejde přesně říci číslo pro každý den stejné. Přišlo mi jednodušší tedy oddelit dny od sebe a potom jet od prázdného řádku k prázdnému. Pro každý den (sloupec A) potřebuji, aby se vybrala nejnižší hodnota ve sloupci B. Nejnižší hodnot potom zapsat do sloupce G k danému dni, tedy G1 za 1.1.2021. Za 2.1.2021 zapsat do G2 atd.

Soubor zde

Již jsem mezeru vyřešil.

Ale nyní v makru PrenosDat bych chtěl vybrat pro daný den ze sloupce B nejnižší hodnotu a vepsat ji do sloupce G postupně k danému dnu.

Data jsem trochu promazal, jelikož těch hodnot bylo 55000 tisíc.

Ahoj,

mám seznam celého roku s naměřenými daty, ale každý den bylo naměřeno různý počet dat. Takže bych potřeboval na konci každého dne vložit prázdný řádek. Dokázali byste mi poradit?

Napřiklad ze sešitu květen, by se měly hodnoty ze sloupců A,B,C přenést na sešit prohlášení opět do sloupců A,B,C, ale až od 16 řádků. Vždycky po jednom jménu a ty datumy by měly být v prohlášení seřazeni za sebou. Mně to vždycky zkopíruje až poslední řádek z hodnot, ikdyž jsem dal větší rozsah v prohlášení, tak to stejně vyplni pouze hodnotou z posledního řádku u jména. Nejhorší je, že počet jmen je pokaždé různý a počet dnů docházky je také pokaždé různý. Nejsem žádný profík, ale přes ty for cykly mi to přislo nejlepší.

Kdybych ty data kopíroval na stejný list, tak mi to funguje, ale nedokáži, aby se ty data kopírovali na jiný list do stejného místa pokaždé. Zas tak složité mi to nepříjde, jen neznám potřebný kod.

Vlastně bych vždycky potřeboval zkopírovat z měsíce tabulky ve sloupci A, dát je v prohlášení na A16(aby byly pod sebou datumy). Potom to samé B i C. Pak to v prohlášení zase smazat a další tabulka. Mezi tím se to uloží v pdf, ale to už bych zvládnul sám. Tady je kdyžtak soubour https://uloz.to/file/1dhFDDGYdcQ0/vba-tabulky-xlsm. Díky moc všem

Ahoj,

řeším problém s tabulkami. Mám takovýhle kod:

n1 = 3
For c = 1 To 100
If Len(Cells(n1, 1)) = 0 Then
Exit For
End If
For radek = n1 To 100000000
If Len(Cells(radek, 1)) = 0 Then
Exit For
End If
Worksheets("Duben").Cells(radek, 1).Copy Worksheets("Prohlaseni").Range("A16")
Worksheets("Duben").Cells(radek, 2).Copy Worksheets("Prohlaseni").Range("B16")
Worksheets("Duben").Cells(radek, 3).Copy Worksheets("Prohlaseni").Range("C16")

Next radek

n1 = radek + 1
MsgBox n1
Next c
End Sub

Tabulka má neznámý počet řádků a je neznámý počet tabulek. Potřebuji, aby mi to vždycky tu tabulku co zkopíruje, tak přeneslo na jiný list a vždy začínalo na stejném místě. Mně se vždycky podaří zkopírovat až poslední hodnotu a přenést to na další list. Nedokázal byste mi někdo pomoc?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje