Separador de miles en los labels
Hola de nuevo estoy por acá en el mejor foro para aprender..
en esta ocasión tengo un formulario de consulta, la información consultada se muestra en unos labels, el problema radica es que cuando me muestra dicha información que es numérica esta no me sale con el separador de miles "12000" y si seria posible colocar algún código que me los mostrara así "12.000", como esta en la celda
anexo parte de código para mas información
Private Sub CommandButton1_Click()
With Sheets("clientes")
.Unprotect Password:="gp"
.Visible = -1
End With
'boton de nueva busqueda
On Error GoTo NoCedula
fila = Sheets("Clientes").Range("B9:B300").Find(what:=UserForm4.TextBox1 * 1, Lookat:=xlValue).Row
UserForm4.Label9.Caption = Sheets("Clientes").Cells(fila, 3)
UserForm4.Label10.Caption = Sheets("Clientes").Cells(fila, 4)
UserForm4.Label11.Caption = Sheets("Clientes").Cells(fila, 5)
UserForm4.Label12.Caption = Sheets("Clientes").Cells(fila, 6)
UserForm4.Label13.Caption = Sheets("Clientes").Cells(fila, 7)
UserForm4.Label14.Caption = Sheets("Clientes").Cells(fila, 8)
NoCedula:
CommandButton2.SetFocus
End Sub
en esta ocasión tengo un formulario de consulta, la información consultada se muestra en unos labels, el problema radica es que cuando me muestra dicha información que es numérica esta no me sale con el separador de miles "12000" y si seria posible colocar algún código que me los mostrara así "12.000", como esta en la celda
anexo parte de código para mas información
Private Sub CommandButton1_Click()
With Sheets("clientes")
.Unprotect Password:="gp"
.Visible = -1
End With
'boton de nueva busqueda
On Error GoTo NoCedula
fila = Sheets("Clientes").Range("B9:B300").Find(what:=UserForm4.TextBox1 * 1, Lookat:=xlValue).Row
UserForm4.Label9.Caption = Sheets("Clientes").Cells(fila, 3)
UserForm4.Label10.Caption = Sheets("Clientes").Cells(fila, 4)
UserForm4.Label11.Caption = Sheets("Clientes").Cells(fila, 5)
UserForm4.Label12.Caption = Sheets("Clientes").Cells(fila, 6)
UserForm4.Label13.Caption = Sheets("Clientes").Cells(fila, 7)
UserForm4.Label14.Caption = Sheets("Clientes").Cells(fila, 8)
NoCedula:
CommandButton2.SetFocus
End Sub
1 Respuesta
Respuesta de Elsa Matilde
1
Elsa saludos ..
A veces tan solo falta un empujoncito, lo que verdaderamente importa es el empeño que le demos a las cosas. Gracias a ti y a este foro he podido aprender y solucionar alguna de mis
dudas, no importa lo que nos demoremos en aprender las posibles soluciones ; solo que las entendamos y sobretodo, he aprendido a compartirlas con los que aun no las saben...
Gracias por dedicar parte de tu tiempo, a ayudar lo demás...
Waquiro...
A veces tan solo falta un empujoncito, lo que verdaderamente importa es el empeño que le demos a las cosas. Gracias a ti y a este foro he podido aprender y solucionar alguna de mis
dudas, no importa lo que nos demoremos en aprender las posibles soluciones ; solo que las entendamos y sobretodo, he aprendido a compartirlas con los que aun no las saben...
Gracias por dedicar parte de tu tiempo, a ayudar lo demás...
Waquiro...
