Repetir la fila dependiendo del valor de la celda

03/03/2007 - 02:46 por Israel | Informe spam
Hola a a todos
tengo otra duda
a continuacion el codigo
Sub Botón1_AlHacerClic()
Dim Origen As Range, Fila As Integer
Fila = 2
Busca:
If Worksheets("matrix").Range("a" & Fila) = "" Then GoTo Salida
On Error Resume Next
With Worksheets("Proc.base")
Set Origen = .Cells.Find( _
What:=Worksheets("matrix").Range("a" & Fila), _
After:=.Range("a2"), _
LookAt:=xlWhole)
If Not Origen Is Nothing Then
Origen.Resize(9).EntireRow.Copy _
Destination:=Worksheets("hoja3").Cells(Rows.Count,
"a").End(xlUp).Offset(2)
Else: MsgBox Worksheets("matrix").Range("a" & Fila) & " NO se
encuentra !!!"
End If
End With
Fila = Fila + 1
GoTo Busca
Salida:
Set Origen = Nothing
End Sub

mi problema es el siguente:
ahora tengo una columna que contiene numeros del 1 al 5
ejemplo
fila1 columna V :
fila2 2
fila3 3
fila4 1
..
ahora quiero que dependiendo del numero que aparezca en la columna V
sera el numero de veces que se repitan los renglones que se copio en
el codigo(ya que solo se copia una ves) y ahora quiero que se repita
el numero de veces

para mas facil de entender
Quiero que me repita las filas dependiendo del numero que aparezca en
la columna)

o a que correo puedo mandar el archivo para mejor entendimiento

gracias, suerte

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
04/03/2007 - 04:02 | Informe spam
hola, Israel !

tengo otra duda a continuacion el codigo [...]
mi problema es el siguente: ahora tengo una columna que contiene numeros del 1 al 5 ejemplo
fila1 columna V :
fila2 2
fila3 3
fila4 1
...
ahora quiero que dependiendo del numero que aparezca en la columna V sera el numero de veces
que se repitan los renglones que se copio en el codigo (ya que solo se copia una ves)...
para mas facil de entender Quiero que me repita las filas dependiendo del numero que aparezca en la columna)



Sub Botón1_AlHacerClic()
Dim Origen As Range, Fila As Integer, Veces As Byte
Fila = 2
Busca:
If Worksheets("matrix").Range("a" & Fila) = "" Then GoTo Salida
On Error Resume Next
With Worksheets("Proc.base")
Set Origen = .Cells.Find( _
What:=Worksheets("matrix").Range("a" & Fila), _
After:=.Range("a2"), _
LookAt:=xlWhole)
If Not Origen Is Nothing Then
For Veces = 1 To Worksheets("matrix").Range("v" & Fila)
Origen.Resize(9).EntireRow.Copy _
Destination:=Worksheets("hoja3").Cells(Rows.Count, "a").End(xlUp).Offset(2)
Next
Else: MsgBox Worksheets("matrix").Range("a" & Fila) & " NO se encuentra !!!"
End If
End With
Fila = Fila + 1
GoTo Busca
Salida:
Set Origen = Nothing
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida