Macros do Excel como preencher automaticamente as células?

Question

Oi eu não estou familiarizado com o código VBA, mas eu sei java. Eu estou olhando para criar uma macro que verifica se uma célula não está em branco e autopreencher as células em outra coluna, mas na mesma linha com a fórmula acima deles. Alguma idéia?

    975   805040   2065bc210    325647998522
    976   802030   2089bc212    325647956721
    977                        *325647964751*
    978                        *325647967866*
    979                        *325647964452*

Desculpe pela falta de detalhes. Este é um exemplo do meu excel a esquerda são os números de linhas que eu preciso para preencher automaticamente os outros collumns quando eu adicionar manualmente os números nas estrelas. As outras colunas obtêm suas informações de uma fórmula. Eu não posso postar uma foto porque minha reputação é baixa.

Algo assim, mas não funcionou

Sub CheckCell()
    Dim i As Integer
       i = 3

     Do
      Selection.AutoFill Destination:=Range("Ai:A(i+1)"), Type:=xlFillDefault  
     i = i+1
    Loop While (ActiveSheet.Range("Bi").Value != "")
 End Sub

    

Answer 1

Isso pode ser feito de duas maneiras;
(Esses exemplos supõem que a célula para verificar é A2 e o texto de preenchimento automático deve entrar em B2. Ajuste de acordo)

Com uma fórmula (colocada na célula em que você deseja o texto de preenchimento automático)

=IF(ISBLANK(A2),"autofill text","")

Com o VBA

Sub CheckCell()

    If ActiveSheet.Range("A2").Value = "" Then
        ActiveSheet.Range("B2").Value = "Autofill"
    End If

End Sub

NOTA: Esses exemplos são muito básicos e vagos porque você não forneceu muitos detalhes em sua pergunta.

    

Answer 2

Depois de pesquisar melhor na internet e nos testes, descobri que esse código funcionou.

Sub FillCells()

Dim i As Long
Dim k As Long
    With ActiveSheet
    k = .Cells(.Rows.Count, "K").End(xlUp).Row
    i = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
Range("a" & i & ":a" & k).Formula = Range("A" & i).Formula
Range("B" & i & ":B" & k).Formula = Range("B" & i).Formula
Range("C" & i & ":C" & k).Formula = Range("C" & i).Formula
Range("D" & i & ":D" & k).Formula = Range("D" & i).Formula
Range("E" & i & ":E" & k).Formula = Range("E" & i).Formula
Range("F" & i & ":F" & k).Formula = Range("F" & i).Formula
Range("G" & i & ":G" & k).Formula = Range("G" & i).Formula
Range("H" & i & ":H" & k).Formula = Range("H" & i).Formula
Range("I" & i & ":I" & k).Formula = Range("I" & i).Formula
Range("J" & i & ":J" & k).Formula = Range("J" & i).Formula
Range("M" & i & ":M" & k).Formula = Range("M" & i).Formula
Range("N" & i & ":N" & k).Formula = Range("N" & i).Formula
Range("O" & i & ":O" & k).Formula = Range("O" & i).Formula
Range("P" & i & ":P" & k).Formula = Range("P" & i).Formula
Range("U" & i & ":U" & k).Formula = Range("U" & i).Formula
Range("Y" & i & ":Y" & k).Formula = Range("Y" & i).Formula
Range("Z" & i & ":Z" & k).Formula = Range("Z" & i).Formula

End Sub