Problema con bucle

Hola, pretendo hacer un bucle, pero lo cirteo es que no me sale
Mi idea es que mientras tenga celdas con datos en la columna de se repita la secuencia de abajo ( realmente es más larga pero con esto es suficiente)
Range("D2").Select
    Selection.Copy
    Range("s65535").Select
    ActiveCell.End(xlUp).Select
ActiveCell.Offset(0, 0).Select
    ActiveSheet.Paste
    ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveCell.End(xlUp).Select
ActiveCell.Offset(2, 0).Select
    ActiveSheet.Paste
    ActiveCell.End(xlUp).Select
ActiveCell.Offset(3, 0).Select
    ActiveSheet. Paste
Gracias de antemano y por la paciencia.

1 Respuesta

Respuesta
1
El ciclo podría ser de la siguiente forma
For i=1 to Range("A65535").End(xlUp).Row
  Cells(i, 4). Select 'Recorre la columna D hasta la última celda ocupada
      Selection. Copy
      Range("s65535").Select
      ActiveCell.End(xlUp).Select
  ActiveCell.Offset(0, 0).Select
      ActiveSheet.Paste
      ActiveCell.End(xlUp).Select
  ActiveCell.Offset(1, 0).Select
      ActiveSheet.Paste
      ActiveCell.End(xlUp).Select
  ActiveCell.Offset(2, 0).Select
      ActiveSheet.Paste
      ActiveCell.End(xlUp).Select
  ActiveCell.Offset(3, 0).Select
      ActiveSheet.Paste
Next
Hola, agradezco la ayuda pero hace lo mismo que si pusiese range ("d1").select, copia la celda d1 y la pega desde el rango s1 a s5.
Lo que busco el que seleccione d2 lo pegue desde s1 a s5, luego haga el bucle seleccionando y copiando d3 y lo que pegue en las siguientes 5 celdas de la columna s.
Gracias por ayudar
Perdón por no poner mayor atención en el código, sólo me limité a hacer el bucle.
Creo que es esto lo que quieres:
For i = 2 To Range("D65535").End(xlUp).Row
  Cells(i, 4). Select 'Recorre la columna D hasta la última celda ocupada
      Selection. Copy
      Range("s65535").Select
      ActiveCell.End(xlUp).Select
      ActiveSheet.Paste
  ActiveCell.Offset(1, 0).Select
      ActiveSheet.Paste
  ActiveCell.Offset(1, 0).Select
      ActiveSheet.Paste
  ActiveCell.Offset(1, 0).Select
      ActiveSheet.Paste
  ActiveCell.Offset(1, 0).Select
      ActiveSheet.Paste
Next
Si es eso, este código hace lo mismo, pero de una forma mucho más estética
Private Sub CommandButton2_Click()
    Dim dblFila As Double
    Dim i As Double, j As Double
    dblFila = Range("S65535").End(xlUp).Row
    For i = 2 To Range("D65535").End(xlUp).Row
      For j = dblFila To dblFila + 4
        Range("S" & dblFila + (j - dblFila)) = Range("D" & i)
      Next
      dblFila = j
    Next
    Range("S" & dblFila).Select
