Buscar valor en una fila desde textbox 1 y agregar valor abajo de esta celda
Tengo en la hoja BASE DE DATOS en el rango K2:V2 una serie de marcas de teléfonos y quiero agregar nombres de modelos, debajo de la marca correspondiente mediante un formulario, hice esta macro pero no funciona ya que ingresa el valor en la celda D3:
Private Sub CommandButton1_Click()
col = Application.Match(TextBox1, Sheets("BASE DE DATOS").Range("K2:W2"), 0)
Cells(3, col) = TextBox2
End Sub
Ojala me pudieran ayudar y se entienda mi pregunta, Saludos
1 respuesta
Lo que pasa es que te regresa la columna donde encontró el dato, pero empieza a contar desde K2 como columna 1, L2 como columna 2, M col 3 y N col4, entonces encuentra el valor en la columna N valor 4, por eso te pone el resultado en la columna D, que es la columna 4 empezando a contar desde A como 1.
La solución puede ser así
Private Sub CommandButton1_Click()
col = Application.Match(TextBox1, Sheets("BASE DE DATOS").Range("A2:W2"), 0)
Cells(3, col) = TextBox2
End Sub
O puede ser así
Private Sub CommandButton1_Click()
col = Application.Match(TextBox1, Sheets("BASE DE DATOS").Range("K2:W2"), 0)
Cells(3, col + 10) = TextBox2
End Sub
Saludos. Dam
Si es lo que necesitas.
perdón, olvide un detalle que necesito que no lo reemplace debajo sino que agregue estos valores debajo, con motivo que se vayan acumulando, con anticipación gracias (:
Entonces podría ser con esta opción
Private Sub CommandButton1_Click()
col = Application.Match(TextBox1, Sheets("BASE DE DATOS").Range("K2:W2"), 0)
ufila = Cells(Rows.Count, col + 10).End(xlUp).Row + 1
Cells(ufila, col + 10) = TextBox2
End Sub
Prueba y me comentas
Saludos. Dam
Si es lo que necesitas.
