Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Comparar dados e gr...
 
Notifications
Clear all

Comparar dados e gravar em outra planilha conteúdo TextBox

 
2024 - VBA & Macros
Post Recente por JoilsonDO 11 anos atrás
4 Posts
2 Usuários
0 Reactions
1,090 Visualizações
RSS
 JoilsonDO
(@joilsondo)
Posts: 47
Trusted Member
Topic starter
 

Salve Galera, boa tarde!

É o seguinte: Tenho um arquivo com 03 planilhas.
02 são base de dados e utilizo código abaixo para preenche-las:

Private Sub CommandButton1_Click()

Dim intLinha As Integer

If Txtemissao.Text = "" Then
  MsgBox "Informe a data de emissão", vbInformation
  Txtemissao.SetFocus

Else
intLinha = ThisWorkbook.Worksheets("Retorno").Range("A65536").End(xlUp).Offset(1, 0).Row


ThisWorkbook.Worksheets("Retorno").Cells(intLinha, 1) = Txtemissao.Value
ThisWorkbook.Worksheets("Retorno").Cells(intLinha, 2) = Txtnatopera.Value
ThisWorkbook.Worksheets("Retorno").Cells(intLinha, 3) = Txtnumnota.Value
ThisWorkbook.Worksheets("Retorno").Cells(intLinha, 4) = Txtnforigem.Value
ThisWorkbook.Worksheets("Retorno").Cells(intLinha, 5) = ComboBox1.Value
ThisWorkbook.Worksheets("Retorno").Cells(intLinha, 7) = Txtqtd.Value


MsgBox "Dados gravados com sucesso", vbInformation, "Registro OK"

Txtqtd = ""
ComboBox1.DropDown
ComboBox1.SetFocus
End If

End Sub

Só que preciso completar este código. Ou seja, na terceira planilha preciso gravar também a informação do Txtqtd.
Tipo assim: Preciso que o´código verifique na Plan 3 na coluna um e três, se os dados são iguais do Txtnforigem e ComboBox1 respectivamente.

Se esses dados forem iguais na plan 3 (se a comparação der certo) ai preciso que o valor da Txtqtd seja gravado na plan3 também, coluna 6.

Detalhe.: Se na Plan3 coluna 6 já tiver algum valor, preciso que o novo valor seja somado ao existente e não substituido pelo novo.
Então, além do Txtqtd ter seu conteudo gravado na plan 2 (remessa) ele terá também seu conteudo gravado na Plan3 (resumo)

O código precisa percorrer a coluna 1(A) do nº 1 ao 65000 e coluna 3 (C) do nº 1 ao 65000 e se encontrar nestas os mesmo dados do txtnforigem e combox1 então gravaria ou somaria ao valor existente na coluna 6 (F) o valor do txtqtd.

Como poderia fazer essa comparação e incluir no código acima?

Alguém poderia me ajudar?

Obrigado.

 
Postado : 03/01/2014 10:42 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

JoilsonDO,

Boa Tarde!

Sua explicação está muito confusa (pelo menos para mim). Para ajudar, compacte seu arquivo e anexe o mesmo aqui. Logo abaixo da caixa de mensagem existe uma aba que se desta aos anexos de arquivos.

 
Postado : 03/01/2014 1:34 pm
 JoilsonDO
(@joilsondo)
Posts: 47
Trusted Member
Topic starter
 

Boa tarde Wagner..

Náo estou conseguindo anexar o arquivo compacto em .RAR

Ele está dando 326KB porém dá esta mensagem:

The transfer attempted appeared to contain a data leak!

URL = www.planilhando.com.br/posting.ph ... 10&t=10100

 
Postado : 03/01/2014 2:05 pm
 JoilsonDO
(@joilsondo)
Posts: 47
Trusted Member
Topic starter
 

Bom dia!

Tente este código, mas não está dando certo:

 numero = 1
 Dim i, soma, a As Double
For i = 5 To 10000
  If Plan3.Cells(i, 1) = Txtnumnotaorig.Text And Plan3.Cells(i, 3) = ComboBox1.Text Then
      a = CDbl(Txtqtd.Text)
      soma = Plan3.Cells(i, 6) + a
     Plan3.Cells(i, 6) = soma
    numero = numero + 1
  End If
Next i
 
Postado : 09/01/2014 9:46 am
Forum Jump:
  Tópico Anterior
Próximo Tópico