UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

neskat


Hola comunidad, les escribo para solicitar su ayuda, necesito que en el archivo adjunto en la hoja de datos, cada fila de la hoja 1 que se llama hoja de datos se copie la cantidad de veces que esta en la columna E en la segunda hoja llamada hoja 2. Tengo hecha una macro , pero tengo los siguientes problemas , si el valor de la columna E de la primera fila es menor que el segundo valor , empieza a copiar la segunda fila , no se porque pasa esto 

Ademas , solo debe copiar hasta la fila 9 de la hoja 2 y de ahi saltar a la columna S y seguir hasta la fila 9 y despues saltar a la columna AK1 hasta la fila 9 , sumando en total 24


Espero me puedan ayudar, no puede subir el archivo , pero les subo el codigo que tengo ahora





[ltr]Sub Macro3()
libroactual = ActiveWorkbook.Name
nombrehoja = ActiveSheet.Name
suma = 0
For i = 1 To Range("A1048576").End(xlUp).Row

valor = Cells(i, 5)
suma = valor + suma

If suma < 25 Then

If suma < 9 Then

For x = 1 To valor

For j = 1 To 4

celda = Cells(i, j)
Sheets("hoja2").Select
Cells(x, j) = celda
Sheets(nombrehoja).Select

Next j

Next x

End If



End If

Next i


End Sub
[/ltr]

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.