Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

julioms23

Duda hacerlo con Macro vs Manual

Recommended Posts

Buenos días, tengo una duda sencilla a priori pero que no entiendo el problema:

- He creado un botón que activa un reemplazar espacios (cuando las unidades son + 1000 hay un espacio). Si lo hago manualmente se queda el valor como numero pero si lo hago con la macro se queda como texto. El archivo de partida es un .txt y se pega en un excel.

 

adjunto el ejemplo txt. como veís la ultima fila es superior a 1000

rtoyprod.txt

Share this post


Link to post
Share on other sites

te dejo este código @julioms23  a ver si te funciona y si es lo que buscabas

Sub remplazar()
With Application
.ScreenUpdating = False
Filas = [A2].CurrentRegion.Rows.Count    'numero de filas
       
       With Range("G4:Q" & Filas) 'columna para remplazar
       'buscar y remplazar
     .Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        .Replace What:=" ", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
       End With
   
.ScreenUpdating = True
End With
End Sub

saludos  isidro

Share this post


Link to post
Share on other sites

no soy muy bueno explicando pero te digo lo que realice grabe la macro buscar y remplazar que es el código buscar toda las comas y remplazarlo por punto

 .Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

este otro pedazo de código busca espacio en blanco y lo remplaza por coma

.Replace What:=" ", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

y este código aquí en este foro me lo enseñaron

Filas = [A2].CurrentRegion.Rows.Count    'numero de filas que inicia
       
       With Range("G4:Q" & Filas) 'columna para remplazar

https://docs.microsoft.com/es-es/office/vba/api/excel.range.currentregion

https://www.excel-avanzado.com/2791/identificar-la-ultima-fila-en-uso-con-vba.html

espero que que quede claro tu duda, o si un experto aquí pueda dar mas información  mas amplia.

 Bueno que te funciono

saludos isidrod

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png