Foro Excel

KL

Muy interesante probaré esto y te iformaré, aunque creo que con test resolví­ el caso y me sirve para evaluar el imput del usuario. Esta es una empresa que vende equipos celulares y debe conciliar mensualmente las lí­neas facturas vs las lí­neas pagadas. Lo que queda pendiente se incorpora a la base de datos del mes siguiente. Se me ocurre para aliviar el proceso eliminar aquellos campos en la BD que no se requieran.

Saluos de este viejo usuario.

Tal como expresa KL al aportar su ultima fórmula "se estan usando más recursos de la PC y de Excel". Ahora bien un convertidor a Texto, podria ser aplicar una Macro, la que te aporto funciona, previa seleccion simultanea de las columnas donde queres homogeneizar, primero en una hoja y despues en la otra:

Código: Seleccionar todo

Sub convertir()
Dim Rango As Range, col As Range
On Error GoTo error:
    Set Rango = Selection
   
Application.ScreenUpdating = False

    For Each col In Rango.Columns
   
    col.TextToColumns Destination:=col, DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 2)
    Next col
Application.ScreenUpdating = True

Exit Sub
error:
Application.ScreenUpdating = True
MsgBox "Vuelva a seleccionar un grupo de columnas a convertir"
End Sub

Si cambias esta Linea:

FieldInfo:=Array(0, 1)
En lugar de Texto, convertiras a Numero lo que tenga ese formato.

Algo asi tambien convertiria a numero lo que tenga ese formato:

Código: Seleccionar todo

Sub convertir()
    Dim Rango As Range, col As Range
    On Error Resume Next
    Set Rango = Application.InputBox("Seleccione el rango:", , , , , , , 8)
    If Rango Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each col In Rango.Columns
        col.TextToColumns Destination:=col
    Next col
    Application.ScreenUpdating = True
End Sub

Muy interesante amigos lo pondré en practica y les informare.

Saludos de este viejo usuario