Descricao: |
Escola Saberexcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções
 Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserem uma fórmula (aqui fiz uma fórmula simples), na coluna(K), na linha referencial correspondente à digitação na coluna(D). Para um aprendizado VBA com qualidade é necessário que voce aprenda bem sobre as instruções Loops e também sobre como deslocar, localizar, células, linhas e colunas em qualquer célula para outra folha de planilha qualquer no livro.
Sub extender_formulas_ultima_linha_digitada() For J = 2 To Range("D65000").End(xlUp).Row Range("K" & J).FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-7])" Next J '- - - - - - - - - - - ' 'esse tipo de código também fará a mesma coisa. 'veja como é importante aprender sobre o deslocamento, localização, intervalos de células linhas colunas. 'Range([K2].End(xlDown), [K2]).Select 'Selection.FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-7])" '- - - - - - - - - - - ' End Sub
Sub extender_formulas_ultima_linha_digitada_I() For Each c In Range("K2:k" & [d65536].End(3).Row) c.FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-7])" Next End Sub
'observe que fiz um loop com o intuíto didático para mostrar como poderá fazer um macro usando ' a instrução For...Next e indicar linhas e colunas a serem deletadas, ou outra coisa qualquer. Sub limpar_teste() For i = 2 To Range("K65000").End(xlUp).Row Range("K" & i).ClearContents Next i End Sub
 Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

|