Pasar datos de una columna de una hoja a otra

Preguntas y respuestas relacionadas

Macro para pegar una fila en la Primera Fila Libre

Que tal utilizo esta Macro que encontré buscando en la red, para pegar una fila en la fila siguiente Sub Copia_y_Pega() Set MiRango = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)) MiRango.Copy Destination:=Range(MiRango.Offset(1, 0),...
1 respuesta

Macro- Click botón, copia fila y pega fila sucesivamente

Tengo una fila con formulas y quiero que apretando un botón "añadir artículo" me la copie y la pegue agregando una fila más por debajo. Así tantas veces como artículos se tengan que añadir.
1 respuesta

Macro para copiar ciertas celdas en otro excel y en otra hoja que se auto-complete

¿Cómo están? Bueno tengo las siguientes macros por separados Sub CopiarCeldas() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As...
1 respuesta

Copiar filas de hoja a otra según dos condiciones en excel

Deseo crear una macro que tome los datos de una tabla igual a la otra pero que copie los datos. Ejemp. Hoja1 codigo/ codsec/ codref/ nombre/ proveedor/ existensia/ ubicación 0110 25A1 0001 CODO 0051 0 " " hoja2 codigo/ codsec/ codref/ nombre/...
1 respuesta

Modificar "Field" con textbox de un filtro

Tengo un problema que no puedo solucionar, no puedo cambiar el Field de un filtro de Excel con una textbox en un userform, aquí les envío la macro: Sub Filtro() Dim r As Boolean Application.ScreenUpdating = False Hoja2.Activate r = TextBox3...
1 respuesta

Implementar Progress Bar en macro para generar efecto visual

Sub Buscar() 'Mod.Por.DAM Application.ScreenUpdating = False Set h1 = Sheets("Estados de cuenta") Set h2 = Sheets("Cartera.") ' h1.Range("A18:E6000").ClearContents j = 18 Set r = h2.Columns("G") Set b = r.Find(h1.Range("A6"), LookIn:=xlValues,...
1 respuesta

Macros en códigos de hojas Excel

Necesito desarrollar una macro que me copie la fórmula de una celda superior. Escribí este código: Private Sub Worksheet_change(ByVal Target As Range) Dim ufila As Byte ufila = Range("a:A").End(xlUp).Row Dim rango1 As Range Range("a2").Select Do...
1 respuesta

Incluir firma al enviar correos automáticos desde excel 2003

Tengo esta macro Ub enviar() Sheets("Control de alquiler").Select ufila = Range("A" & Rows.Count).End(xlUp).Row For i = 4 To ufila If Cells(i, 14) <= Cells(i, 15) Then Set parte1 = CreateObject("outlook.application") Set parte2 =...
1 respuesta

Como usar una condición que valide una fecha con el nombre del mes de esa misma fecha

Yo de nuevo En esta oportunidad amigo necesito que me ayudes con una validación en un formulario, la situación es esta en mi formulario al inicio del mismo tengo dos ComboBox en los que ingreso los nombre de meses del año, toda la información de este...
1 respuesta

Como dividir un libro en varios a cada 5000 registros

Tengo un archivo con más de 100,000 registros; y quiero dividirlos de 5,000 en 5,000. Pero creando un archivo para cada uno. Por tu interés recibe un cordial saludo
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas de los temas