Indice + Corresp pelo VBA (para tabela de icms)

Question

Como eu poderia realizar este codigo atravez do VBA ? Estou completamente perdido nisso :l

=SEERRO(&Iacute;NDICE(IICMS!$B$2:$AB$28;CORRESP(C4;IICMS!$A$2:$A$28;0);CORRESP(G4;IICMS!$B$1:$AB$1;0));-)

Answer

No VBA as f&oacute;rmulas tem que ser em ingl&ecirc;s.

SEERRO &eacute; IFERROR
&Iacute;NDICE &eacute; INDEX
CORRESP &eacute; MATCH

mais tradu&ccedil;&otilde;es aqui http://guiadoexcel.com.br/traducao-das-formulas-excel-ingles-portugues
lembrando que no VBA, o que vc usa pra separar os argumentos das f&oacute;rmulas &eacute; v&iacute;rgula (,) e n&atilde;o ponto e v&iacute;rgula como &eacute; no excel em portugu&ecirc;s (;)

Outra coisa... pra usar f&oacute;rmulas da planilha no VBA vc tem que usar o c&oacute;digo WorksheetFunction

ou seja... se quiser que a c&eacute;lula A1 tenha o valor da soma de B1 e C1 fica assim:

Range(A1).Value = WorksheetFunction.Sum( Range(B1).Value , Range(C1).Value )

Answer

No caso o c&oacute;digo &eacute; um localizador que compara C4 e G4 que s&atilde;o respectivamente Estados (SP,MG,...)
Essa compara&ccedil;&atilde;o &eacute; realizada na worksheet IICMS, e retorna o campo cruzado entre elas, por exemplo:
C4 = SP
G4= MG
D4 = 12
e assim continuaria em um for next ou algum outro loop

Answer

[USER=982568]@Korgoth[/USER] n&atilde;o cheguei a fazer muitos teste portanto, veirif. se &eacute; isso mesmo (anexo)
A macro &eacute; executada ao alterar alguma linha da coluna G
Ps.: A macro esta no modulo, e o evento Worksheet_Change na aba [ consulta ] para chamar a macro.

Answer

[USER=908394]@Basole[/USER]

Aparentemente os valores retornados est&atilde;o corretos sim, unico problema que tive seria na colagem de estados na coluna G, por algum motivo da erro quando colado valores nela, indicando erro na linha If Trim(EsS) =  Or Trim(Ese) =  Then

alguma ideia do motivo ? seria por causa do set no rng ?

Answer

Isso esta acontecendo, pois acredito que voce esta colando por atacado, ou seja varias celulas ao mesmo tempo, e o evento Worksheet_change
atualiza celula-por-por celula, porisso aparece o error.
Fiz umas altera&ccedil;&otilde;es veja se lhe atende:
        * Substitue na sua aba consulta o evento abaixo:

[code=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
If Target.Column = 7 Then
If Range(C & Target.Row).Value   Then
'Atualiza_Consulta Target
Teste ' Chama a macro teste
Else
If Range(C & Target.Row).Value =  Or Range(G & Target.Row).Value =  Then Range(D & Target.Row).Value = -
End If
End If
End Sub

Sub Teste()
Dim rng As Range
Dim i As Range
Dim LastRow As Long
LastRow = Sheets(Consulta).Range(G & Rows.Count).End(xlUp).Row
Set rng = Sheets(Consulta).Range(Cells(4, G), Cells(LastRow, G))
For Each i In rng
Application.Goto i, True
Atualiza_Consulta i
Next
End Sub
[/code]

Answer

[USER=908394]@Basole[/USER]

Aparentemente est&aacute; tudo funcionando correto, Muito obrigado.

Unica coisa estranha &eacute; q no momento que se roda a sub teste a planilha fica focada la pra baixo, mas isso n&atilde;o &eacute; problema algum, novamente muito obrigado.

@edit: conforme [USER=908394]@Basole[/USER]
Sheets(Consulta).Range(A1).activate
:D

Answer

Unica coisa estranha &eacute; q no momento que se roda a sub teste a planilha fica focada la pra baixo, mas isso n&atilde;o &eacute; problema algum, novamente muito 
[USER=982568]@Korgoth[/USER], para contornar isso, s&oacute; voce acrescentar Range(A1).activate no final da rotina Teste, para selecionar a celula A1 no final da execucao.
Veja:
[code=vb]
Sub Teste()
Dim rng As Range
Dim i As Range
Dim LastRow AsLong
LastRow = Sheets(Consulta).Range(G & Rows.Count).End(xlUp).Row
Set rng = Sheets(Consulta).Range(Cells(4, G), Cells(LastRow, G))
ForEach i In rng
Application.Goto i, True
Atualiza_Consulta i
Next
Sheets(Consulta).Range(A1).activate
End Sub
[/code]

Answer

pode me ajudar com essa? &eacute; semelhante

Ferramentas

Mover Tópico