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.

El ejemplo anda a la perfección, sólo tengo que adaptarlo. En "Google" había
encontrado la expresión: "Range("A65536").End(xlUp)" pero no sabía cómo
saltar a la primer celda libre.
Muchas gracias.-




"Ignacio" escribió en el mensaje
news:

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.
>
>
>
>
>

Hola Aristides,

Un poco mas de lo mismo:

Sub Registrar()
Dim Valores As Range, Fila As Long
Set Valores = Sheets("HojaFormulario").Range("A4:D4")
With Sheets("BaseDeDatos")
Fila = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(Fila, 1), .Cells(Fila, 4)).Value = Valores.Value
End With
Valores.ClearContents
End Sub

Saludos,
KL

"aristides fernandez" wrote in message
news:

El ejemplo anda a la perfección, sólo tengo que adaptarlo. En "Google"
había
encontrado la expresión: "Range("A65536").End(xlUp)" pero no sabía cómo
saltar a la primer celda libre.
Muchas gracias.-




"Ignacio" escribió en el mensaje
news:

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.
>
>
>
>
>