Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  5 6 7 8 9 10 11 12 13   další » ... 84

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


Strana:  1 ... « předchozí  5 6 7 8 9 10 11 12 13   další » ... 84

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09