Mantener formato de moneda en ListBox

[jose_luisc]

Buenas tardes, mi consulta es por un  problema que tengo con un listbox que uso para mostrar resultados de búsqueda filtrados mediante un textbox, el tema es que cuando no hago búsqueda con el textbox, se muestran todos los datos de las columnas que quiero con su formato correspondiente, pero al realizar una búsqueda, filtra muy bien pero la columna de los precios no se ve con formato de moneda (como si está en la tabla original y en el listbox antes de filtrar)

Les dejo el procedimiento (que lo fui adaptando de otros trabajos publicados y también con su ayuda, ya que no tengo conocimiento en el tema) 

Desde ya muchas gracias

 

Private Sub TEXTO_Change()
  
numerodedatos = Hoja8.Range("A" & Rows.Count).End(xlUp).Row
Me.LISTA = Clear
Me.LISTA.RowSource = Clear
Y = 0
For fila = 11 To numerodedatos
    descripcion = Hoja8.Cells(fila, 2).Value
    If UCase(descripcion) Like "*" & UCase(Me.TEXTO.Value) & "*" Then
           Me.LISTA.AddItem
           Me.LISTA.List(Y, 0) = Hoja8.Cells(fila, 1).Value
           Me.LISTA.List(Y, 1) = Hoja8.Cells(fila, 2).Value
           Me.LISTA.List(Y, 2) = Hoja8.Cells(fila, 3).Value
           Me.LISTA.List(Y, 3) = Hoja8.Cells(fila, 4).Value
           Me.LISTA.List(Y, 4) = Hoja8.Cells(fila, 5).Value
           Y = Y + 1
    End If
 Next
Me.LISTA.ColumnWidths = "60 pt;260 pt;0 pt;0 pt;60 pt"
End Sub

----------------------------------------------------------------------------
Private Sub UserForm_Activate()
Me.LISTA.RowSource = "Tabla1"
Me.LISTA.ColumnCount = 5
Me.LISTA.ColumnWidths = "60 pt;260 pt;0 pt;0 pt;60 pt"

End Sub

----------------------------------------------------------------------------

Private Sub UserForm_Initialize()

   Me.StartUpPosition = 0 'Manual

   Me.Top = [A16].Top + 3

   Me.Left = [A16].Left - 3
   
   Me.LISTA.ColumnWidths = "60 pt;260 pt;0 pt;0 pt;60 pt"
   
   
   
End Sub

[JasallBcn]

buenas, sin archivo es complicado saberlo

puede que sea algo así : 

Cita

Me.LISTA.List(Y, 1) = Format(Hoja8.Cells(fila, 2).Value, "#,##0.00 €")

saludos

 

[Antoni]

Cambia .Value por .Text al cargar el listbox.

Ejemplo:

Me.LISTA.List(Y, 4) = Hoja8.Cells(fila, 5).Text

 

[jose_luisc]

Muchas gracias a ambos, cuando esté frente a la PC pruebo y comento.  Saludos y gracias!

 

[jose_luisc]

Lo probé y funcionó muy bien, muchísimas gracias a ambos por la solución

Tengo otra consulta que creo no vale la pena abrir otro hilo (si así fuera solo digan y lo hago)  Quisiera  que después de hacer la búsqueda mediante el textbox "TEXTO" (como se ve en el código del primer mensaje), al darle a la tecla Enter, se posicione el cursor en la celda (C12)  Yo había probado con:

Private Sub TEXTO_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then Range("C12").Select
End Sub

pero no me funciona

Desde ya muchas gracias 

[Antoni]

Hace 2 horas, jose_luisc dijo:

Lo probé y funcionó muy bien, muchísimas gracias a ambos por la solución

Tengo otra consulta que creo no vale la pena abrir otro hilo (si así fuera solo digan y lo hago)  Quisiera  que después de hacer la búsqueda mediante el textbox "TEXTO" (como se ve en el código del primer mensaje), al darle a la tecla Enter, se posicione el cursor en la celda (C12)  Yo había probado con:

Private Sub TEXTO_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then Range("C12").Select
End Sub

pero no me funciona

Desde ya muchas gracias 

Mejor sube tu archivo para poder ver en que entorno nos movemos.

[jose_luisc]

