Příspěvky uživatele

asi som blby ale z tych dvoch udajov neviem zistit o aku postupnost vlastne ide (co bude dalsie za atd....), a neviem v akom formate chces mat vysledky (riadky stlpce, tabulka alebo co) - daj subor kde budu vypocitane aspon dva riadky zo zadania

skus toto - (mne to neslo) viac na http://www.rondebruin.nl/cdo.htm

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
' = "Fill in your SMTP server here"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.From = """Ron"" <ron@something.nl>"
.Subject = "New figures"
.TextBody = strbody
.Send
End With

End Sub

das nam aj subor?

dakujem

ahojte

ako zamknem list s heslom pomocou makra

odomknutie zaheslovaneho sa mi podarilo

Sub odomkni()

Application.SendKeys ("heslo")
Application.SendKeys ("~")
ActiveSheet.Unprotect

End Sub

ahojte

chcel by som si vytvorit vlastnu fukciu "priemer" s viacerimi podmienkami, ale neviem ako previest napr "<5", "=5" ...... na rec ktorej bude excel v funkcii rozumiet a nikde to neviem najst. ma s tym niekto skusenosti?

dakujem

dakujem

sice nechapem preco mi to vcera vzdy vyhodilo chybu pri zapise bunka.Value , ale dnes to funguje a to je hlavne

PS. ide to aj bez toho True

este raz dik

ahoj

tak mas pravdu ze som if zbytocne ukoncil ale to nebol hlavny moj problem
nemas pravdu ze IsError musim ukoncit = True , ak nechcem mat False tak True to bere automaticky -nemusis to tam pisat

tvoj kod bohuzial neriesi moj problem sice nehadze chybu ale nic nerobi

vyriesil som to
Sub Makro1()

For riadok = 3 To 7
For stlpec = 1 To 9
If IsError(Cells(riadok, stlpec)) Then
Cells(riadok, stlpec).Value = 0
End If
Next stlpec
Next riadok

End Sub

ale rad by som pochopil aj For Each

vie mi niekto pomoct? dakujem

Ahojte

chcem prejst oblast a ak sa v niektorej bunke nachadza chyba chcem nastavit hodnotu bunky na 0, zvladol by som to cez dva cykly For (riadok , stlpec, cells) ale rad by som pochopil aj to For Each

Sub Makro1()
Dim oblast
Dim bunka
oblast = Range("A3:BC7")

For Each bunka In oblast
If IsError(bunka) Then bunka = 0 'A tu mame chybu
End If
Next bunka

End Sub

dakujem

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

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?

ActiveWindow.ScrollRow = X

x je riadok ktory chces zobrazit

nasiel som to

z.SetFocus

Ahojte

potrebujem oznacit Textbox "Z" automaticky po tom co vyberiem niektoru ZMENU (potrebujem skratka oznacit konkretny textbox - je na to prikaz alebo nieco?)

dakujem

neviem preco hlasi poskodeny archiv , mne to ide aj po stiahnuti, ale dik pomohlo mi to

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje