Macro para seleccionar celda desde dos combobox y sumar acumulada en la misma celda
Que tal soy un nuevo en el mundo de las marcos pero me gustaría aprender más, tengo un proyecto para mi trabajo que implica sumar acumulada. He hecho lo siguiente he puesto un userform y le he agregado dos combobox y un texbox además de un botón para enviar el dato a la hoja y la celda, un combobox me seleciona el valor en la columna A y el otro combobox me selecciona el valor de la fila 1, ahora lo que quiero es si selecciono el valor de la columna A3 y busco en el segundo combobox el valor de la fila C1, quiero que sume acumuladamente el valor que le doy por el texbox en la celda C3. Alguien me puede ayudar con esto
1 Respuesta
[Ho la y bienvenido a TodoExpertos.
Pon lo siguiente en tu botón.
Private Sub CommandButton1_Click()
Dim f As Range, fil As Long, col As Long
'
Set f = Range("A:A").Find(ComboBox1, , xlValues, xlWhole)
If Not f Is Nothing Then
fil = f.Row
Set f = Rows(1).Find(ComboBox2, , xlValues, xlWhole)
If Not f Is Nothing Then
col = f.Column
Cells(fil, col).Value = Cells(fil, col).Value + Val(TextBox1.Value)
End If
End If
End Sub
¡Gracias! Por tu respuesta lo voy a probar en un momento muchas gracias
Por supuesto, aví same cualquier detalle, si te funciona no olvi des valorar la respuesta
Pues parece que algo estoy haciendo muy mal me da un error aca le dejo mi código completo y gracias de antemano
Private Sub CommandButton1_Click()
Dim f As Range, fil As Long, col As Long
Set f = Sheets("diesel").Range("A:A").Find(ComboBox1, , xlValue, xlWhole)
If Not f Is Nothing Then
fil = f.Row
Set f = Rows(1).Find(ComboBox2, , xlValue, xlWhole)
If Not f Is Nothing Then
col = f.Column
Cells(fil, col).Value = Cells(fil, col).Value + Val(TextBox1.Value)
End If
End If
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim rango, celda As Range
Set rango = Range("dieseltarjetas")
For Each celda In rango
ComboBox1.AddItem celda.Value
Next celda
Set rango = Range("centrosdiesel")
For Each celda In rango
ComboBox2.AddItem celda.Value
Next celda
End Sub
¿Qué dice el mensaje de error y en cuál línea se detiene la macro?
¿Cómo se llaman tus hojas?