End Sub
Hola, el segundo código me ha dejado dejado claro lo muchísimo que me falta por aprender, y coo la ignorancia es muy atrevida te muestro la otra parte del código que tengo y lo que pretendo:
Como en el anterior tengo datos en las celdas E2, F2, G2, H2 y I2.
Quiero pasar esos datos de horizontal a vertical (Tx, Tx+1, Tx+2, Tx+3, Tx+4)y con la fórmula cuando una celda esté vacía que ponga o, oo y por supuesto con el bucle.
Si no tienes tiempo o me paso dímelo, te votaré muy positivamente
Gracias una vez más.
Range("T65535").Select
    ActiveCell.End(xlUp).Select
    ActiveCell.Offset(0, 0).Select
    ActiveCell.FormulaR1C1 = "=IF(R[1]C[-15]="""",""0,00"",R[1]C[-15])"
    Range("t65535").Select
    ActiveCell.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=IF(R[0]C[-14]="""",""0,00"",R[0]C[-14])"
    Range("t65535").Select
    ActiveCell.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=IF(R[-1]C[-13]="""",""0,00"",R[-1]C[-13])"
    Range("t65535").Select
    ActiveCell.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=IF(R[-1]C[-12]="""",""0,00"",R[-1]C[-12])"
    Range("t65535").Select
    ActiveCell.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=IF(R[-1]C[-11]="""",""0,00"",R[-1]C[-11])"
Creo que esto es lo que quieres, aunque tiene dos detalles que no me esforcé mayormente en corregir, porque no sé qué tanta relevancia tienes (de ahí me lo cumunicas):
- El primero es que no comiena desde la celda T1, sino, desde la T2.
- El segundo es que tiene como referencia los datos de la columna E, para generar el bucle. Esto provoca que el bucle se repita hasta el último dato de la columna E, independiente de que las demás columnas sigan teniendo datos (Esto no es problema si la columna E siempre tuviera datos)
Si necesitas que se corrijan ambos detalles, me dices y ahí vemos colo le hacemos.
Saludos...
Private Sub CommandButton1_Click()
    Dim dblFila As Double
    Dim i As Double, j As Double
    dblFila = Range("T65535").End(xlUp).Row + 1
    For i = 2 To Range("E65535").End(xlUp).Row
        For j = 5 To 9
            Range("T" & dblFila) = IIf(Cells(i, j) <> "", Cells(i, j), "0,00")
            dblFila = dblFila + 1
        Next
    Next
    Range("T" & dblFila).Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Alguien sabe cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas

Lo que pretende es que Alguien me explique cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas. Me gustaría sin macros, pero si no hay otra solución, pues con macros.
1 respuesta

Fórmula para poner en celda que haga la concatenación de celdas visibles en un rango dado.

NECesito una fórmula para poner en K1, según el cuadro que adjunto, para que en K1, me haga, de forma automática, la concatenación de las celdas que queden visibles en el rango k4:K11, YA que al filtrar se pueden mostrar todas o solo parte de ellas....
2 respuestas

Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir() ' ' CopiarImprimir Macro ' Application.ScreenUpdating = False Sheets("Imprimir").Select Worksheets("Imprimir"). Range("A4:C50"). Clear Range("E4:J49"). Clear Sheets("Planillas").Select Sheets("Planillas"). Range("G4").Copy...
3 respuestas

Mantener el color de un botón al salir de un módulo

Quisiera por favor me ayuden, estoy haciendo una aplicación en vba para un restaurante y necesito lo siguiente: tengo 20 mesas que al momento de abrir el modulo de venta selecciono la mesa y cambia de color y su estado pasa a ocupada la idea es...
3 respuestas

Redondear decimales en números arábigos

Sres. T.E. La consulta es la siguiente, necesito una fórmula en excel para llevar los decimales a .00 y .50, ejemplo en una celda tengo el valor 45.12 levarlo a 45.00 en otra tengo 45.42 levarlo a 45.00.
2 respuestas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Suma en un formulario de Excel

Estoy realizando un formulario, el cual al salir del ultimo texbox me sume los anteriores, he usado el siguiente código Private Sub base0_Change() On Error Resume Next Me.totalfactura = Round((Me.base0 + Me.base10 + Me.base21 + Me.base4 + Me.base5) +...
2 respuestas

Copiar dato de una celda para filtrar una tabla en otra hoja

En la primera hoja tengo una tabla con datos que alimenta otra tabla que se encuentra en una segunda hoja. Quisiera una macro que copie el contenido de la celda que tenga seleccionada, después ir la segunda hoja y filtrar ese dato en la tabla que ahí...
2 respuestas