convertir fórmulas en macros

Hola Coloma

Antes que nada para abrir VBA des Excel tenés que apretar Alt + F11.
Se abre una ventana de VBA en la cual a la izquierda tenés un panel de
Proyectos y otro de Propiedades, de no ser así, vas a Ver - Explorador de
Proyectos y Ver - Ventana de Propiedades.

En el Explorador de Proyectos vas a buscar el que diga VBAProject (nombre de
tu archivo). Vas a hacer click con el botón derecho y vas a Insertar y luego
Módulo.
Asi estás empezando a establecer una Macro.
Se te va a agregar una carpeta llamada Modulo a tu proyecto. La desplegas y
le das doble clik al Modulo 1 y copias el siguiente código:

Sub Concatenar() 'nombre de la macro
Range("A2").Select 'posicionarse sobre A2
Do While ActiveCell <> Empty 'hacer mientras que la celda no este vacía
ActiveCell.Offset(0, 2).Select 'moverse dos columnas a la derecha Columna C
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])" ' _
escribir la fórmula en la celda activa
ActiveCell.Offset(1, -2).Select 'bajar una fila y moverse dos columnas a la _
izquierda Columna A
Loop 'volver a empezar el proceso hasta que una celda de la columna A esté
vacía
Range("C2").Select 'seleccionar celda C2
Range(Selection, Selection.End(xlDown)).Select 'cumple la misma función que _
Ctrl + Shift + Flecha Abajo
Selection.Copy 'copia las celdas seleccionadas
Sheets("Hoja2").Activate 'pasa a la Hoja2
Range("A2").Select 'posicionarse sobre A2
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, _ Transpose:=False 'pega valores si querés pegar con las
fórmulas solo se usa _ activesheet.paste
Range("A2").Select 'posicionarse sobre A2
End Sub 'Fin de la Macro

Cerras la ventana de VBA y se activa el Excel. Vas a Ver - Barra de
Herramientas y activas la de Visual Basic. Dentro de esta barra tenés un
botón que es Botón de Comando. Haces click en el y te paras en el excel y
estirás hasta la longitud que quieras del botón. Haces doble click en él se
abre VBA y copias el siguiente código:

Private Sub CommandButton1_Click()
Concatenar
End sub

Cerras nuevamente la pantalla de VBA. Haces click con el botón derecho y
seleccionas propiedades. Ahí te encontrás con las opciones del botón en
cuestión. Donde dice "Caption" es el nombre que figura dentro del botón. Te
sugiero que, por ahora sea, lo único que cambies.

Todo esto en base a que los datos empiezan en A2 y siempre y cuando no haya
ninguna celda vacía en la columna A.

Cualquier duda o consulta, avisas??

Saludos,

Guli

Apreciado Guli,
Siento decirte que seguramente hago algo mal...porque me da un error de
compilación o sintaxis...
o eso dice...
yo copié todo tu código y borré a partir de la '
ejemplo: Sub Concatenar() 'nombre de la macro
'nombre de la macro lo borré y así sucesivamente.

Otra cosita..No cosigo encontrar el botón de comando para pegar el último
código que me dices...
alguna idea...
gracias por adelantado
Coloma
Coloma


"Guli" wrote:

Hola Coloma

Antes que nada para abrir VBA des Excel tenés que apretar Alt + F11.
Se abre una ventana de VBA en la cual a la izquierda tenés un panel de
Proyectos y otro de Propiedades, de no ser así, vas a Ver - Explorador de
Proyectos y Ver - Ventana de Propiedades.

En el Explorador de Proyectos vas a buscar el que diga VBAProject (nombre de
tu archivo). Vas a hacer click con el botón derecho y vas a Insertar y luego
Módulo.
Asi estás empezando a establecer una Macro.
Se te va a agregar una carpeta llamada Modulo a tu proyecto. La desplegas y
le das doble clik al Modulo 1 y copias el siguiente código:

Sub Concatenar() 'nombre de la macro
Range("A2").Select 'posicionarse sobre A2
Do While ActiveCell <> Empty 'hacer mientras que la celda no este vacía
ActiveCell.Offset(0, 2).Select 'moverse dos columnas a la derecha Columna C
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])" ' _
escribir la fórmula en la celda activa
ActiveCell.Offset(1, -2).Select 'bajar una fila y moverse dos columnas a la _
izquierda Columna A
Loop 'volver a empezar el proceso hasta que una celda de la columna A esté
vacía
Range("C2").Select 'seleccionar celda C2
Range(Selection, Selection.End(xlDown)).Select 'cumple la misma función que _
Ctrl + Shift + Flecha Abajo
Selection.Copy 'copia las celdas seleccionadas
Sheets("Hoja2").Activate 'pasa a la Hoja2
Range("A2").Select 'posicionarse sobre A2
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, _ Transpose:=False 'pega valores si querés pegar con las
fórmulas solo se usa _ activesheet.paste
Range("A2").Select 'posicionarse sobre A2
End Sub 'Fin de la Macro

Cerras la ventana de VBA y se activa el Excel. Vas a Ver - Barra de
Herramientas y activas la de Visual Basic. Dentro de esta barra tenés un
botón que es Botón de Comando. Haces click en el y te paras en el excel y
estirás hasta la longitud que quieras del botón. Haces doble click en él se
abre VBA y copias el siguiente código:

Private Sub CommandButton1_Click()
Concatenar
End sub

Cerras nuevamente la pantalla de VBA. Haces click con el botón derecho y
seleccionas propiedades. Ahí te encontrás con las opciones del botón en
cuestión. Donde dice "Caption" es el nombre que figura dentro del botón. Te
sugiero que, por ahora sea, lo único que cambies.

Todo esto en base a que los datos empiezan en A2 y siempre y cuando no haya
ninguna celda vacía en la columna A.

Cualquier duda o consulta, avisas??

Saludos,

Guli

Lo acabo de probar y ahora debería de funcionar (espero):

Sub Concatenar() 'nombre de la macro
Range("A2").Select 'posicionarse sobre A2
Do While ActiveCell <> Empty 'hacer mientras que la celda no este vacía
ActiveCell.Offset(0, 2).Select 'moverse dos columnas a la derecha Columna C
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])" ' _
escribir la fórmula en la celda activa
ActiveCell.Offset(1, -2).Select 'bajar una fila y moverse dos columnas a la _
izquierda Columna A
Loop 'volver a empezar el proceso hasta que una celda de la columna A esté
vacía
Range("C2").Select 'seleccionar celda C2
Range(Selection, Selection.End(xlDown)).Select 'cumple la misma función que _
Ctrl + Shift + Flecha Abajo
Selection.Copy 'copia las celdas seleccionadas
Sheets("Hoja2").Activate 'pasa a la Hoja2
Range("A2").Select 'posicionarse sobre A2
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'pega valores si querés pegar con las _
fórmulas solo se usa activesheet.paste
Range("A2").Select 'posicionarse sobre A2
End Sub 'Fin de la Macro

Con respecto al Botón de comando: pudiste agregar la barra de herramientas
de Visual??

Espero tu respuesta,

Saludos,

Guli