Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6   další »

Ahoj

Co takto 4

Ahoj

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

Rozsirujem obzory 6

Nieco nasiel ale jak donej dostat ciklus sa mi nepodarilo 3

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 4

Co takto :)

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

Ahoj

Dik moc 4

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 :
3
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 :) 6

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 6

tak vyreseno nocna je dlha zalezitost 7

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


Strana:  « předchozí  1 2 3 4 5 6   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35