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

Příspěvky uživatele

neviem co presne potrebujete z tej stranky ale napr. pomocou makra to ide takto:

tak zmente v ConnectionString: provider-a na novsieho alebo starsieho

eLCHa: Ano, auto open je stary nazov eventu teraz sa vola tusim nejak modernejsie ale stale je to to iste auto open ... popravde ked som to zacal debugovat tak som vobec netusil kde to startuje :)))) .... az potom som si vsimol ze tam je Workbook_Open. Jedina zmena pri pouzivani auto open by nastala ze by to nebolo v module workbook ale v tom novom module .... nic ine

.... preco to mne robi zatial netusim ale ja nato dojdem hadam viacery to vyskusaju ... inac ked uz to je nabehnute v addinse tak to pekne funguje .)

tak uz som to aj odkrokoval a aj pochopil co presne to makro robi :)

debug:
- nedokoncil som to zas lebo zas robota ahhh :) ale skuste si z addinsov ten addins dat prec a otestovat nanovo nainstalovat a uvidite ze vam to vyhodi tu hlasku co som hore pisal

postreh:
- vyuzivate event Private Sub Workbook_Open() mohli ste pouzit event Sub Auto_Open()
- Kill sInstalPath & THIS_ADDIN_FULLNAME ... toto je myslim ze zbytocne kedze saveas to prepise

pri spusteni IDoNothing0_013.xlam sa to zasekne pri: With Application.AddIns
.Add sInstalPath & THIS_ADDIN_FULLNAME, CopyFile:=False

nehladal som preco, tak len davam report :)

ved uz ste si sam odpovedali :)

=IF(W5=5;"Nejde";(W5-AB5)/ABS(W5))

moja chyba mal som to skontrolovat cele

takto to mna byt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1:HB100"), Range(Target.Address)) Is Nothing Then
For x = 1 To Target.Cells.Count
aValue = aValue & Target.Cells(x).Value & ";"
Next
Call Mail_small_Text_Outlook(aValue & " Range: " & Target.Address(0, 0))
End If
End Sub

Sub Mail_small_Text_Outlook(ByVal aValue As String)
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "@"
.CC = ""
.BCC = ""
.Subject = "Zmeny v tabulce"
.Body = aValue
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

toto ste zabudli doplnit:
Sub Mail_small_Text_Outlook(byval aValue as string)

netusim v akom formate by mal byt vystup tak len takto:

prepiste tu prvu cast na toto:
Call Mail_small_Text_Outlook Target.Address(0, 0)
na:For x = 0 To UBound(Target.Cells.Value)
aValue = aValue & ";" & Target.Cells(x).Value
Next
Call Mail_small_Text_Outlook aValue & " Range: " & Target.Address(0, 0)

ja som uz taketo nieco riesil a casove oneskorenia robili problem len v tedy ked som pouzival nafest cupliky z ribornu .... inac to islo spravne ... chce to prilohu takto zas budem len hadat

.... podla mna zobralo to praznu bunku a snazi sa ju tam pastnut

OPRAVA

prepiste to takto:

Call Mail_small_Text_Outlook Target.Address(0, 0)
a
Sub Mail_small_Text_Outlook(byval aValue as string)
...
strbody = "Změnila se buňka: " & aValue
...

a obsah nechcete vediet?

do daneho sheetu dopiste event:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A10" Then Call EmailMacro
End Sub

tu by sa viac hodila priloha ... v ktorej to nejde

a Bublinka nam z toho praskne :)))

VladimirZ: skusali ste ten test file??

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse