Tengo 2 hojas, de las cuales la hoja1 (base de datos) tiene:
2 columnas: la A contiene fechas del dia =hoy(), la B tiene nombres de clientes.
cada dia agrego nuevos registros insertando filas desde la celda A9, por lo tanto a simple vista en la hoja se ven por ejemplo 10 filas con la fecha de lo que hice hoy 20/05/07, luego las de abajo, ej: 7 filas con la fecha 19/05/07, y asi continua con las del dia anterior y anterior.
Lo que intento hacer es extrare de la hoja1 lo que se hizo hoy (20/05/07) y pegarlo en la hoja2(cierre de caja) pero estoy bloqueado
lo mejor que pude hacer es: (lo tome de un codigo prestado, y lo adapte) quiza su dueño lo reconozca :p
Sheets("Base de Datos").Select
ActiveSheet.Unprotect
Sheets("Base de Datos").Range("A9").Select
'Vamos a desplazaremos hacia abajo, hasta que la celda no se de la fecha del dia
Do While Not ActiveCell.Value = Range("Q1").Value
'guardamos la posicion actual en una variable
direccion = ActiveCell.Address
'paso el nombre a 3 columnas a la derecha
nombre = ActiveCell.Offset(0, 3)
'el importe pagado a 9 columnas a la derecha
importe_pagado = ActiveCell.Offset(0, 9)
'si el importe pagado no esta en cero como una compra o un ajuste de stock
If importe_pagado <> "" And cantidad <> 0 Then
'nos situamos en la la hoja de cierre de caja para empezar a escribir la factura
Sheets("Cierre de Caja").Range("B30").Select
'mientras no este vacia nos movemos hacia abajo
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0) = nombre
ActiveCell.Offset(0, 2) = importe_pagado
End If
'volvemos a la base de datos a al lugar inicial
Sheets("Base de Datos").Range(direccion).Select
'y luego un lugar hacia abajo
ActiveCell.Offset(1, 0).Select
Loop