Hace 29 minutos , Antoni dijo:

Mejor sube tu archivo para poder ver en que entorno nos movemos.

No me deja, solo los adjuntos que ya he subido anteriormente 

[JasallBcn]

Buenas, parece que funciona bien,

saludos

 

[jose_luisc]

Hace 18 horas, JasallBcn dijo:

Buenas, parece que funciona bien,

saludos

 

No se que estaré haciendo mal, porque al dar enter me pasa a los items de la listbox y no me deja ir a las celdas ni hciendo click en ellas, hasta que cierre el formulario

[jose_luisc]

Hola, lo que me acabo de dar cuenta es que si, me posiciona en la celda C12 (se ve el borde marcado en esa celda) , pero no puedo escribir nada, hasta que no cierre el formulario con la cruz de la esquina

[JasallBcn]

buenas, para poder ir a la celda sin cerrar el formulario pon la propieda

ShowModal = False

lo que no se como pasar el foco a la celda sin cerrar el formulario .

saludos

 

[jose_luisc]

Hace 18 horas, JasallBcn dijo:

buenas, para poder ir a la celda sin cerrar el formulario pon la propieda

ShowModal = False

lo que no se como pasar el foco a la celda sin cerrar el formulario .

saludos

 

Lo voy a poner, después comento, pero si, la idea es usar el formulario para búsqueda e ir a la celda c12 para cargar a mano el resultado de esa búsqueda, pero sin cerrar el formulario para seguir viendo el resultado de la búsqueda

Gracias

 

[jose_luisc]

Hace 2 horas, jose_luisc dijo:

Lo voy a poner, después comento, pero si, la idea es usar el formulario para búsqueda e ir a la celda c12 para cargar a mano el resultado de esa búsqueda, pero sin cerrar el formulario para seguir viendo el resultado de la búsqueda

Gracias

 

Quedó bien, ahora solo faltaría que se pueda escribir en C12 sin necesidad de hacer click, se podrá hacer o es algo imposible y lo manejo con el mouse?

 

[JasallBcn]

Buenas,como ya te dije no se como pasar el foco a la hoja , pero  buscando encontre una solución y pasa por hacer un click del raton automaticamente en la hoja,

Te paso codigo para 64bit

Cita

 

Public Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const Raton_IzPulsa As Long = &H2
Public Const Raton_IzSuelta As Long = &H4

Public Sub AutoClic()

SetCursorPos 0, 1000 ' se posiciona el cursor abajo  ala izquierda, la idea es que se posicione sobre la barra inferior

mouse_event Raton_IzPulsa, 0, 0, 0, 0 ' envía pulsación llevando el foco a la hoja
mouse_event Raton_IzSuelta, 0, 0, 0, 0

End Sub

 

y en la caja de texto

Cita

 

If KeyCode = vbKeyReturn Then
 Range("C12").Select
 Call AutoClic
End If

 

saludos

 

[jose_luisc]

Buen día, antes que nada muchísimas gracias por el interés en solucionar estas problemática, cuando esté frente a la PC lo pruebo y comento

Muchas gracias 

[jose_luisc]

Ahí lo probé, pero me tira error el las lineas

Hace 17 horas, JasallBcn dijo:

Public Const Raton_IzPulsa As Long = &H2
Public Const Raton_IzSuelta As Long = &H4

Tendré que adaptar algo a mi hoja?

[jose_luisc]

Hace 1 hora, jose_luisc dijo:

Ahí lo probé, pero me tira error el las lineas

Tendré que adaptar algo a mi hoja?

Lo que se me ocurre es que presionando enter estando en el textbox ejecute una macro, que sea Range("C12").Select, pero no se como sería 

[JasallBcn]

Te paso ejemplo

saludos

ClickAuto.xlsm

[jose_luisc]

En 23/9/2022 at 15:17 , JasallBcn dijo:

Te paso ejemplo

saludos

ClickAuto.xlsmUnavailable

Hola, disculpen la demora en chequear ayuda, en un rato lo miro y pruebo, desde ya muchas gracias

 

[jose_luisc]

En 23/9/2022 at 15:17 , JasallBcn dijo:

Te paso ejemplo

saludos

ClickAuto.xlsmUnavailable

El sistema no me permite descargar el archivo