Correr una macro en más de una celda
Hola que tal... Disculpen espero que alguien me pueda ayudar... Tengo la siguiente macro:
Sub iniciales()
Dim nombre As String
Dim largo As Integer
Dim x As Integer
Dim y As String
Dim letra_sig As String
Dim iniciales As String
nombre = ActiveCell.Value
largo = Len(nombre)
iniciales = Left(nombre, 1)
For x = 1 To largo
y = Mid(nombre, x, 1)
If y = " " Then
inicial_sig = Mid(nombre, x + 1, 1)
iniciales = iniciales & inicial_sig
End If
Next
ActiveCell.Offset(0, 1).Value = iniciales
End Sub
Esta es para iniciales pero tengo que seleccionar la celda y el resultado me lo arroja en la siguiente una por una... Tengo más de 4000 entradas y seguirá creciendo mi base de datos... Alguien me puede ayudar para que esto se haga de forma automática.
Gracias de antemano.
Sub iniciales()
Dim nombre As String
Dim largo As Integer
Dim x As Integer
Dim y As String
Dim letra_sig As String
Dim iniciales As String
nombre = ActiveCell.Value
largo = Len(nombre)
iniciales = Left(nombre, 1)
For x = 1 To largo
y = Mid(nombre, x, 1)
If y = " " Then
inicial_sig = Mid(nombre, x + 1, 1)
iniciales = iniciales & inicial_sig
End If
Next
ActiveCell.Offset(0, 1).Value = iniciales
End Sub
Esta es para iniciales pero tengo que seleccionar la celda y el resultado me lo arroja en la siguiente una por una... Tengo más de 4000 entradas y seguirá creciendo mi base de datos... Alguien me puede ayudar para que esto se haga de forma automática.
Gracias de antemano.
1 Respuesta
Respuesta de jerryeagle
1