Copiar formatos y formulas según la cantidad de veces pedida

buenas estoy haciendo un proyecto en el cual se trata de introducir modificar y eliminar registro

la cuestión que quiero hacer es la siguiente: ya introduje todos los datos que necesito al formulario me lanza el resumen del cual el botón se encargra de introducirlos tanvas veces se pidió en la BASE DE DATOS paso el código del botón :

Private Sub BtnGrabarDatos_Click()
On Error Resume Next
intvalor = 1
For i = 1 To ReCantidad Step 1
Range("B6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Range("B5:V5").Copy
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats,

Paste:=xlPasteFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell = CDbl(ReCodigo)
ActiveCell.Offset(0, 1) = ReCategoria
If IsNumeric(ReNuFactura) Then
ActiveCell.Offset(0, 2) = CDbl(ReNuFactura)
Else
ActiveCell.Offset(0, 2) = ReNuFactura
End If
If ReReferencia.Enabled = False Then
ActiveCell.Offset(0, 5) = ""
ElseIf IsNumeric(ReReferencia) Then
ActiveCell.Offset(0, 5) = CDbl(ReReferencia)
Else
ActiveCell.Offset(0, 5) = ReReferencia
End If
ActiveCell.Offset(0, 6) = ReDescripcion
ActiveCell.Offset(0, 7) = ReFecha
ActiveCell.Offset(0, 10) = ReEstado
If ReVaUnitario1.Enabled = True Then
ActiveCell.Offset(0, 11) = CDbl(ReVaUnitario1)
Else
ActiveCell.Offset(0, 11) = CDbl(ReVaUnitario2)
End If
Next i
VCantidad1 = ""
VCantidad2 = ""
VUnitario1 = ""
VUnitario2 = ""
VTotal1 = ""
VTotal2 = ""
Unload Me
End Sub

el problema que tengo es que a pesar de que me copia la fila de formato no me la inserta ni siquiera una vez que estoy haciendo mal?

1 Respuesta

Respuesta
1

Lo que hace tu rutina es:

-Busca la primer celda libre arrancando desde B6 hacia abajo

-Allí, imaginemos que sea B9, copia el contenido del rango B5:V5 con todos sus formatos

-Al repetir el bucle, vuelve a buscar la primer celda vacía

-Ahora es B10 y allí copia nuevamente el rango B5:V5

Te dejo a continuación las líneas ajustadas xq así como están dá error.

Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

En ningún momento le estás diciendo que inserte... se supone que copia en filas vacías.

¿Cuál es tu idea?

Sdos

Elsa

PD) ¿Sos el mismo usuario que acaba de enviarme un mail x otro tema?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para copiar y pegar última fila

Quisiera elaborar un macro que al ser ejecutado me copie la última fila de la hoja con datos (la última por abajo) del rango A:AX y me la pegue en la fila siguiente; y que tras ésto haga un pegado de valores (sin fórmulas, sólo los valores) en esa...
1 respuesta

Macro para copiar celdas con formato (color) a otra celda

Ya se me indicó en una ocasión la forma de trasladar (copiar) celdas de una hoja a otra con una macro. Ahora quisiera que también se transfiriesen no sólo el valor de las celdas sino también el color. Os adjunto parte del código de la macro que...
1 respuesta

Borrar Fórmula sin borrar datos

Quiero que una fórmula de excel se ejecute y cuando se halle el resultado se borre la fórmula y me quede unicamente el resultado en la celda, de tal forma que la próxima vez que abra el libro no se cambie el dato anterior.
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Pegar datos en última columna vacía

Estoy liado con una plantilla en la que quiero hacer lo siguiente. Necesito mediante una macro buscar una celda con un valor determinado en una columna:Cuando lo encuentre debería recorrer esa fila hasta encontrar la primera columna vacía de esa fila...
1 respuesta

Pasar de fila a Columnas

Tengo este código que baje de la página de ustedes pero me coge la matriz y me la pasa toda a una fila y quisiera que fuera a una columna, no se que modificarle les agradezco que me ayduden a modificar el código y me copie todo a una sola columna...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

Macro para copiar en la ultima fila libre

Tengo en una hoja un listado de precios, que en realidad es una macro que hace un listado de todas las hojas del libro. Ahora bien, el listado aparece en la columna B, en las columnas C a J, hay fórmulas asociadas a lo que aparece en la B. ¿Lo qué...
1 respuesta