Pesquisa dentro de um Array de Strings

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

3 Posts

2 Usuários

0 Reactions

983 Visualizações

RSS

dabatista

(@dabatista)

Posts: 3

New Member

Topic starter

Bom dia a todos os colegas do fórum.

Segue minha dúvida para todos que possam me ajudar:

Tenho uma planilha de controle financeiro no qual estou elaborando.

Conforme eu lanço os dados na aba "Lançamento" para a aba "Banco de Dados", porém no campo Tipo, de acordo com o valor selecionado, irá alterar a forma de lançamento dos dados.

Exemplo:

Numa compra, o valor debitado da compra, será multiplicado por (-1) durante o lançamento no banco de dados.
Numa operação de deposito, o valor sera lançado normalmente.

Estou parado neste ponto, e uma possível solução que encontrei é utilizar 2 Array para as Strings, uma somente para (-1) e outra para operações de entrada de dinheiro.

Porém, durante o If, ele apresenta um erro.

Segue anexo planilha exemplo.

Caso alguém tenha alguma duvida, referente ao meu post, peço por favor que me deem um toque.

Abraço a todos.

Davi Soares

Postado : 29/01/2015 6:26 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Geralmente sterings ficam entre aspas duplas "Crédito a Vista"

Sub CartãoDeCrédito()
Dim parcela, i, LR, mes  As Long
Dim Débito As Variant, Crédito As Variant

i = 1
mes = Month(Worksheets("Lançamento").Range("F3").Value)
ano = Year(Worksheets("Lançamento").Range("B3").Value)
parcela = Worksheets("Lançamento").Range("F3").Value
Débito = Array("Crédito Parcelado", "Crédito a Vista", "Cheque a Vista", "Cheque Parcelado", "Débito")
Crédito = Array("Depósito", "Pagamento", "Vale")

ReDim Débito(5) As String
ReDim Crédito(3) As String

Do Until i > [F3]
    With Sheets("Banco de Dados")
        LR = .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(LR + 1, 1) = [B3] 'Data da compra
        .Cells(LR + 1, 2) = [C3] 'Descrição da compra
            If Worksheets("Lançamento").Range("E3") = "Débito" Then
                .Cells(LR + 1, 3) = ([D3] / [F3] * (-1)) 'saída
                .Cells(LR + 1, 3).Font.Color = vbRed
            ElseIf Worksheets("Lançamento").Range("E3") = "Crédito a Vista" Then
                .Cells(LR + 1, 3) = [D3] / [F3] 'Entrada
                .Cells(LR + 1, 3).Font.Color = vbBlue
            End If
        .Cells(LR + 1, 4) = [E3] 'Tipo da compra
        .Cells(LR + 1, 5) = [F3]
        .Cells(LR + 1, 6) = [G3]
        .Cells(LR + 1, 7) = "'" & i & "/" & [F3]
        .Cells(LR + 1, 8) = "'" & mes & "/" & ano
        mes = mes + 1
        i = i + 1
    End With
Loop
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 29/01/2015 6:53 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Assim sendo, o anexo deste tópico foi removido.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 29/01/2015 6:56 am