Foros


Inicio » Búsqueda » Mensajes de bnhs

Autor Mensaje
Tópico: SeparaNombres
bnhs

Mensajes: 11
 Mensaje Foro: Excel Enviado: Septiembre 06, 2005 Asunto: Re: SeparaNombres
Gracias Paco. Saludos!
Tópico: SeparaNombres
bnhs

Mensajes: 11
 Mensaje Foro: Excel Enviado: Septiembre 04, 2005 Asunto: Re: SeparaNombres
Gracias por tu respuesta Edreher, quedo solucionada mi duda
Tópico: SeparaNombres
bnhs

Mensajes: 11
 Mensaje Foro: Excel Enviado: Septiembre 03, 2005 Asunto: SeparaNombres
Hola!! Es la primera vez que ingreso a esta pagina y todas sus sugerencias son muy buenas, asi que ahora tengo una pregunta sobre la macro siguiente que proporciono ByPACO, ya que al momento de ejecutarla me marca error en [b:fed56e5294]ActiveCell.Offset(-1, -3).Range("A1").Select[/b:fed56e5294], no se que estoy haciendo mal, me pueden ayudar. Sub SeparaNombres() ' Separa Nombres con división "/" en columnas con encabezado ' Macro recorded 02/10/2004 ByPaco ' Posicionarse en la primera celda a separar If Cells(ActiveCell.Row, ActiveCell.Column).Value = Empty Then GoTo fin ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert Cells(ActiveCell.Row, ActiveCell.Column + 3).Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Cells(ActiveCell.Row, ActiveCell.Column - 3), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar _ :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)) Selection.EntireColumn.Delete ActiveCell.Offset(-1, -3).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Paterno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Materno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Nombre(s)" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit fin: End Sub

Página: 1