Ayuda

04/08/2004 - 01:44 por Marcelo | Informe spam

Hola a todos.

Creo que el mensje no llegó por eso lo vuelvo a enviar.

Me surge la siguiente interrogante que necesito resolver.
¿Cómo puedo hacer con la macro que copio debajo para que cuando comienza a
seleccionar los datos y a copiarlos omita copiarlos en cierto rango de
filas?
La macro va copiando y pegando datos, pero necesito que cuando vaya a
pegarlos en la fila 68 de la hoja "cancelación" salte a la fila 77 de modo
que las filas 68 a 76 de la hoja "cancelación" queden vacías.
Por si sirve de algo, el rango donde necesito que se copien los datos en la
hoja "Cancelación" es de la fila 21 a la 67 y luego de la 77 en adelante.
No sé si esto es posible, por eso necesito su ayuda.

Saludos a todos,

Marcelo

Sub cancelar_AT()

Sheets("Cancelación").Select
Rows("21:501").Select
Selection.ClearContents

Dim Fila As Integer
For Fila = 2 To 20000
If Application.Sum(Worksheets("Descargas").Range("B" & Fila)) = 0 Then
Exit For
If Not Application.Sum(Worksheets("Descargas").Range("B" & Fila)) <>
(Worksheets("Cancelación").Range("AD12")) Then
Sheets("Descargas").Select
Range("C" & Fila).Select
Selection.Copy
Sheets("Cancelación").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Marcelo

05/08/2004 - 18:04 | Informe spam

Estimado Hécto Miguel:

Ya he solucionado el problema.
Copio el código para que lo vean y darle un final a estas
idas y venidadas.
Lo que agregué funciona bien, ¿Piensas que así está bien o
hay otra forma más simple da hacerlo?

Desde Ya muchas Gracias por Todo.

Saludos,

Marcelo

Sub cancelar_AT()

Dim Origen As Worksheet, Destino As Range, Filtro As Range
Dim Fila As Integer, Salto As Integer, Omitidas As Integer
Dim Destino2 As Range
Dim Destino3 As Range
Dim Destino4 As Range
Dim Destino5 As Range
Set Origen = Worksheets("Descargas")
Set Destino = Worksheets("Cancelación").Range("a65536")
Set Destino2 = Worksheets("Cancelación").Range("z65536")
Set Destino3 = Worksheets("Cancelación").Range("aw65536")
Set Destino4 = Worksheets("Cancelación").Range("bu65536")
Set Destino5 = Worksheets("Cancelación").Range("cr65536")
Set Filtro = Worksheets("Cancelación").Range("ad12")
Application.ScreenUpdating = False
Destino.Parent.Rows("21:501").ClearContents
With Origen
For Fila = 2 To 2000
If .Range("b" & Fila) = 0 Then Exit For
If Not .Range("b" & Fila) <> Filtro Then
If Fila = 49 + Omitidas Then Salto = 10 Else Salto = 1
Destino.End(xlUp).Offset(Salto) = .Range("C" & Fila)
Destino2.End(xlUp).Offset(Salto) = .Range("D" & Fila)
Destino3.End(xlUp).Offset(Salto) = .Range("E" & Fila)
Destino4.End(xlUp).Offset(Salto) = .Range("F" & Fila)
Destino5.End(xlUp).Offset(Salto) = .Range("G" & Fila)
Else
Omitidas = Omitidas + 1
End If
Next
Application.CutCopyMode = False
End With
Set Filtro = Nothing
Set Destino = Nothing
Set Destino2 = Nothing
Set Destino3 = Nothing
Set Destino4 = Nothing
Set Destino5 = Nothing
Set Origen = Nothing

End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida