Hola, como andan, necesito una ayuda para hacer lo siguiente: (estube probando con infinidad de loops y bucles para sacarlo pero no lo logro)
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