Saltar al contenido

Pasar de entero a texto

publicado

Hola buen día, favor alguien podría ayudarme con una breve explicación, del porque cuando ya convierto un numero a texto no lo imprime en la celda... me falta algún paso por hacer?? de antemano muchas gracias si pueden ayudarme.

Sub prueba()
    Dim entero As Long
    entero = 212341234
    
    Dim str As String
    str = CStr(entero)
    
    QR.Range("k1").Value = str
    Debug.Print str
End Sub

Muchas gracias

Saludos,

 

 

 

Featured Replies

publicado

Hola @kai7as

Al hacer la prueba no me presento problema.

Sub prueba()
    Dim entero As Long
    Dim str As String
    
    entero = 212341234
    str = CStr(entero)
    
    Range("K1").Value = str
    Debug.Print str
End Sub
 

Solo omití el "QR." de esta linea -> QR.Range("k1").Value = str

Nos comentas, Saludos.

publicado
  • Autor

Hola Mauricio muchas gracias por la ayuda, bendiciones, cuídate.

  • Gerson Pineda changed the title to Pasar de entero a texto

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.