Příspěvky uživatele
< návrat zpět
spis ukaz ten soubor, kde je makro - to ktere uklada csv
takze pouzivas anglicke office?
jaky mas OS a office?
___
Mozna by mohlo pomoci, kdyz vynechas to dalsi ulozeni:
activeworkbook.save
pridal jsem jednu vlastnost:
ActiveWorkbook.SaveAs Filename:="P:\PS\PRODUKCE\st_produkce\" & Format(Now, "yy-mm-dd") & "_aktualizace_st_produkce.csv", _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True
jeste muze byt ve vlastnostech listu (VBE) nastavena ScrollArea (jinak uz nevim)
rekl bych, ze to je kvuli tomu, ze kdyz jste zamykal listy, tak nekde mate 'Vybrat uzamcene bunky' ZAŠKRTNUTO (pak se lze pohybovat mezi uzamcenymi bunka ENTERem nebo sipkami) a nebo tuto volbu NEMATE ZAŠKRTNUTOU (a pak to zkratka nejde)...
To makro, co jste uvedl na to urcite vliv nema...
Lze to udelat dvema zpusoby, ten jednodussi je asi tento:
stisknete Alt + F11 (objevi se editor VBA)
Vlevo nahore byste mela videt vsechny otevrene Projekty (otevrene sesity) a jeden z nich je PERSONAL.xlsb - rozbalte si tento projekt a v podslozce 'Modules' dvakrat klidnete na Modul - vpravo se objevi jeho obsah - a to makro, ktere chcete smazat, jednoduse oznacte a smazte (DEL) - pri zavreni Excelu se vas zepta, jestli chcete ulozit zmeny v osobnim sesite maker - ANO.
... a je to...
no, Jestli je cilem opravdu smazat a pak pridat komentare, udelal bych to asi takto:
Dim Oblast As Range
Set Oblast = Range("C1:F2")
'odstraneni vsech komentaru z Oblasti
Oblast.ClearComments
'Vlozeni komentaru
For Each BUNKA In Oblast
If BUNKA.Value <> "-" And Len(BUNKA.Value) <> 0 Then
BUNKA.AddComment
BUNKA.Comment.Visible = False
BUNKA.Comment.Text Text:="Adresa Buňky: " & BUNKA.Address & vbNewLine & "Čas: " & Now
End If
Next BUNKA
Mozna by to slo takto, ale netestoval jsem to:
Dim CMB As Control, i As Long
i = 2
For Each CMB In Me.Controls
If CMB.Name = "CommandButton" & i Then
CMB.Enabled = False
End If
Next CMB
Tak je to tu, udelal jsem to cele pomoci makra...
Staci na liste Souhrnne tabulky stisknout tlacitko 'UPDATE!
...snad to je podle predstav...
Uf, to je hodne otazek, ale zkusim to:
Vase podminky IF:
1) If bunka.Value <> ("-" Or "") -> tohle je proste uplne spatny zapis
2) If bunka.Value <> "-" Or bunka.Value <> "" - tohle by fungovalo, ale mate tam OR (logicky to pak nemuze vyjit - musi tam byt AND)
3) If bunka <> "-" Or bunka <> "" - tohle by fungovalo, ale mate tam OR (logicky to pak nemuze vyjit - musi tam byt AND)
Upravit velikost komentare lze:
bunka.Comment.Shape.TextFrame.AutoSize = True
Zelene pole kodu
dostanete tak, ze kod vlozite mezi znacky (code) ...tady bude kod...(code) (v hranatych zavorkach [] - kliknutim na znacku dolaru $ v editoru se vam znacky zobrazi)
co tohle.
If bunka.Value <> "-" And Len(bunka.Value) <> 0 Then
bunka.AddComment
bunka.Comment.Visible = False
bunka.Comment.Text Text:="KOMENTÁŘ"
End If
Zkusim se na to podivat, ale momentalne nemam cas, takze to chvili potrva - treba to ale zatim zvladne nekdo jiny :)
Jde o to vyplnit sloupec A (unikatni kody) tak, aby tam byly vsechny hodnoty z listu 1 a 2, ale neobsahovaly duplicity.
Momentalne me nenapada snadnejsi reseni nez pomoci makra (dalsi hodnoty se dotahnou pomoci vzorcu).
Je to prijatelne reseni?
co takto?
Sub SeznamSouboru()
Dim Cesta As String, Soubor As String
Dim i As Long, Sloupec As Long
Cesta = "C:\Documents and Settings\admin\Desktop\veci pre rada" 'Musí končit zpětným lomítkem
Soubor = Dir(Cesta & "*.*") 'lze nastavit jen určité soubory, např. "*.doc"
Sloupec = 1
'smazani puvodnich hodnot ve Sloupci
Columns(Sloupec).ClearContents
'doplneni novych souboru do Sloupce
i = 1
Do While Soubor <> ""
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, Sloupec), Address:=Cesta & Soubor, TextToDisplay:=Soubor
Soubor = Dir
i = i + 1
Loop
End Sub
a co to vubec nekopirovat, jen priradit hodnoty?
takto:
sheets("L5A").Range("B4:B16") = sheets("shift_1").Range("B4:B16").value
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