Macro que copie datos a otra hoja

Tengo una hoja de calculo que da resultado a través de fórmulas, es decir ella calcula el monto de un servicio, lo que quiero es una macro que copie las celdas que yo le indique de esta hoja y vaya haciendo un registro en otra hoja. Una base de datos para luego yo hacer consulta de ella, cada vez que yo le de a un botón macro me guarde la información de esas celdas. Un registro a cada fila a la derecha y cuando sea otro servicio lo siga copiando debajo de los registros anteriores.
Ej.
Fecha nro de servicio monto usuario cliente semana (un servicio), para el siguiente
siga aquí debajo de cada uno de los anteriores

1 respuesta

Respuesta
1
La rutina que te dejo de ejemplo, se ejecuta con un botón que tendrás en esa hoja que querés guardar.
Desde menú Ver, Barras.. seleccioná Cuadro de control y dibujá un commandbutton.
Luego hacé clic derecho sobre el control dibujado, Ver código. Así entrás al Editor y allí copiá esta macro. Ajustá todas las referencias (ubicación de cada celda a copiar, nbre de la hoja destino, etc).
Private Sub CommandButton1_Click()
'rutina que graba la factura en hoja base
'se busca la primer fila libre en hoja Fact
filalibre = Sheets("BaseFact").Range("A65536").End(xlUp).Row + 1
'copiamos datos fijos ajustando nro col
Sheets("BaseFact").Cells(filalibre, 1) = ActiveSheet.Range("F9")  'NRO FACT
Sheets("BaseFact").Cells(filalibre, 2) = ActiveSheet.Range("F4")  'FECHA
Sheets("BaseFact").Cells(filalibre, 3) = ActiveSheet.Range("C9")  'NRO CTA
Sheets("BaseFact").Cells(filalibre, 4) = ActiveSheet.Range("C4")  'CLIENTE
'una vez concluída la copia debiera limpiarse el form de datos
'para el ingreso de nueva factura
'Call limpieza     OPCIONAL
End Sub
Armála, probala y si te queda alguna duda escribime nuevamente.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Buscar datos y según sea el dato encontrado pegarlo en hojas distintas.

Buscando en los foros encontré la siguiente macro; filalibre = Sheets("hoja2").Range("a65000").End(xlUp).Row + 1 dato = InputBox("que dato buscamos???") If dato = "" Then Exit Sub Set buscado = ActiveSheet.Range("a1:a" &...
2 respuestas

Macro pra copiar celdas en otra hoja

No se nada de macros, pero me interesa una en la cual copie algunas celdas y rangos en otra hoja, pero que al pergarlas me las copie en fila y no en columna es decir que si yo tengo información en la celda A1 y en a B3 en la hoja 1 llamemos así a la...
1 respuesta

Alimentar base de datos según datos del formato

Tengo un formato llamado "registro", necesito que cuando termine de digitar todos los campo y le vaya a dar click a un botón que tengo para imprimir, me asigne un numerador automático, me imprima, me guarde el archivo en PDF en otra carpeta, me...
1 respuesta

Copiar celdas a otra hoja en la primera fila libre

Primero felicitarles por la página que me parece estupenda. Voy con mi pregunta: Tengo un libro con las hojas: externo, interno y base de datos, la utilizo para ingresar datos de personal autorizado a fin de realizar trabajos en la empresa, en las...
2 respuestas

Tablas dinámicas con dos criterios

He leído muchas de tus respuestas (una parecida a la cuestión que te formulo) y poco a poco me voy iniciando en el macromundo. Me encuentro con que precisaría construir una macro que generase una tabla dinámica de acuerdo con los siguientes...
1 respuesta

Macro para copiar si se cumple una condición

Quisiera que por favor me ayudaran con una macro que me recorra una columna en una hoja de cálculo (130,000 filas) y que cuando encuentre una celda con un valor especifico me copie la fila completa en otra hoja. Otra consulta adicional: una hoja de...
1 respuesta