Ronaldo73 Postado Fevereiro 14, 2009 Denunciar Share Postado Fevereiro 14, 2009 Oi,Estou com problema, alguém pode me ajudar.Olha eu tem um formulario Visual Basic com ExcelFormulário eu tenho:Nº Nota Fiscal............................TxtNotaFiscalDespesas..................................CmbDespesasData de Vencimento...................TxtVencimentoValor........................................TxtValorSó que, ao gravar o documento no excel o valor não soma e a data fica em ordem inversa.Por ex: Eu digito no formulário 14/02/09 e ao gravar na planilha do excel fica assim 02/14/09.Como corrigir este erro no código abaixo.' A LINHA ABAIXO DETERMINA A PLAN3 (Despesas (-)) COMO SELECIONADA ActiveWorkbook.Sheets("Despesas (-)").Activate Range("c5").Select'O CÓDIGO ABAIXO PROCURA A PRÓXIMA CÉLULA VAZIADo If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End IfLoop Until IsEmpty(ActiveCell) = True ActiveCell.Value = TxtNotaFiscal.Value ActiveCell.Offset(0, 1).Value = CmbDespesas.Value ActiveCell.Offset(0, 3).Value = TxtVencimento.Value ActiveCell.Offset(0, 4).Value = TxtValor.Value If MsgBox("Confirma a operação?", vbYesNo + vbQuestion, "Confirmação") = vbYes Then End If Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Reyam Postado Fevereiro 25, 2009 Denunciar Share Postado Fevereiro 25, 2009 VERIFICA A FORMATAÇÃO DA CÉLULA ONDE VAI A INFORMAÇÃO TAMBEM' A LINHA ABAIXO DETERMINA A PLAN3 (Despesas (-)) COMO SELECIONADAActiveWorkbook.Sheets("Despesas (-)").ActivateRange("c5").Select'O CÓDIGO ABAIXO PROCURA A PRÓXIMA CÉLULA VAZIADoIf IsEmpty(ActiveCell) = False ThenActiveCell.Offset(1, 0).SelectEnd IfLoop Until IsEmpty(ActiveCell) = TrueActiveCell.Value = TxtNotaFiscal.ValueActiveCell.Offset(0, 1).Value = CmbDespesas.ValueActiveCell.Offset(0, 3).Value = Format(TxtVencimento.Value, "dd/mm/yyyy")ActiveCell.Offset(0, 4).Value = TxtValor.Value Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 JoséA Postado Fevereiro 27, 2009 Denunciar Share Postado Fevereiro 27, 2009 Altere a linha:ActiveCell.Offset(0, 4).Value = TxtValor.ValueporActiveCell.Offset(0, 4).Value = CDbl(TxtValor)Quando a data:CDate(TxtVencimento) Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Ronaldo73 Postado Fevereiro 28, 2009 Autor Denunciar Share Postado Fevereiro 28, 2009 Obrigado Reyam.AbraçoVERIFICA A FORMATAÇÃO DA CÉLULA ONDE VAI A INFORMAÇÃO TAMBEM' A LINHA ABAIXO DETERMINA A PLAN3 (Despesas (-)) COMO SELECIONADAActiveWorkbook.Sheets("Despesas (-)").ActivateRange("c5").Select'O CÓDIGO ABAIXO PROCURA A PRÓXIMA CÉLULA VAZIADoIf IsEmpty(ActiveCell) = False ThenActiveCell.Offset(1, 0).SelectEnd IfLoop Until IsEmpty(ActiveCell) = TrueActiveCell.Value = TxtNotaFiscal.ValueActiveCell.Offset(0, 1).Value = CmbDespesas.ValueActiveCell.Offset(0, 3).Value = Format(TxtVencimento.Value, "dd/mm/yyyy")ActiveCell.Offset(0, 4).Value = TxtValor.ValueObrigadoJoséAbraçoAltere a linha:ActiveCell.Offset(0, 4).Value = TxtValor.ValueporActiveCell.Offset(0, 4).Value = CDbl(TxtValor)Quando a data:CDate(TxtVencimento) Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 JoséA Postado Março 1, 2009 Denunciar Share Postado Março 1, 2009 De minha parte, disponha. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Ronaldo73
Oi,
Estou com problema, alguém pode me ajudar.
Olha eu tem um formulario Visual Basic com Excel
Formulário eu tenho:
Nº Nota Fiscal............................TxtNotaFiscal
Despesas..................................CmbDespesas
Data de Vencimento...................TxtVencimento
Valor........................................TxtValor
Só que, ao gravar o documento no excel o valor não soma e a data fica em ordem inversa.
Por ex:
Eu digito no formulário 14/02/09 e ao gravar na planilha do excel fica assim 02/14/09.
Como corrigir este erro no código abaixo.
' A LINHA ABAIXO DETERMINA A PLAN3 (Despesas (-)) COMO SELECIONADA
ActiveWorkbook.Sheets("Despesas (-)").Activate
Range("c5").Select
'O CÓDIGO ABAIXO PROCURA A PRÓXIMA CÉLULA VAZIA
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TxtNotaFiscal.Value
ActiveCell.Offset(0, 1).Value = CmbDespesas.Value
ActiveCell.Offset(0, 3).Value = TxtVencimento.Value
ActiveCell.Offset(0, 4).Value = TxtValor.Value
If MsgBox("Confirma a operação?", vbYesNo + vbQuestion, "Confirmação") = vbYes Then
End If
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.