Ayuda con unaslineas y correcciones
Publicado por Daniel Audberto (8 intervenciones) el 07/10/2019 21:03:47
Buenas tardes amigos, vengoa hoy por aqui a ver si me pueden ayudar.... yo tengo un userform con dobles datos,en la parte de arriba cada textbox me muestra el intentario actual y en la parte de abajo varios textbox en blanco vacios que son los que me sirben para actualizar en inventario..... les muestro primero las lineas que tengo en la base del userform y luego las que tengo en el boton ingresar datos:
......................y en el boton
lo que me pasa y que no se como arreglar es que si las casillas que tengo en blanco no pongo nada, lo dejo en blanco pues me actualiza en cero, me borra el inventario actual y lo dejas sin nada... la idea es que me actulice solo los textbox que tienen algo escrito..... no esta de mas decir que estoy en cero literalmente con vba.... todo esto es una mescla de leer un poco por todos lado y algo de suerte.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub UserForm_Activate()
Sheets("Inventario").Select
TextBox1.Text = Sheets("Inventario").Range("B8")
TextBox2.Text = Sheets("Inventario").Range("B9")
TextBox3.Text = Sheets("Inventario").Range("B10")
TextBox13.Text = Sheets("Inventario").Range("B11")
TextBox4.Text = Sheets("Inventario").Range("B12")
TextBox5.Text = Sheets("Inventario").Range("B13")
TextBox6.Text = Sheets("Inventario").Range("B14")
TextBox7.Text = Sheets("Inventario").Range("B15")
TextBox8.Text = Sheets("Inventario").Range("B16")
TextBox9.Text = Sheets("Inventario").Range("B17")
TextBox10.Text = Sheets("Inventario").Range("B18")
TextBox11.Text = Sheets("Inventario").Range("B19")
TextBox12.Text = Sheets("Inventario").Range("B20")
TextBox15.Text = Sheets("Inventario").Range("B21")
TextBox16.Text = Sheets("Inventario").Range("B22")
TextBox17.Text = Sheets("Inventario").Range("B23")
TextBox26.Text = Sheets("Inventario").Range("B24")
TextBox18.Text = Sheets("Inventario").Range("B25")
TextBox19.Text = Sheets("Inventario").Range("B26")
TextBox20.Text = Sheets("Inventario").Range("B27")
TextBox21.Text = Sheets("Inventario").Range("B28")
TextBox22.Text = Sheets("Inventario").Range("B29")
TextBox23.Text = Sheets("Inventario").Range("B30")
TextBox24.Text = Sheets("Inventario").Range("B31")
TextBox25.Text = Sheets("Inventario").Range("B32")
TextBox14.Text = Sheets("Inventario").Range("B33")
TextBox28.Text = Sheets("Inventario").Range("B34")
TextBox29.Text = Sheets("Inventario").Range("B35")
TextBox30.Text = Sheets("Inventario").Range("B36")
TextBox39.Text = Sheets("Inventario").Range("B37")
TextBox31.Text = Sheets("Inventario").Range("B38")
TextBox32.Text = Sheets("Inventario").Range("B39")
TextBox33.Text = Sheets("Inventario").Range("B40")
TextBox34.Text = Sheets("Inventario").Range("B41")
TextBox35.Text = Sheets("Inventario").Range("B42")
TextBox36.Text = Sheets("Inventario").Range("B43")
TextBox37.Text = Sheets("Inventario").Range("B44")
End Sub
......................y en el boton
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Inventario").Select
Worksheets(4).Select
ActiveSheet.Range("B8").FormulaR1C1 = TextBox40.Text
TextBox1.Text = Sheets(4).Range("B8")
Me.TextBox40.Value = ""
ActiveSheet.Range("B9").FormulaR1C1 = TextBox41.Text
TextBox2.Text = Sheets(4).Range("B9")
Me.TextBox41.Value = ""
ActiveSheet.Range("B10").FormulaR1C1 = TextBox42.Text
TextBox3.Text = Sheets(4).Range("B10")
Me.TextBox42.Value = ""
ActiveSheet.Range("B11").FormulaR1C1 = TextBox52.Text
TextBox13.Text = Sheets(4).Range("B11")
Me.TextBox52.Value = ""
ActiveSheet.Range("B12").FormulaR1C1 = TextBox43.Text
TextBox4.Text = Sheets(4).Range("B12")
Me.TextBox43.Value = ""
ActiveSheet.Range("B13").FormulaR1C1 = TextBox44.Text
TextBox5.Text = Sheets(4).Range("B13")
Me.TextBox44.Value = ""
ActiveSheet.Range("B14").FormulaR1C1 = TextBox45.Text
TextBox6.Text = Sheets(4).Range("B14")
Me.TextBox45.Value = ""
ActiveSheet.Range("B15").FormulaR1C1 = TextBox46.Text
TextBox7.Text = Sheets(4).Range("B15")
Me.TextBox46.Value = ""
ActiveSheet.Range("B16").FormulaR1C1 = TextBox47.Text
TextBox8.Text = Sheets(4).Range("B16")
Me.TextBox47.Value = ""
ActiveSheet.Range("B17").FormulaR1C1 = TextBox48.Text
TextBox9.Text = Sheets(4).Range("B17")
Me.TextBox48.Value = ""
ActiveSheet.Range("B18").FormulaR1C1 = TextBox49.Text
TextBox10.Text = Sheets(4).Range("B18")
Me.TextBox49.Value = ""
ActiveSheet.Range("B19").FormulaR1C1 = TextBox50.Text
TextBox11.Text = Sheets(4).Range("B19")
Me.TextBox50.Value = ""
ActiveSheet.Range("B20").FormulaR1C1 = TextBox51.Text
TextBox12.Text = Sheets(4).Range("B20")
Me.TextBox51.Value = ""
TextBox40.SetFocusEnd Sub
lo que me pasa y que no se como arreglar es que si las casillas que tengo en blanco no pongo nada, lo dejo en blanco pues me actualiza en cero, me borra el inventario actual y lo dejas sin nada... la idea es que me actulice solo los textbox que tienen algo escrito..... no esta de mas decir que estoy en cero literalmente con vba.... todo esto es una mescla de leer un poco por todos lado y algo de suerte.
Valora esta pregunta
0