macro o código

Con esta macro como base se pueden recoger valores de una hoja que usemos
como formulario hasta otra que ejerza de base de datos. Evidentemente tendrás
que adaptarla a tus necesidades pero seguro que te quita de estar pensando un
rato.

Sub Registrar()
'del rango "A4:D4" obtenemos los valores que se guardaran
Fecha = Sheets("HojaFormulario").Range("A4").Value
Conceptos = Sheets("HojaFormulario").Range("B4").Value
Debitos = Sheets("HojaFormulario").Range("C4").Value
Creditos = Sheets("HojaFormulario").Range("D4").Value
'..y los guardamos en la primera línea en blanco de la base de datos.
Fila = Sheets("BaseDeDatos").Range("A65536").End(xlUp).Row + 1

Sheets("BaseDeDatos").Range("A" & Fila).Value = Fecha
Sheets("BaseDeDatos").Range("B" & Fila).Value = Conceptos
Sheets("BaseDeDatos").Range("C" & Fila).Value = Debitos
Sheets("BaseDeDatos").Range("D" & Fila).Value = Creditos

'Después limpiamos nuestra hoja formulario.
Sheets("HojaFormulario").Range("A4:D4").ClearContents

End Sub



"aristides fernandez" escribió:

tengo una fórmula que realiza distintos cálculos: cuota, intereses, iva,
entrega y me lo muestra en determinadas celdas.
Por otro lado tengo columnas: fecha, concepto, débitos y créditos.
Necesito una macro o código que lleve la fecha, conceptos y los valores a
las columnas correspondientes:
por ejemplo:

Fecha concepto debe haber saldo

31/01/05 cuota Nº 10 100.00 100.00
31/01/05 intereses 10.00
31/01/05 iva 2.10
31/01/05 entrega 112.10


y que al próximo cálculo los ponga a continuación (ya que con la macro que
grabé siempre los pone en las mismas celdas).

Desde ya muchas gracias.