Convertir contenido de celdas de Excel en texto y numero en Excel
Mee puede ayudar con el siguiente archivo para copiar el valores a una celda cuando ejecuto la macro copiar valores el valor cambia a otro
Por ejemplo en la celda "A3" hay un dato que esta con una formula y lo que quiero pasar a valores que ya no me aparezcan con esta formula
Pero cuando sobre escribo y lo pego como valores los pega como otro formato me puede ayuda con una macro para copiar estos valores y mantener el formato si es numero dejarlo como formato numero y si es fecha con formato fecha
Gracias por la atención prestada
Slds
Robert
1 respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro
Sub Macro1() 'Por.Dante Amor For Each c In Cells.SpecialCells(xlCellTypeFormulas, 23) If IsNumeric(c.Value) Then If Len(c.Value) > 15 Then c.Value = "'" & c.Value Else c.Value = CDbl(c.Value) End If ElseIf IsDate(c.Value) Then c.Value = CDate(c.Value) Else c.Value = c.Value End If Next MsgBox "fin" End Sub
:) S aludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s ;)
