¿Error en el método Range de objeto _global?
Private Sub modificar_btn_Click()
Dim fila As Object
Dim linea As Integer
valor_buscado = Me.item_tbox
Set fila = ThisWorkbook.Sheets("HojaIng").Range("A:A").Find(valor_buscado, lookat:=xlWhole)
linea = fila.Row
'me marca error en el metodo Range ???
Range("B & linea").Value = Me.nombre_tbox.Value
Range("C & linea").Value = Me.descripcion_tbox.Value
Range("D & linea").Value = Me.clase_cbox.Value
Range("E & linea").Value = Me.marca_tbox.Value
Range("F & linea").Value = Me.cantidad_tbox.Value
Range("G & linea").Value = Me.unidad_cbox.Value
Range("H & linea").Value = Me.precio_tbox.Value
Range("I & linea").Value = Me.iva_cbox.Value
Range("J & linea").Value = Me.impuesto_label
Range("K & linea").Value = Me.costoTotal_label
Range("L & linea").Value = Me.costoUnitario_label
Range("M & linea").Value = Me.nota_tbox.Value
Range("M & linea").Value = Me.nota_tbox.Value
Range("N & linea").Value = Me.rinde_tbox
Range("O & linea").Value = Me.unidad_label
Range("P & linea").Value = Me.costoReal_label
Range("Q & linea").Value = Me.unidad_label2
Range("R & linea").Value = Me.porcentajeRinde_label
End Sub
[Ho la y bienvenido a Todoexpertos]
La variable 'linea' debe ir fuera de las comillas.
- Puedes utilizar directamente 'item_tbox' para realizar la búsquda.
- Revisa lo siguiente, también ajusté la declaración de las variables.
Private Sub modificar_btn_Click()
Dim fila As Range
Dim linea As Long
'
Set fila = ThisWorkbook.Sheets("HojaIng").Range("A:A").Find(Me.item_tbox.Value, lookat:=xlWhole)
If Not fila Is Nothing Then
linea = fila.Row
Range("B" & linea).Value = Me.nombre_tbox.Value
Range("C" & linea).Value = Me.descripcion_tbox.Value
Range("D" & linea).Value = Me.clase_cbox.Value
Range("E" & linea).Value = Me.marca_tbox.Value
Range("F" & linea).Value = Me.cantidad_tbox.Value
Range("G" & linea).Value = Me.unidad_cbox.Value
Range("H" & linea).Value = Me.precio_tbox.Value
Range("I" & linea).Value = Me.iva_cbox.Value
Range("J" & linea).Value = Me.impuesto_label
Range("K" & linea).Value = Me.costoTotal_label
Range("L" & linea).Value = Me.costoUnitario_label
Range("M" & linea).Value = Me.nota_tbox.Value
Range("M" & linea).Value = Me.nota_tbox.Value
Range("N" & linea).Value = Me.rinde_tbox
Range("O" & linea).Value = Me.unidad_label
Range("P" & linea).Value = Me.costoReal_label
Range("Q" & linea).Value = Me.unidad_label2
Range("R" & linea).Value = Me.porcentajeRinde_label
Else
MsgBox "Dato no existe"
End If
End Sub[Al final de mi respuesta hay un botón para valorar]
