Selección entre rango de fechas y copiar con macro

Tengo un userform donde he incluido dos calendarios uno para la fecha inicial y el otro para la fecha final con un botón command button "procesar"
La idea es seleccionar en los calendarios las fechas y que al dar procesar se realicen la búsqueda en la hoja "registro" la columna A de las fechas incluidas en el parámetro.
Luego de conseguir la información, copie en la hoja "Destino" la información de las celdas A E y G de la fila o filas que cumplan la restricción de las fechas en las celdas a b, c a partir de las fila 4 y posteriores hasta que no queden más registros que copiar .
Agradeceré tu colaboración

1 Respuesta

Respuesta
1
Debería ser de la siguiente forma:
inicio = inicio.value ' nombre de tu campo inicio
final  = fin.value ' nombre de tu campo final
sheets("registro").select
range("A2").select ' acá marca el inicio  de tu macro
do while (not isemprty(activecell))
if (activecell >= inicio and activecell <= final
and activecell.offset(0,1).value >= inicio and activecell.offset(0,1).value <= final
and activecell.offset(0,2).value >= inicio and activecell.offset(0,2).value <= final
) then
celda_a = activecell ' copio el valor de celda a
celda_e = activecell.offset(0,5).value ' copio el valor de celda e
celda_g = activecell.offset(0,7).value ' copio el valor de celda g
sheets("Destino").select
range("A65536").end(Xlup).offset(1,0).select
ActiveCell.PasteSpecial xlPasteValues ' pega valor de celda a
activecell.offset(0,5).PasteSpecial xlPasteValues ' pega valor de celda e
activecell.offset(0,7).PasteSpecial xlPasteValues ' pega valor de celda g
sheets("registro").select
activecell.offset(1,0).select
end if
loop

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar Hipervínculo desde celdas combinadas a otra celda en otra hoja

Necesito copiar un hipervínculo que esta en celdas combinadas a una única celda ubicada en otra hoja, a continuación te pongo la macro que utilizo pero esta me pega solo el valor y no se como hacer por lo que el hipervínculo esta en celdas combinadas...
1 respuesta

Realizar reportes en excel

De nuevo por aca estoy solicitando de su valiosa ayuda. Tengo una hoja llamada registros, en donde en b9(fecha); c9(articulo);c10(entradas) d10(salidas). Tengo un formulario llamado reportes en donde deseo ingresar el nombre del articulo y que me...
1 respuesta

Macro que copie renglones segun valores en columnas

Tengo el siguiente detalle. En un libro de excel tengo alrededor de miles de registros, con la siguiente estructura: ColA ... Col E col F... Col AK col AL ... Col BD xx dato dato valor1 valor2 ... Valor 3 La cosa es la siguiente quiero que se copie...
1 respuesta

Copiar rango de celdas según condición VBA

Necesito de su ayuda en lo siguiente, quiero copiar un rango de celdas y pegarlas en otra ubicación solo si cumple una condición, por ejemplo tengo una columna digamos B:B la cual tiene valores como nombres de personas en cada celda por ejemplo b1 =...
2 respuestas

Macro. Copiar filas según condición.

Agradecería también que me ayudara en este otro macro, he separado los dos mensajes para que la respuesta no sea demasiado compleja. Tengo una hoja en la que se han introducido una serie de registros. Quisiera copiar en otra hoja sólo aquellas filas...
1 respuesta

Macro que copia celdas sin repetir los datos copiados

Hará cosa de dos meses os consultaba una duda sobre una macro que me copiase celdas de una hoja a otra en determinadas columnas (la pregunta era: "Crear macro que copie celdas si cumplen una condición".) Me funcionó a la perfección, pero usándola me...
1 respuesta

Macro que busque un valor en una columna y que lo pegue en otra columna de otro libro.

Tengo un señor problema, resulta que tengo 20 datos en la columna E de un libro llamado DESVIACIONES, necesito buscar desde la E7 hasta la E26 los datos mayores o iguales a 0, si encuentra alguno que lo copie y lo peque en otra hoja llamada Hoja2 en...
1 respuesta

Macro para copiar según nombre de hoja

Tengo una macro con una hoja de registros por filas (hoja total), de esta hoja, con una macro paso los registros que tienen el la columna B:B el nombre de una hoja, a la correspondiente hoja. Esta es la mcro que repito para cada nombre de hoja: Sub...
1 respuesta

Filtro con hipervínculo

Tengo un fichero Excel con un montón de códigos numéricos que van desde el 00000 al 99999. Lo que quiero hacer es otro fichero Excel que al poner un valor en una celda que estará dentro del rango anterior, por ejemplo 11111, haciendo click en esta...
1 respuesta