Cambiar contenido celda con macro en excel

Buena tarde, mi duda es la siguiente:
Necesito realizar una macro en excel que me permita, primero duplicar una fila completa y luego cambiar en uno de las celdas el nombre del campo basado en el nombre del primero.
Ejemplo:
Tengo la fila:
ct-0256 casa azul 1550
Y necesito copiar una nueva:
ct-0256 casa azul 1550
ct-0256 casa azul 1550
Y luego cambiar el nombre a la segunda así:
ct-0256 casa azul 1550
P&G-ct-0256         casa      azul      1550
GRACIAS POR SU AYUDA!!

1 Respuesta

Respuesta
1
Espero que esta solución te sea útil, yo solo grabe una macro, y aquí te pongo el código por si te sirve de orientación.
Sub copiaryrenombrar()
'
' copiaryrenombrar Macro
    Range("A1:D1").Select
    Selection.Copy
    Range("A2").Select
    ActiveSheet.Paste
    Range("A3").Select
    ActiveSheet.Paste
    Range("A3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "p&g-ct-0256 "
    ActiveCell.Offset(1, 0).Select
End Sub
Primero muchas gracias por tu ayuda,
te cuento que tu macro me funciona aunque el problema es que cuando ejecuto el macro con otra celda me vuelve a poner el nombre "p&g-ct-0256" y lo que necesito es que le deje el mismo nombre y solo le agregue a todos P&G-
Es decir algo como duplicar productos y al duplicado dejarle la misma referencia pero agregándole P&G- al inicio de la referencia!
Prueba esta modificación a ver si te sirve:
Te he adaptado y comentado el código para que puedas entender un poco mejor cada linea de la macro, espero te sea útil.
Sub copiaryrenombrar()
'
' copiaryrenombrar Macro
' Macro grabada el 24/09/2009 por Wolf
'
'
    Selection.Copy 'copia el rango seleccionado
    ActiveCell.Offset(1, 0).Select ' desciende una fila
    ActiveSheet.Paste 'pega el rango copiado
    ActiveCell.Offset(1, 0).Select 'desciende una fila
    ActiveSheet.Paste 'vuelve a pegar el rangocopiado
    ActiveCell.Offset(1, 0).Select 'lo mismito de antes
    Application.CutCopyMode = False 'aqui deja de pegar
    ActiveCell.Offset(-1, 0).Select 'sube una fila
    n = ActiveCell 'esta variable guarda el contenido actual de la celda activa
    ActiveCell.FormulaR1C1 = "p&g " & n ' y aqui concatena el contenido de la variabla con el texto que esta entre comillas
End Sub
Pruébalo y me comentas.
Muchas gracias, finalmente me funciono solo le realice una pequeña modificación al que me enviaste, quedo así por si alguien lo necesita luego:
Sub Macro2()
'
' Macro2 Macro
' preuba 2
'
' Acceso directo: CTRL+m
'
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
    n = ActiveCell
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "P&G-" & n
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "P&GVZ-" & n
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Nuevamente muchas gracias y ya es a donde acudir cuando necesite ayuda!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo modificar macro?

Esta macro lo que hace es básicamente copiar datos de una hoja a las otras dos hojas en un libro excel, pero cuando hay una formula copia la formula, ¿Cómo puedo hacer para que en lugar de copiar la formula, sólo copie los datos?. Gracias por su...
1 respuesta

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

Bloquear celdas una vez introducido un valor

Estoy creando una hoja de excel, que lleva macros, bloqueos, condicionales, etc etc pero me falla una cosa!. Hay unas celdas que la gente debe introducir un numero. Quieo que una vez hayan introducido el número esta celda se bloquee y ya no puedan...
2 respuestas

Copiar De una hoja a otra datos determinados

Y a ver si me podéis ayudar porque llevo mucho rompiéndome la cabeza con esto y no consigo saber si se puede hacer. Tengo un libro con dos hojas. En la primera (Hoja 1) Tengo una "base de datos" en la que en la que: Columna A :Nombre productos;...
1 respuesta

Cortar fila de una hoja y pegar en otra hoja en la siguiente libre

Y feliz año! Tengo un excel con 2 hojas, una con datos de pedidos antiguos y otro con datos de pedidos actualizados. Quiero hacer una macro que automáticamente copie la fila de los pedidos nuevos de la hoja 2 en la hoja 1 (al final), es decir...
1 respuesta

Pasar de fila a Columnas

Tengo este código que baje de la página de ustedes pero me coge la matriz y me la pasa toda a una fila y quisiera que fuera a una columna, no se que modificarle les agradezco que me ayduden a modificar el código y me copie todo a una sola columna...
1 respuesta

Macro, que termine el proceso cuando la celda esta vacía

Hice una macro que se ejecuta hasta un numero de veces, ¿La pregunta es se puede hacer que se ejecute hasta la celda vacía? Copio la macro. Sub Macro2() ' ' Macro1 Macro ' ' Acceso directo: CTRL+e Application.ScreenUpdating = False For i = 1 To 500...
1 respuesta