Sacar letras de una palabras

A                                                      B                     C                  D         
FRANZ ROBERT MELGAR                           FRANZ            ROBERT        MELGAR 
HACIENDO ESTA MACRO ME ARROJA EL RESULTADO ASI
Y yo quisiera que solo me agarre las dos primeras letras de cada palabrao nombre
Sub extraerpalabras()
columna = 2 'osea B,donde se pondrá la primera palabra extraida
'recorriendo columna A para extraer palabras:
[A1].Select
While ActiveCell <> ""
For i = 1 To Len(ActiveCell)
temp = Mid(ActiveCell, i, 1) 'extrae carácteres
palabra = palabra & Trim(temp) 'armando palabra
If temp = " " Then
Cells(ActiveCell.Row, columna) = palabra
palabra = ""
columna = columna + 1
End If
Next i
If palabra <> "" Then
Cells(ActiveCell.Row, columna) = palabra
palabra = ""
End If
columna = 2
ActiveCell.Offset(1, 0).Select
Wend
End Sub

1 respuesta

Respuesta
1
Sub extraerpalabras()
Columna = 2 'osea B,donde se pondrá la primera palabra extraida
'recorriendo columna A para extraer palabras:
[A1].Select
While ActiveCell <> ""
    For i = 1 To Len(ActiveCell)
        temp = Mid(ActiveCell, i, 1) 'extrae carácteres
        palabra = palabra & Trim(temp) 'armando palabra
        If temp = " " Then
            Cells(ActiveCell.Row, Columna) = Mid(palabra, 1, 2)
            palabra = ""
            Columna = Columna + 1
        End If
    Next i
    If palabra <> "" Then
        Cells(ActiveCell.Row, Columna) = Mid(palabra, 1, 2)
        palabra = ""
    End If
    Columna = 2
    ActiveCell.Offset(1, 0).Select
Wend
End Sub
Hola mira bien justo lo que quería pero hazme un favor esas dos letras que me quita de cada nombre quisiera que solo se coloque en una sola columna
               A B
Franz robert melgar zampieri                             frromeza
Por favor
Sub extraerpalabras()
PalabraTotal = ""
Columna = 2 'osea B,donde se pondrá la primera palabra extraida
'recorriendo columna A para extraer palabras:
[A1].Select
While ActiveCell <> ""
    For i = 1 To Len(ActiveCell)
        temp = Mid(ActiveCell, i, 1) 'extrae carácteres
        palabra = palabra & Trim(temp) 'armando palabra
        If temp = " " Then
            'Cells(ActiveCell.Row, Columna) = Mid(palabra, 1, 2)
            PalabraTotal = PalabraTotal + Mid(palabra, 1, 2)
            palabra = ""
            'Columna = Columna + 1
        End If
    Next i
    If palabra <> "" Then
        'Cells(ActiveCell.Row, Columna) = Mid(palabra, 1, 2)
        PalabraTotal = PalabraTotal + Mid(palabra, 1, 2)
        palabra = ""
    End If
    Cells(ActiveCell.Row, Columna) = PalabraTotal
    'Columna = 2
    ActiveCell.Offset(1, 0).Select
Wend
End Sub
Mira ahora me ejecuta así:
Se van sumando
          A                                                             B
roberto bucheli falcon                                   robufa
mario david                                                robufamada
fernando del rio chavez                              robufamadafederich
  yo kiero k cuando lo ejecute me salga asi:
              A                                                B
roberto bucheli falcon                               robufa
mario david                                              mada
dernando del rio chavez                           federich
Disculpa...
Sub extraerpalabras()
'PalabraTotal = ""
Columna = 2 'osea B,donde se pondrá la primera palabra extraida
'recorriendo columna A para extraer palabras:
[A1].Select
While ActiveCell <> ""
    PalabraTotal = ""
    For i = 1 To Len(ActiveCell)
        temp = Mid(ActiveCell, i, 1) 'extrae carácteres
        palabra = palabra & Trim(temp) 'armando palabra
        If temp = " " Then
            'Cells(ActiveCell.Row, Columna) = Mid(palabra, 1, 2)
            PalabraTotal = PalabraTotal + Mid(palabra, 1, 2)
            palabra = ""
            'Columna = Columna + 1
        End If
    Next i
    If palabra <> "" Then
        'Cells(ActiveCell.Row, Columna) = Mid(palabra, 1, 2)
        PalabraTotal = PalabraTotal + Mid(palabra, 1, 2)
        palabra = ""
    End If
    Cells(ActiveCell.Row, Columna) = PalabraTotal
    'Columna = 2
    ActiveCell.Offset(1, 0).Select
Wend
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cambio de idioma en lenguaje VBA

Quería comentarte que hoy realicé una consulta en este foro y luismondelos la ha respondido excelentemente. Lo único que me gustaría saber, es si el código que el me ha pasado me sirve también en Excel en inglés (dado que lo he probado en casa y...
1 respuesta

Extraer la cadena de texto que mas se repiten en excel

Tengo una hoja con muchos datos entre ellos una columna que se llama descripción de eventos que tiene un detalle de cada evento realizado; necesito saber cual es la cadena de texto que mas se repite en dicha columna y cuantas veces se repite....
1 respuesta

Separar texto entre comas mediante Macro

Tengo en un excel con 6 columnas donde una de ellas contiene varias palabras separadas por coma. Con la siguiente macro lo que consigo es insertar/copiar la misma fila, tantas veces como yo le indique: Sub Macro1() Dim Filas As Single, MiRango As...
1 respuesta

Recorrer una columna excel, encontrar datos que cumplen una condición y pegarlos en otra hoja

Estoy trabajando en un bucle que no termina de funcionarme, espero que puedan ayudarme. Consiste en ir recorriendo la columna A de la hoja 1, con numero de filas variable, localizar todos los datos que cumplan la condición de que va siempre precedido...
1 respuesta

Permitir solo determinado formato en celdas

Solicitando nuevamente te ayuda. Como podría hacer para que en una hoja de Excel llamada Datos, la columna A (Consecutivo) acepte solo números; la columna B (Descripción) acepte solo texto y por ultimo la columna C (Fecha) solo fechas. Ademas si al...
1 respuesta

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta