Home Excel - Dicas Microsoft Excel VBA Excel VBA - Formulas e Funcoes Excel planilha vba inserir formulas digitacao linha

Excel planilha vba inserir formulas digitacao linha

E-mail Imprimir PDF

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.




  Baixe o exemplo de planilha contendo os macros acima:
Excel planilha vba inserir formulas digitacao linha (86.87 KB)

 

 

Última atualização em Dom, 08 de Janeiro de 2012 18:39  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA