Actualizar un rango después de modificar un valor
Hola,
Cargo un rango a un listbox y necesito modificar algunos valores de ese rango, pero este rango esta filtrado por fechas. Por lo tanto ese valor actualizado tendría que remplazar al otro en esa lista. (Espero explicarme bien)
Dejo el código, o les envío el archivo a su correo.
Private Sub CommandButton1_Click() 'Por.DAM 'Filtra datos por fecha Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Cells.Clear h1.Rows(1).Copy h2.Range("A1") Dim fec1 As Date Dim fec2 As Date fec1 = TextBox1 If TextBox2 = "" Then fec2 = fec1 Else fec2 = TextBox2 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "A") >= fec1 And h1.Cells(i, "A") <= fec2 Then h1.Rows(i).Copy h2.Range("A" & h2.Range("A" & Rows.Count).End(xlUp).Row + 1) End If Next ListBox1.RowSource = "Hoja2!A2:E" & Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row End Sub Private Sub CommandButton2_Click() 'aca intento actualizar la lista en hoja1 'lo filtrado se lleva a hoja2 y de ahi a listbox1 If ListBox1.ListIndex = -1 Then Exit Sub X = ListBox1.ListIndex + 2 ListBox1.RowSource = "" Worksheets("Hoja2").Range("C" & X) = TextBox3 Worksheets("Hoja2").Range("D" & X) = TextBox4 Worksheets("Hoja2").Range("E" & X) = TextBox5 End Sub Private Sub ListBox1_Click() On Error Resume Next TextBox3.Text = ListBox1.Column(2) TextBox4.Text = ListBox1.Column(3) TextBox5.Text = ListBox1.Column(4) End Sub Private Sub UserForm_Initialize() ListBox1.ColumnCount = 5 ListBox1.ColumnHeads = True ListBox1.ColumnWidths = "55;55;55;55;55" End Sub
Muchas gracias por tomarse el tiempo de leer mi inquietud.
Saludos
1 Respuesta
Respuesta de Dante Amor
1