Como posso simplificar meu código usando LOOPS em VBA

Question

Em primeiro lugar, seja bem-vindo.
Em segundo lugar, a primeira coisa que você pode facilmente evitar é repetir a mesma coisa ifindefinidamente.

Então, em vez de verificar If Application.WorksheetFunction.IsText(Worksheets("Investor Data").range("E2"))13 vezes e fazer uma coisa de cada vez, você poderia verificar apenas uma vez e fazer todas as 13 coisas.

Então, é claro, vem a parte que você está perguntando, o looping.
Há muitos lugares onde você pode ler sobre como fazer loops de diferentes maneiras, mas contanto que tenhamos um padrão, podemos fazer um loop.

Então, para a primeira parte, E2você poderia ter um loop 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

Isso passará pelo E3-E15 ditado pelo for loop, substituindo o número da linha pela variável utilizada.(Nota: você não deveria copiar E2 também?) Provavelmente existe uma maneira ainda melhor de fazer isso, mas esse é um exemplo de loop simples.

Como a quantidade de linhas em cada coluna é diferente, não podemos simplesmente colocar isso em um loop maior e encerrar o dia.

Você poderia fazer alguns loops menores, mas deixo isso para você por enquanto. Boa sorte.

editar

Um comentário fala sobre funções, que seriam uma forma de fazer a mesma coisa muitas vezes, mas com muito 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 primeiro sub chama o segundo sub privado. Isso poderia ter sido uma função, mas são usadas quando você deseja retornar algo. Em vez disso, usamos um 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

O segundo sub é apenas meu primeiro exemplo, mas com mais variáveis inseridas. Elas são então definidas entre parênteses ao chamar o sub.
Substituí os números fixos da coluna C do banco de dados por uma variável, para que o cálculo ficasse mais fácil. Mas você pode simplesmente alterá-lo para um número fixo ao ligar, se isso atender melhor às suas necessidades.

Answer 1