MS Excel

Ahoj,

potřebuji pomoc s UserFormem...

Mam vytvořeny UserForm s několika TextBox. Po odkliknuti CommandButton1 se provede příkaz, který otevře novou zprávu Outlook. Předmětem je text z UserForm1.TextBox1, příjemce je text z UserForm1.TextBox2 a podobne...

Krom toho mam udelany UserForm2 s TextBox1. Potřeboval bych na konec kodu přidat ještě kod, který otevře UserForm2 a do TextBox1 vloží text: "Na e-mailovou adresu" Userform1.TextBox2 "byl odeslán e-mail..."

Prosím o pomoc... hledam to i na googlu a nevim jsi s tim rady... Díky za ochotu

Zaslat odpověď >

misocko(15.2.2011 17:16)#004104

Private Sub CommandButton1_Click()

Range("A1") = TextBox1 'text z textboxu ulozime do nejakej nepouzitej bunky
Unload Me
UserForm2.Show
TextBox1 = "Na e-mailovou adresu" & Range("A1") & "byl odeslán e-mail..."
End Sub

asi by to slo vlozit aj do nejakej premennej ale naco mame v liste tolko prazdnych buniek?citovat

misocko(15.2.2011 17:25)#004105

tak som bol trochu rychli a zistil som ze to nejde

Oprava:
Private Sub CommandButton1_Click()
Range("A1") = TextBox1 'text z textboxu ulozime do nejakej nepouzitej bunky
Unload Me
UserForm2.Show
End Sub

a v UserForm2 das

Private Sub UserForm_Activate()
TextBox1 = "Na e-mailovou adresu" & Range("A1") & "byl odeslán e-mail..."
End Sub

toto som aj vyskusal

citovat

Poki(16.2.2011 13:42)#004112

Promennou lze mezi procedurami predavat takto:
Sub Prvni_procedura()
Dim Promenna As String
Promenna = "toto je hodnota"
Call Druha(Promenna)
End Sub

Sub Druha_procedura(ByVal Promenna)
MsgBox Promenna
End Subcitovat

LeslieBrown(16.2.2011 19:13)#004121

Díky Poki, pomohlo

citovat

Téma: UserForm TextBox

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje