Příspěvky uživatele
< návrat zpět
zkus tohle makro:Sub DELIT()
For Each cell In Range("D4:P1000")
cell.Value = cell.Value / 1000
Next
End Sub
Jestli tomu dobre rozumim, tak chcete upravovat i jiz prekopirovane polozky - to je problem, protoze se to bude muset chovat nestaticky - jedine reseni, ktere me napada je, ze vzdy pri stisku tlacitka se vsechny listy (krome hlavniho) kompletne smazou a nakopiruji se do nich vzdy vsechny udaje komplente znovu.
Problem bude asi v tom, ze to bude trvat pomerne dlouho, kdyz tam mate tolik dat (dobu opravdu nedokazu odhadnout, musite si to zkusit).
Pokud by toto reseni vyhovovalo, pripravil bych novou proceduru...
a co si do druhyho listu dat vzorec, ktery vydeli tato cisla a protahnout oblast???
to nebylo zpusobeno tou chybou - na postupne doplnovani radku, ktere budou nove dodany se bude muset vymyslet jina procedura. Je ale dulezite vedet, jak se radky vyplnuji, protoze je potreba identifikovat okamzik, kdy je radek kompletni, aby mohl byt presunut (pokud to budete chtit automaticky) - jinak to lze udelat na tlacitko, ze se vzdy posledni radek presune...
zkus tohle: Sub slozka()
Dim fso
Dim Folder As String
Folder = "C:\ahoj\pondělí\práce"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Folder) Then
MsgBox "Tato složka již EXISTUJE", vbInformation, Folder
Else
MsgBox "Tato složka NEEXISTUJE ....... hned ji vytvořím :-)", vbInformation, Folder
fso.createfolder (Folder)
End If
End Sub
zrejme nemate pro vsechny radky pripravene listy - ta chyba je zpusobena tim, ze neni zadny list s nazvem, ktery je na x-tem radku ve sloupci B
asi je potreba byt zaregistrovany, ale muzete mi to poslat na mail uvedeny v mem profilu
a nemuze to byt tim, ze jednou napises "prehled" a podruhe "prehledy" - mas skutecne to jmeno souboru spravne?
toto by melo rozhodit vsechny radky z uvodniho listu
To je zvlastni, ten prikaz by mel fungovat, jestli tedy je opravdu ten sesit otevreny a jestli je jeho nazev takovy, jak je uvedeny...
Bude asi nejlepsi, kdyz prilozite nejaky vzorovy soubor 
pomuze toto? application.CutCopyMode = false
Vyborna poznamka, diky Radkub.
Tohle by to melo vyresit...co prijde dal? 
jajx, Stalker ma pravdu 
, no co no, chybicka se vloudi 
Verim, ze popisek na formulari oznacujici klavesovou zkratku si zvladnete opravit...
S tim stornem mate pravdu, to jsem opomnel, ted uz by to melo byt v poradku.
Uzamknuti pomoci alt+q je pouhe prirazeni klavesoe zkratky k makru 'zamknout' v modulu 1 a normalne mi funguje.
Heslo jste zrejme zjistil, ze je ulozeno v bunce H1 - radek 1 by se skryl a uzamkla by se struktura listu, takze to by problem nebyl.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články