Tipos incompatíveis

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Tipos incompatíveis

Mensagempor ericksant » Sex Ago 10, 2018 11:32 am

Amigos,
bom dia,

Estou tentando adaptar um código que realizamos por aqui mesmo, como ajuda @klarc28, segue o código:

Código: Selecionar todos
Sub teste()

Application.ScreenUpdating = False


Dim linhaInicial As Long
linhaInicial = 10
Dim x, y, z, i As Integer
Dim r As Range

While Sheet2.Range("B" & linhaInicial).Value <> ""
    Rows(linhaInicial + 1 & ":" & linhaInicial + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B" & linhaInicial & ":H" & linhaInicial).Select
    Selection.Copy
    Range("B" & linhaInicial + 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
        Range("C" & linhaInicial).Value = "espelho"

    If Right(Range("D" & linhaInicial).Value, 1) = "D" Then
    Range("C" & linhaInicial + 1).Value = "débito"
    'se quiser retirar a letra D do valor, faça assim:
   
   
     Range("D" & linhaInicial + 1).Value = CDbl(Left(Range("D" & linhaInicial).Value, Len(Range("D" & linhaInicial).Value) - 2))
   
    Range("D" & linhaInicial).Value = CDbl("-" & Range("D" & linhaInicial + 1).Value)
    Else
    'se quiser retirar a letra C do valor, faça assim:
     Range("D" & linhaInicial).Value = CDbl(Left(Range("D" & linhaInicial).Value, Len(Range("D" & linhaInicial).Value) - 2))
        Range("C" & linhaInicial + 1).Value = "crédito"
        'caso o crédito não precise multiplicar por menos 1, retire-o desta linha:
            Range("D" & linhaInicial + 1).Value = CDbl("-" & Range("D" & linhaInicial).Value)

    End If
   linhaInicial = linhaInicial + 2
   Wend
   Application.CutCopyMode = False


Agora com os dados do meu anexo, está dando tipos incompatíveis...

Alguém consegue me explicar e me ajudar a resolver ?

Obrigado!!!
Você não está autorizado a ver ou baixar esse anexo.
ericksant
Membro
Membro
 
Mensagens: 100
Registrado em: Seg Mar 05, 2018 12:37 pm
Has thanked: 28 times
Have thanks: 1 time

{ SO_SELECT }

Re: Tipos incompatíveis

Mensagempor wagner » Sex Ago 10, 2018 12:28 pm

ericksant,

Boa tarde!

Veja se é assim.
Você não está autorizado a ver ou baixar esse anexo.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4300
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1861 times

Re: Tipos incompatíveis

Mensagempor ericksant » Sex Ago 10, 2018 12:58 pm

Consegui aqui também Wagner, mesmo assim muito obrigado cara!

Abraços!
ericksant
Membro
Membro
 
Mensagens: 100
Registrado em: Seg Mar 05, 2018 12:37 pm
Has thanked: 28 times
Have thanks: 1 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 11 visitantes