Encuesta

como puedo agregar una coma  a la ultima palabra de cada fila en excel?

CREAR UNA FORMULA EN EXCEL
0 (0%)
AGREGAR INFORMACION A CADA FILA DE EXCEL
0 (0%)

Total de votos: 0

Autor Tema: AYUDA EXCEL (SOLUCIONADO)  (Leído 2206 veces)

Desconectado Gitza

  • Newbie
  • *
  • Mensajes: 5
AYUDA EXCEL (SOLUCIONADO)
« en: 15 de Septiembre de 2008, 06:01:06 pm »
Hola espero que me puedan ayudar!. No tengo mucho conocimiento de formulas en excel, resulta que tengo una gran base de datos de direcciones electronicas en excel, es solamente una columna, algunas de las direcciones tienen una coma al final y otras no, me gustaria saber como puedo eliminar la coma que tienen la mayoria o mas bien agregarles la coma a las que no la tienen.

Desconectado MClaud

  • Moderador
  • ******
  • Mensajes: 2148
Re: AYUDA EXCEL
« Respuesta #1 en: 15 de Septiembre de 2008, 06:43:49 pm »
Hola Gitza, bienvenid@ al foro
Quitar la coma es simple solo seleccionas toda la información que vas a cambiar y usas el menu Edición / Reemplazar en la casilla superior colocas la coma, en la inferior no colocas nada y presionas el boton reemplazar todo

Para colocar la coma a todos es algo mas complicado porque hay que buscar una referencia de busqueda para hacer el reemplazo por la coma
¡Más vale perder el tiempo con amigos...
Que perder amigos con el tiempo!

Desconectado Mr_X

  • Iniciado
  • *****
  • Mensajes: 2635
Re: AYUDA EXCEL
« Respuesta #2 en: 15 de Septiembre de 2008, 07:03:51 pm »
Como ya te dijo MClaud, quitarla es fácil, pero para ponerla podrías usar una macro, algo como:

Código: [Seleccionar]
Sub AgregarComa()
    Dim sTexto As String
    Dim iFila As Integer
    iFila = 1 'cambia el valor por el número de renglón donde empiezan tus direcciones
    Do While Cells(iFila, 1) <> "" 'este número uno es el número de columna, cámbialo si no fuera la primera e igual en los subsecuentes
        sTexto = Cells(iFila, 1)
            Select Case Right(sTexto, 1)
                Case Is = ",": Cells(iFila, 1) = sTexto
                Case Is <> ",": Cells(iFila, 1) = sTexto & ","
             End Select
        iFila = iFila + 1
    Loop
End Sub
"... I'll wait I sow the seed, I set the scene and I watch the world go by..."

Desconectado Gitza

  • Newbie
  • *
  • Mensajes: 5
Re: AYUDA EXCEL
« Respuesta #3 en: 15 de Septiembre de 2008, 08:28:41 pm »
No lo puedo solucionar,  :(, las filas no estan ordenadas, son 20 000 filas estan enrredadas las que terminan y las que no terminan con comas, POR FAVOR AYUDA, paso por paso.

Desconectado Mr_X

  • Iniciado
  • *****
  • Mensajes: 2635
Re: AYUDA EXCEL
« Respuesta #4 en: 15 de Septiembre de 2008, 08:48:51 pm »
Abre tu archivo en Excel-->teclas [Alt]+[F11]-->en la ventana que se abre, menú Insertar-->Módulo-->tecla [F7]-->copia y pega lo que puse en mi anterior mensaje (lo que está en el recuadro gris)-->pásate a tu hoja de Excel y guarda el archivo-->teclas [Alt]+[F8]-->doble clic a AgregarComa-->listo... En el caso que las direcciones empiecen en una fila y/o columna diferente de la primera ajusta los valores en la macro...
"... I'll wait I sow the seed, I set the scene and I watch the world go by..."

Desconectado Gitza

  • Newbie
  • *
  • Mensajes: 5
Re: AYUDA EXCEL
« Respuesta #5 en: 15 de Septiembre de 2008, 09:55:00 pm »
MR_X Muchas Gracias por tu ayuda! YA lo logre  ;-)

 

Aviso Legal | Política de Privacidad | Política de Cookies

el contenido de la web se rige bajo licencia
Creative Commons License