JasallBcn
Todo se publica por JasallBcn
-
Buenas, prueba saludos Archivo consulta_023516_V2.xlsm -
Buenas, explica lo del patrón , no lo entiendo, saludos Archivo consulta_023516.xlsm
-
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 saludos
-
Buenas, prueba saludos Ocultar columnas de un rango y dejar uno.xlsm
-
Buenas, prueba saludos PRUEBA_v1.xlsm