Como simplificar el siguiente codigo VBA

Estoy tratando de simplificar el siguiente codigo VBA para que mi excel no sea tan lento. Mi codigo tiene muchas instrucciones repetitivas y al parecer eso lo esta haciendo muy lento. Supongo que podria escribir una sola linea de codigo en lugar de tener todas estas repeticiones pero no se me ocurre como, ¿me podrias ayudar?

Application.ScreenUpdating = False
'INSERTAR FILA
Sheets("BD").Select
Range("A2").EntireRow.Insert
Sheets("REGISTRO").Select
'CODIGO
Range("B4").Copy
Sheets("BD").Select
Range("A2").PasteSpecial xlPasteValues
Sheets("REGISTRO").Select
'CODIGO DE ENLACE N1
Range("B6").Copy
Sheets("BD").Select
Range("B2").PasteSpecial xlPasteValues
Sheets("REGISTRO").Select
'CODIGO DE ENLACE N2
Range("B8").Copy
Sheets("BD").Select
Range("C2"). PasteSpecial xlPasteValues
Sheets("REGISTRO"). Selec

Respuesta
1

Intenta así:

Set bd = Sheets("BD")
Set reg = Sheets("REGISTRO")
BD.Range("A2").EntireRow.Insert
bd.Range("A2").Value = reg.range("B4")
bd.Range("B2").Value = reg.range("B6")
bd.Range("C2").Value = reg.range("B8")
Sheets("REGISTRO"). Select

2 respuestas más de otros expertos

Respuesta
2

Prueba con estas lineas

Sub copia2()
Sheets("bd").Range("a2").EntireRow.Insert
With Sheets("registro")
    . Range("b4"). Copy: Sheets("bd"). Range("a2"). PasteSpecial
    . Range("b6"). Copy: Sheets("bd"). Range("b2"). PasteSpecial
    . Range("b8"). Copy: Sheets("bd"). Range("c2"). PasteSpecial
End With
End Sub
Respuesta
2

Aquí otra macro para ti para tu consideración:

Sub Test()
  Sheets("BD").Rows(2).Insert
  Sheets("BD").[A2].Resize(1, 3).Value = Array(Sheets("REGISTRO").[B4], Sheets("REGISTRO").[B6], Sheets("REGISTRO").[B8])
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Resaltar celda de hoja1 si la celda de la hoja2 es igual

Me podrian ayudar necesito una macro para resaltar las celdas de la hoja1 de color amarillo conforme se van agregando en la hoja 2. Hoja1 hoja2 NOMBRE NOMBRE LUIS ERNESTO JUAN FABIO PEDRO LUIS ISAIAS PEDRO ESTEBAN PAOLO MAURO
3 respuestas

Excel - calcular la diferencia en meses entre dos fechas diferenciado en que años

2 fechas en dos celdas con 4 años de diferencia (o 5 o los que sean), como calcular la cantidad de meses por año
2 respuestas

¿Se pueden automatizar procesos en excel?

La presente es para solicitar amablemente su ayuda, como pueden observar en el presente archivo de excel denominado relación de consumos de QBANO, tengo 3 hojas con los siguientes nombres: HODECOL, MULTIVACIONES Y SERVINCLUIDOS, necesito una macro o...
1 respuesta

Valores duplicados en hoja de excel con macro

Necesito ayuda con esta macro tengo una tabla donde ingreso datos, quiero que cuando encuentre uno repetido me salga un mensaje que ya esta registrado. Private Sub CommandButton_aceptar_Click() prueba =...
1 respuesta

Llamar datos de formulario en excel

Necesito ayuda tengo un formulario en excel donde tengo 2 hojas en un libro, quiero llamar a los datos cuando se pone los datos en el primer textbox.
2 respuestas

Cómo borrar un texto predeterminado en un Textbox al hacer click

Tengo un Textbox en un formulario con un texto predeterminado, Segundo Nombre, pero quisiera que al hacer click en este desaparezca automáticamente para empezar a completar la información deseada. La información del Segundo Nombre se graba en la...
2 respuestas

Macro filtrar por rango de fecha

Tengo una base de datos en Excel desde el rango A2:K10000 con cabecera en la fila 2, en la columna E tengo fechas de registro, deseo programar una macro que filtre al digitar unicamente un rango de fecha en las columnas B1 (Fecha inicial) C1 (Fecha...
1 respuesta

Sumar dentro de un textbox

Tengo un textbox y quiero ingresar por ejemplo 1+3+6-2 y que apretando enter me de el resultado 8 en el mismo textbox. Alguien que me pueda ayudar
3 respuestas

Encontrar repetidos en varias columnas

Tengo una tabla que contiene 10 columnas, que he importado de Excel: Nro1, nro2, nro3, nro4, nro5, nro6, nro7, nro8, nro9, nro10. Contienen números tipo texto, por ejemplo. Nro1 nro2 nro3 nro4,..., nro10 0005 4578 1247 1326,... 2147 1247 4587 0035...
1 respuesta

Equivalente filtro avanzado en excel sheets

Tengo que hacer un filtro avanzado en excel sheets y no hay manera, ya que lo que necesito es que el filtro sea en la propia tabla y con varios criterios lo que con el filtro avanzado de excel si se hacer. No me deja añadir una imagen, pero es la...
1 respuesta