Příspěvky uživatele


< návrat zpět

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

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

ahoj potreboval bych aspon malu ukazku zapisu pls nejak sa nemozem pohnut vpred 3

:D ja som ale deges duplicity uz OK UserForm_Activate 7

Ahoj

Tak Ten list box som uz vyriesil. Akurat ma trapi ten export dat do tabulky. A este jeden dotaz proc my v comboBoxe duplikuje zadane hodnoty 6

V prilohe zip

Ahoj

Mam problemik s UserForm. Ako prve asi s listbox kde nemozem zapisovat alespon neviem preco. Potrebujem poradit po odkliknuti ok aby sa vsetky data zapsali do suboru(tabulka)v ktorej su vytvorene listy. Cielovy list urcuje comboBox7. Prosim o radu pre pripad Priloha.

Dakujem za vsetky odpovede 3

Ahoj

Potreboval by som poradit. V jednom subore mam data v jednom riadku priklad v 4riadku. Od A4 az P4. Na ploche mam vytvoreny dalsi subor (Total) vnom sa nachadzaju sheety s menami do ktorych chcem exportovat tieto data podla hodnoty v bune A4. Cize ak A4= Peter tak exportovat do (Total) a sheet(Peter). Export data viem ale nejek sa my nedaty priradit ten list.

Co takto ?

Ahoj vysledok ma byt v C17 ? ak jo nieje problem 4


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

Uživatelské menu

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

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje