Foros de daboweb

GENERAL, ayuda informatica, trucos, problemas, internet, messenger, software, programas, solidaridad, P2P => Foro general - Internet - Trucos - Redes - Ayuda informatica - Software - Programas => Mensaje iniciado por: Gitza en 15 de Septiembre de 2008, 06:01:06 pm

Título: AYUDA EXCEL (SOLUCIONADO)
Publicado por: Gitza 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.
Título: Re: AYUDA EXCEL
Publicado por: MClaud 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
Título: Re: AYUDA EXCEL
Publicado por: Mr_X 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
Título: Re: AYUDA EXCEL
Publicado por: Gitza 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.
Título: Re: AYUDA EXCEL
Publicado por: Mr_X 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...
Título: Re: AYUDA EXCEL
Publicado por: Gitza en 15 de Septiembre de 2008, 09:55:00 pm
MR_X Muchas Gracias por tu ayuda! YA lo logre  ;-)