MS Excel

Téma: MAKRO - Vypsání adresy buňky

Zaslal/a Ilendor 4.7.2014 8:12

Dobrý den.

Potřeboval bych poradit, jak vypsat adresu buňky pomocí makra.

Konkrétněji: Dal jsem s pomocí strýčka Googlu dohromady makro, které mi při změně buňky v dané oblasti odešle e-mail. Nyní bych do textu tohoto e-mailu potřeboval dostat výše zmíněnou adresu buňky.

Např. pokud změním buňku A10, chci aby se odeslal e-mail s textem: Hodnota buňky A10 se změnila.

Díky předem za pomoc.

Zaslat odpověď >

Strana: « předchozí 1 2

Palooo(4.7.2014 15:55)#020362

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

citovat

Strana: « předchozí 1 2

Téma: MAKRO - Vypsání adresy buňky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje