Pasar de entero a texto

[kai7as]

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,

 

 

 

[Mauricio_ODN]

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.

[kai7as]

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