Pokud to funguje, je to OK.
Jen chci upozornit, ze vlastnim funkcim se nekdy nechce prepocitavat a nelze se na ne 100% spolehnout
co takto: =ZLEVA(A4;HLEDAT(".";A4;HLEDAT(".";A4)+1)-1)
If IsEmpty(TextBox3.Value) = False then
Cells(radek, 9) = cdbl(TextBox3.Value)* -1
End If
tak to nebude tak tezke osetrit nejakou IF podminkou, co?
co takto:
Cells(radek, 9) = cdbl(TextBox3.Value)* -1
Mas pravdu, problem je v definici prvniho volneho radku. Pri pouziti usedrange se bere v uvahu jakkoliv vyplnena bunka(tedy i vzorcem).
Zkusil bych definovat prvni prazdny radek takto:
radek = ActiveSheet.Cells(1000000, 1).End(xlUp).Row + 1
Tak to je mi lito, takoveto zobrazeni grafu zrejme nepujde vyjadrit, protoze pokud vim, tak excel umi vypsat rovnici jen pro trendove krivky - tam by tedy bylo mozne nalezt jakykoliv bod, ale takto se obavam, ze to nepujde...
Nicmene myslim, ze aproximace spojeni bodu krivkami nebude generovat velkou chybu...
Nevim, jestli jsem to pochopil spravne, ale zkuste se podivat na funkci NEPŘÍMÝ.ODKAZ
Zdravim,
Nevim, z jakého duvodu chcete data kopirovat do speciálních listu, ale pokud nemate nejaky specificky duvod, proc to chcete delat, tak bych to rozhodne nedoporucoval, když je mozne zcela jednoduše filtrovat data v listu ‚Total‘.
Doporučoval bych na list ‚Total‘ pridat sloupec Dodavatel, podle kterého by bylo snadne filtrovat.
Dále pridat formular, který by zjednodušil vkladani novych informaci a mozne je i filtrovat pomoci makra, kde byste se jednim klikem dostal na soupis konkrétního dodavatele.
Zadne tam nikde neni - melo by byt v sesitu vysledek, ale tvurce sem ulozil zrejme spatnou verzi a bude to muset napravit
zkuste toto:Sub nevim()
Dim i As Integer
Dim comment As String
For i = 2 To 4
comment = comment & Chr(10) & Cells(i, 1) & " " & Cells(i, 2)
Next
Cells(1, 1).comment.Text Text:="položka CZK" & comment
Cells(1, 1).comment.Shape.TextFrame.AutoSize = True
End Sub
Dalsi moznosti by bylo vytvorit specialni list, ktery byl napojeny na list vychozi (pouze by se v nem neskryvaly \'Zpracovane\' polozky) a vyhledavalo by se v nem...
To jsem prave myslel, ze mate udelane (to preddefinovane prostredi) - daleko jednodussi by bylo vytvorit cely komentar znovu!Mozna by bylo vyhodne lip nadefinovat, co PRESNE potrebujete...
Oznacte vsechny bunky listu, jehoz podmineny format chcete pouzit pro dalsi listy a stisknete ikonu 'Kopirovat format'.
Pote vyberte listy, na ktere chcete tento format uplatnit a kliknete na vyber vsech bunek (spojnice nazvu radku a sloupcu)
co takto?
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.