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

Příspěvky uživatele

Ahojte.
Chtěl jsem se zeptat, zda někdo náhodou nemá sešit, kde by se mu čísla převáděla na text, ale pomocí vzorce, ne funkce.

Našel jsem jen toto od Pavla Lasáka (díky za jeho stránky). Ale bohužel to funguje jen do 9999.

Nenašel by se někdo kdo by to překopal do 100.000.000+haléře?

Kucí nevíte někdo jak poslat písmenka s českou diakritikou pomocí metody sendKeys? Když pošlu:
Application.SendKeys "ČR" tak mi to odešle malé č.

Hoj Ludé,
chtěl jsem poprosit mám tento code:


Sub odeslatMail()
'odeslani mailu
Dim dotaz As Integer
dotaz = MsgBox("CHCETE VYTVOŘIT MAIL?", vbYesNo, "ODESLAT MAIL?")
If dotaz = 6 Then 'odpoved ano
Dim teloMailu As String
Dim prijemce As String
Dim prijemceKopie As String
Dim prijemceSkrytaKopie As String
Dim predmet As String
Dim sHLink As String
'vyhledat prijemce
Dim klientNazev As String
Dim radek As Integer 'urcit startovaci radek
Dim sloupec As Integer 'urcit startovaci sloupec

klientNazev = Worksheets("faktura").Range("odberatel_nazev").Value

radek = 29
sloupec = 4
'hledam klienta v db
For a = 1 To 100
If klientNazev = Worksheets("List2").Cells(radek, sloupec).Value Then
'naplnit adresata mailu
prijemce = Worksheets("List2").Cells(54, sloupec).Value
'cislo uctu
Dim cisloUctu As String
cisloUctu = Worksheets("List2").Cells(56, sloupec).Value
Dim kodBanky As String
kodBanky = "0000"
Dim varSymbol As String
Dim castka As String
If Worksheets("faktura").Range("ucelPlatby").Value = "Nájem" Then
varSymbol = Worksheets("List2").Cells(58, sloupec).Value 'platba za podnajem
castka = Worksheets("List2").Cells(40, sloupec).Value 'castka podnajmu
End If

If Worksheets("faktura").Range("ucelPlatby").Value = "Služby" Then
varSymbol = Worksheets("List2").Cells(59, sloupec).Value 'platba za sluzby
castka = Worksheets("List2").Cells(60, sloupec).Value 'castka sluzby
End If



Exit For
Else
sloupec = sloupec + 1
End If
Next a

prijemceKopie = "a@a.cz"
prijemceSkrytaKopie = ""

If Worksheets("faktura").Range("M23").Value = "podnajem" Then
predmet = "Podnájem " & Worksheets("faktura").Range("datum").Value & " a služby " & Worksheets("faktura").Range("datum").Value
Else
predmet = "Nájem " & Worksheets("faktura").Range("datum").Value & " a služby " & Worksheets("faktura").Range("datum").Value
End If

' entr = vbCrLf
teloMailu = "Dobrý den," & vbLf & vbNewLine & _
"v příloze tohoto mailu Vám zasílám fakturu pro úhradu. Tímto bych Vás chtěl požádat o úhradu každé faktury zvlášť." _
& vbCrLf & vbCrLf

sHLink = "mailto:" & prijemce & "?" & "cc=" & prijemceKopie & "&" & "bcc=" & prijemceSkrytaKopie & "&"
sHLink = sHLink & "subject=" & predmet & "&"
sHLink = sHLink & "body=" & teloMailu
ActiveWorkbook.FollowHyperlink (sHLink)

End If
End Sub


jedná se mi hlavně o tento code:


teloMailu = "Dobrý den," & vbLf & vbNewLine & _
"v příloze tohoto mailu Vám zasílám fakturu pro úhradu. Tímto bych Vás chtěl požádat o úhradu každé faktury zvlášť." _
& vbCrLf & vbCrLf


ten mi vygeneruje v mozila thunderbirdu totok:


Dobrý den,v příloze tohoto mailu Vám zasílám fakturu pro úhradu. Tímto bych Vás chtěl požádat o úhradu každé faktury zvlášť.


Je to celé v jednom řádku a nechce se mi zalamovat potola jedna
Poradí něgdo?
Jo a kdyby něgdo věděl jak tam namontovat i přílohu tak bych byl fakt vděčný.

Hojte asi se to sem nehodí, ale potřeboval bych někoho kdo by mi pomohl napsat, nebo spíše upravit informační systém, který jsem si vytvořil. Nejlépe někdo z okolí Brna, Hodonína. Teoreticky by se to dalo zvládnout i přes TeamViewer. Pokud by se někdo ochotný našel tak do mi dejte vědět do SZ. Dííííky

hoj lidičkové, potřeboval bych radu. Z jednoho sešitu pomocí vba vytvořím novou aplikaci excelu a do ní načítám sešit. Do tohoto sešitu uložím data a pak tyto data zobrazuji. A potřeboval bych, aby sešit, z kterého toto volám, počkal, než uzavřu ten nový volaný sešit. Mně to prostě běží dál. A pokud nový sešit zavřu a uložím tak mi to hodí chybu za běhu programu.


'otevreme databazi v novem okne
sesitDatabaze.Workbooks.Open ThisWorkbook.Path & "\...\databaze.xlsm"
sesitDatabaze.ActiveWorkbook.Windows(1).Visible = True
sesitDatabaze.Visible = False

MsgBox "Mail nenalezen!"

Dim odpoved As Integer
odpoved = MsgBox("Chcete zapsat nový záznam do databáze?", vbYesNo, "INFO")

If odpoved = 6 Then
.
.
.

Dim navratHodnota As Integer
navratHodnota = 0

‘ODTUD MI TO DĚLÁ BORDEL
Do While (navratHodnota = 0)
navratHodnota = MsgBox("Data byla zapsána. :-)")
Loop
sesitDatabaze.Rows(oblastI_poslRadek).EntireRow.Select
AppActivate sesitDatabaze.ActiveWorkbook.Windows(1).Caption
sesitDatabaze.ActiveWorkbook.Save


chtěl jsem aby mi to zastavilo na msgboxu a po odkliknutí ok se mi teprve zobrazil ten záznam, ale ono to zobrazí záznam a na pozadí se mi bliká msgbox
‘

Hoj lidičkové, už jsem dlouho nic nepotřeboval tak to du napravit
Potřeboval bych poradit s polem.
příklad
mám form s 3 checkboxy (nebe, voda, vzduch) a jedním tlačítkem, když se zaškrtne chbx tak se do pole přidá text (nebe, voda, vzduch - podle toho co se zaškrtne), ale netuším jak to vymazat? např. zaškrtnou se všechny chbx, tak se uloží do pole 3 hodnoty. A když jeden chbx odškrtnu tak netuším jak to vymazat tu konkrétní hodnotu. Díky za info a pomoc.

nikdo

Otestujte zda je outlook spuštěn:

Sub TestOutlookIsOpen()
Dim oOutlook As Object

On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0

If oOutlook Is Nothing Then
'tady ho spustite
Else
'tady zapiste co chcete udelat pokud bezi
End If
End Sub

A jen tak pro zajímavost co když bude na PC např. Thnunderbird?

Hoj lidi,
potřeboval bych poradit jak si zajistit výpis i podstránek multipage stránky. Vypisuje mi to jen ty multipage, ale už ne podstránky. Nevíte někdo jak na to?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse