¿Cómo puedo simplificar mi código usando LOOPS en VBA?

Question

Primero que nada, bienvenido.
En segundo lugar, lo primero que podrías evitar fácilmente es ejecutar lo mismo ifuna y otra vez.

Entonces, en lugar de verificar If Application.WorksheetFunction.IsText(Worksheets("Investor Data").range("E2"))13 veces y hacer una cosa cada vez, podrías verificarlo una vez y hacer las 13 cosas.

Luego, por supuesto, viene la parte por la que preguntas, el bucle.
Hay muchos lugares donde puedes leer sobre cómo hacer un bucle de diferentes maneras, pero siempre que tengamos un patrón, podemos hacer un bucle.

Entonces, para la primera parte, E2podrías tener un bucle como este;

If Application.WorksheetFunction.IsText(Worksheets("Investor Data").Range("E2")) = True Then
j = 114
For i = 3 To 15
    Worksheets("Investor Data").Range("E" & i).copy Worksheets("Data Base").Range("C" & j & ":C" & j + 6)
    j = j + 7
Next i
End If

Esto pasará por E3-E15 dictado por for loop, reemplazando el número de fila con la variable utilizada.(Nota al margen, ¿no deberías copiar E2 también?) Probablemente haya alguna forma aún mejor de hacerlo, pero ese es un ejemplo de un bucle simple.

Dado que la cantidad de filas en cada columna difiere, no podemos simplemente colocar esto en un bucle más grande y dar por terminado el día.

Podrías hacer algunos bucles más pequeños, pero eso lo dejo a tu criterio por ahora. Buena suerte.

editar

Un comentario habla de funciones, que sería una forma de hacer lo mismo muchas veces, pero con mucho menos código.

Sub callCopy()

Dim startRow As Long
startRow = 114
Call copySub(startRow, "E", 15)
Call copySub(startRow, "F", 5)
Call copySub(startRow, "G", 6)
Call copySub(startRow, "H", 13)
Call copySub(startRow, "I", 5)
Call copySub(startRow, "J", 8)
Call copySub(startRow, "K", 11)
Call copySub(startRow, "L", 7)

End Sub

Este primer sub llama al segundo sub privado. Esto podría haber sido una función, pero se usan cuando quieres devolver algo. En su lugar utilizamos un sub privado:

Private Sub copySub(startRow As Long, iCol As String, iRows As Long)
Dim i As Long
If Application.WorksheetFunction.IsText(Worksheets("Investor Data").Range(iCol & "2")) = True Then
For i = 2 To iRows
    Worksheets("Investor Data").Range(iCol & i).copy Worksheets("Data Base").Range("C" & startRow & ":C" & startRow + 6)
    startRow = startRow + 7
Next i
End If

End Sub

El segundo sub es solo mi primer ejemplo, pero con más variables agregadas. Estas se establecen entre paréntesis al llamar al sub.
Reemplacé los números fijos de la columna C en la base de datos con una variable, por lo que el cálculo sería más fácil. Pero puedes cambiarlo a un número fijo cuando llames si eso se adapta mejor a tus necesidades.

Answer 1