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

Příspěvky uživatele

Ahoj

Co takto

Ahoj

JJ presne to Dakujem.Este mam otazku keby som to chcel otvarat s userform1 a casovo zobrazovat userform 2 ?

Rozsirujem obzory

Nieco nasiel ale jak donej dostat ciklus sa mi nepodarilo

Ahoj

Mam dalsi problemik. Potreboval bych poradit, Nejak sa nemozem dopracovat k casovemu zobrazovaniu userform.

Staci aby sa kazdu 1min zobrazilo a o 1min zas vyplo.

Dik uz to jede

Co takto :)

Ahoj k niecomu som sa prepracoval ale pri zadani jednej podmienky to neformatuje. Neviem kde mam chybu v makre.

Ahoj

Dik moc

Ahoj

Mam mensi proble s priemerom ak v niektorom s textboxu nieje zadana hodnota tak nefunguje. Budem vdacny za kazdu radu.

Kod "

Private Sub CommandButton31_Click()

a = TextBox145.Text
b = TextBox152.Text
c = TextBox158.Text
d = TextBox164.Text
e = TextBox169.Text
f = TextBox175.Text

TextBox181.Text = CStr(CLng(a) + CLng(b) + CLng(c) + CLng(d) + CLng(e) + CLng(f)) / 6

End Sub

Ahoj

Mam mensi prohlemik s formatom textboxu podla zadanej hodnoty. Vse slape ako ma pokial nezmenim podmienku v comboboxe. treba nejak resetovat textbox aby to znovu prebehlo cez makro pls tuje kod :

Private Sub TextBox145_Change()
Dim x
x = ComboBox10.Value
If x = DTS Then
End If
If [TextBox145] > 31 Then
[TextBox145].BackColor = vbGreen
End If
If [TextBox145] = 31 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 30 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 29 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] < 29 Then
[TextBox145].BackColor = vbRed
End If

x = ComboBox10.Value
If x = NTB Then
End If
If [TextBox145] > 59 Then
[TextBox145].BackColor = vbGreen
End If
If [TextBox145] = 59 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 58 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 57 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] < 57 Then
[TextBox145].BackColor = vbRed
End If

x = ComboBox10.Value
If x = AiO Then
End If
If [TextBox145] > 19 Then
[TextBox145].BackColor = vbGreen
End If
If [TextBox145] = 19 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 18 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] = 17 Then
[TextBox145].BackColor = vbYellow
End If
If [TextBox145] < 17 Then
[TextBox145].BackColor = vbRed
End If

End Sub

Ahoj

Zisiel by sa nejaky subor jak to ma vypadat at se je ceho chytit :)

Ahoj vsem potreboval by som poradit. Mam udelane makro ktore funguje v pohode. Problem nastava az to makro spusti na inom PC kde vyhadzuje tuto hlasku "Compile error in hidden module:sheet3" vcem je chyba ?

Predem dik za odpoved.

Ahoj
Potreboval by som poradit pri kliknuti na Zobraz sa vam ukaze Userform vnom su dva Comboboxi
1. je na zadanie Typu 2. Zadana znacenie.

Ja by som potreboval aby pri zadani do Comboboxu jedna sa v 2comboboxe zobrazoval iba stlpec F.
Pri zadani 2 iba stlbec G a 3 iba H

Viem ze to mozem cele naplacat do jedneho ale zadane hodnoty sa my pak nechcu stale aktualizovat.
Neustale nieco pridavat a odoberat takto by som to menil iba v tychto stlpcoch.

Ak niekto vie budem vdacni za kazdy napad

tak vyreseno nocna je dlha zalezitost

Vie niekto co stim pls ?

Private Sub CommandButton1_Click()

Dim Druh As String
Druh = ComboBox7.Value

Workbooks.Open Filename:="C:\Documents and Settings\TEMP\Desktop\Total NCM.xls"
Sheets("Druh").Select
Dim radek As Integer

ActiveSheet.Cells(1000000, 1).End(xlUp).Row 1

MsgBox radek

Cells(rd, 1) = ComboBox3.Value
Cells(rd, 2) = ComboBox4.Value
Cells(rd, 3) = TextBox6.Value
Cells(rd, 4) = TextBox1.Value
Cells(rd, 5) = ComboBox7.Value
Cells(rd, 6) = TextBox2.Value
Cells(rd, 7) = ComboBox5.Value
Cells(rd, 8) = TextBox3.Value
Cells(rd, 9) = TextBox4.Value
Cells(rd, 10) = ComboBox2.Value
Cells(rd, 11) = ComboBox6.Value
Cells(rd, 12) = TextBox5.Value

End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje