• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Silně pochybuji, že nákup novější verze vyřeší "tento problém".
Tak si "to" číslo vynásob jedničkou a bude to opravdu číslo a né text.

Můžeš specifikovat vyjádření "nepočítá to".

I když už je asi pozdě. Dobré výsledky jsem měl s R-Studio (Recuva ani GetDataBack se nechytali).

A proč tedy nepracuješ s codename listu pod kódem VBA stejně jako si to použil zde List1.Cells(1,1)?
Uživatel si může list pojmenovat podle svého nebo změnit pořadí a kódu je to jedno.
Nebo si codename listu změn podle svého.

Co se týče toho kodu:
nazev_listu = List1.Cells(1, 1)
Sheets(nazev_listu).Activate

Druhý odkaz a odpověď od elninoslov(29.3.2017 8:18)?

číslování stránek (vlastní zápatí) např:
&[Stránka] z &[Stránek]
Co se týče hodnoty buňky do zápatí = makro
http://wall.cz/index.php?m=topic&id=404
http://wall.cz/index.php?m=topic&id=2864http://wall.cz/index.php?m=topic&id=2864
a
http://office.lasakovi.com/excel/vba-listy-sheet/zahlavi-zapati-excel-vba/#02

Něco jako se probíralo zde:?
http://www.jaknaoffice.cz/2-forum/?id=3397

Moc sem to nestudoval, ale pokud chceš načítat data z listu do formuláře máš ten kód obráceně
'přenesení údajů z pomocného listu do kolonek formuláře
Sheets("ares").Range("AJ3") = txtPLNYNAZEV 'přenesení názvu firmy
Sheets("ares").Range("DA3") = txtULICE 'přenesení ulice
Sheets("ares").Range("DD3") = txtPSC_MISTO 'přenesení č.p.
Sheets("ares").Range("AK3") = txtIC 'přenesení ič

by mělo být takto:
Me.txtPLNYNAZEV = Sheets("ares").Range("AJ3")
Me.txtULICE = Sheets("ares").Range("DA3")
Me.txtPSC_MISTO = Sheets("ares").Range("DD3")
Me.txtIC = Sheets("ares").Range("AK3")

Co přesně je špatně?
Nebude zádrhel někde kolem vkládání vzorce?
Zkoušel jsi prosté .Formula místo .FormulaR1C1?

?Sub POKUS1()

Dim MaxB As Long
Dim Oblast As Range

MaxB = Cells(Rows.Count, 2).End(xlUp).Row
Set Oblast = Range("C5:C" & MaxB)

Range("C5").FormulaR1C1 = "=SUMIFS(DATA!C[-1],DATA!C[-2],VYPOČET!RC[-1])"
Range("C5").AutoFill Destination:=Oblast
Oblast.Copy
Oblast.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Set Oblast = Nothing
End Sub

=POČET2(NEPŘÍMÝ.ODKAZ("'"&B1&"'!B3:B39"))

Ahoj pokud si chceš hrát s formátováním mail musí být v HTML což jde absolutně mimo mě, ale pomocí netu jsem zkusil slepit toto:
.BodyFormat = olFormatHTML
.HTMLBody = "<font face = ""Times New Roman"" size=""12"">Dobrý deň!<br>Prosím o nahodenie dodatku do MOSu!<br>Ďakujem</font>"

a vypadá to, že by to mohlo být funkční.

Co se týče podpisu nemám ponětí. Tady je pár odkazů zkus si s tím pohrát.

https://stackoverflow.com/questions/8994116/how-to-add-default-signature-in-outlook

https://www.rondebruin.nl/win/s1/outlook/signature.htm

https://windowssecrets.com/forums/showthread.php/163512-Add-Signature-to-HTML-email-using-VBA

Do kódu přidáš tento řádek:
.Body = "Dobrý deň!" & vbCrLf & "Prosím o nahodenie dodatku do MOSu!" & vbCrLf & "Ďakujem"

Třeba takto:
Sub VytvorList()

Dim JmenoListu As String

Application.ScreenUpdating = False
Sheets.Add After:=Worksheets(Sheets.Count):
Range("B2").Value = "Aktualizováno:"
Range("B3").Value = WorksheetFunction.Text(Sheets("Zadávací_list").Range("F7").Value, "d.m.yyyy h.mm.ss")
JmenoListu = Range("B3").Value
On Error Resume Next
ActiveSheet.Name = JmenoListu
If Err.Number = 1004 Then

Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
MsgBox "Nelze provést! => List s požadovanými daty již existuje!" & vbNewLine & "Proveďte novou aktualizaci dat tlačítkem Načti data na záložce Zadávací_list.", vbCritical, "!!! VAROVÁNÍ !!!"
Sheets("Zadávací_list").Select
Exit Sub
End If
On Error GoTo 0

Range("A11").Select
ActiveWindow.FreezePanes = True
Application.ScreenUpdating = True
End Sub


Jelikož se mi už chce spát, moc sem na tom nepřemýšlel. Určitě to půjde udělat i jinak.

Edit: Koukám, že elninoslov taky nemohl zabrat. Není nad to udělat refresh stránky Dobrou.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse