MS Excel

Omlouvám se za pozdější odpověď, přišel jsem o celý sešit po tom, co mi odešel Flash disk, záloha nebyla, tak jsem to dával opět dohromady...

1, Již jsem zapracoval do kodu, díky za nápad.

2, Tato část hledá 1. prázdný řádek v daném sloupci, na tento řádek se pak připíše daná poznámka, poznámek může být třeba 100...

3, Učím se VBA za pochodu metodou : Pokus, omyl... Tak se nezlob, ale nějak se mi to nedaří do codu zakomponovat tak, aby bylo makro funkční, můžeš mi to přiblížit ?

4, Přidávám poznámky pouze makrem předtím do sloupce 22, nyní v novém sešitě do sloupce 20 a odtud pak beru data bez použití maker pro rozevírací seznam...

5, Pokud přidám makrem řádek a pak budu chtít přidat poznámku, poznámka se přidá jen do řádků, které jsem již v tabulce dříve měl...

6, To máš sice pravdu, ale když přidám řádek makrem a až pak přidám poznámku, nebude to v daném řádku patrné, protože makro pro přidání poznámky s tímto řádkem zatím nepočítá...asi budu muset vyhledat nějakým způsobem poslední plný řádek v tabulce a pro všechny a opět přidat poznámku i pro všechny řádky v rozmezí první až poslední v dané tabulce...(pro obě tabulky)

Jinak ty kousky codu, co si tu připsal budu muset ještě do codu nějakým způsobem doplňit, ale bude to trvat... to víš... metoda pokus, omyl :)

Přinejhorším mi snad ještě poradíš, pokud by něco nešlo...
Každopádně mnohokrát díky, bez tvých rad bych se sem nedostal ani zdaleka...citovat

No, sice to ještě není úplně odladěné, protože vše funguje dobře jen do doby, kdy není tabulka plná, jakmile se naplní všechny řádky, náhodně se u některých buněk nezkopíruje ohraničení... ale tady je tedy použitý kód...

Sub Pridat_radek()

'Přidá řádek pod poslední plný
Range("A9").End(xlDown).Activate
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).EntireRow.Copy
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Cells(ActiveCell.Row, 1).Select
With Selection
.Offset(1, 0).ClearContents
.Offset(1, 2).ClearContents
.Offset(1, 3).ClearContents
.Offset(1, 4).ClearContents
.Offset(1, 6).ClearContents
.Offset(1, 7).ClearContents
.Offset(1, 8).ClearContents
.Offset(1, 9).ClearContents
.Offset(1, 10).ClearContents
.Offset(1, 11).ClearContents
.Offset(1, 12).ClearContents
End With
Range("A2").Select
Application.CutCopyMode = False
End Subcitovat

Ok, zatím to vypadá asi takto...citovat

Tak tvé řešení je parádní, ještě nemám vše vyzkoušené, protože to musím předělat do svého sešitu, jelikož mi to jede v režimu kompatibility...

Přesto tvé řešení má pro mne jednu celkem zásadní chybu a to, že výpočet minut nepočítá s půlnocí...

tedy pokud mám čas 11:45 až 00:45 nezobrazí se očekávaných 60 minut, ale něco přez 700 minut...

Zatím jsem ale tvému řešení úplně neporozuměl, tak si nejsem jist, jak to tam dotlouct...citovat

Paráda, tak už to jede :)citovat