Máximos colaboradores
Popular Content
Showing content with the highest reputation on 05/19/24 in all areas
-
Hola amigo, gracias por tu ayuda, me ha quedado de cine, es eso lo que necesitaba, todo lo demas me va bien, pero intentare colocar una imagen del producto, no se si sera posible, gracias de nuevo por tu ayuda Saludos1 point
-
Buenas, para pasar los datos a las cajas de texto Private Sub Botón_Click() ID = Mid(Botón.Name, 2, Len(Botón.Name)) With TpvListado .xId = Hoja1.Range(ID) .xDescripción = Hoja1.Range(ID).Offset(0, 1) .xReferencia = Hoja1.Range(ID).Offset(0, 2) .xPrecio = Hoja1.Range(ID).Offset(0, 6) .xCantidad = 1 End With End Sub lo otro , no lo entiendo saludos1 point