Como salvar um conteúdo em um Banco de Dados?

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

Como salvar um conteúdo em um Banco de Dados?

Mensagempor jeacks » Ter Ago 13, 2019 4:19 am

Bom dia a todos!

Pessoal estou tentando salvar alguns dados de uma Planilha em outra Planilha vou mostrar o código que usei.

EX: Tenho 3 Plan's,
A primeira tem o nome de "Home"
A segunda tem o nome de "Proposta"
A terceira tem o nome de "Historico" OBS: SEM ACENTO

Na planilha "Propostas" eu irei alimenta-la com dados nas células (d6, d7, g6, j6, j7, d15, d16, d17, d18, h15, h16, k15).
Depois que alimento essas células eu clicarei em uma forma botão chamado "Salvar" onde tudo que digitei nessas células será salvo na Planilha "Historico" no intervalo de células de B5 a M5; Sendo que os outros valores que forem entrando devem ir vindo abaixo deles tipo.. B6 a M6... e assim por diante.

Vou deixar o Código que usei para isso. mas sempre dá errado da erro de variável. se souberem de outra forma será bem vinda.

Código: Selecionar todos
  Sub salvar()
        On Error GoTo errsalvar
        Dim v()
        Dim m()
        Dim ul As Long
        Dim i As Byte
        Dim L As Byte
       
       
        ul = wshistorico.Cells(wshistorico.Rows.Count, 2).End(3).Row + 1
        v = Array("d6", "d7", "g6", "j6", "j7", "d15", "d16", "d17", "d18", "h15", "h16", "k15")
       
        ReDim m(1 To 1, 1 To 12)
       
       
            For i = LBound(v) To UBound(v)
                L = i + 1
               
                m(1, L) = wsdados.Range(v(i)).Value
               
                If v(i) <> "j7" Then wsdados.Range(v(i)).Value = vbNullString
           
            Next i
       
        wshistorico.Range("B" & ul, "M" & ul).Value = m
       
        Erase v
        Erase m
       
        Exit Sub
errsalvar:
        MsgBox "Um erro ocorreu, verifique !"

End Sub

Jefferson Santos
Jefferson Santos
jeacks
Membro
Membro
 
Mensagens: 10
Registrado em: Qui Mar 08, 2018 8:45 pm
Has thanked: 7 times
Have thanks: 0 time

{ SO_SELECT }

Re: Como salvar um conteúdo em um Banco de Dados?

Mensagempor rlm » Ter Ago 13, 2019 7:03 am

Experimente:
Código: Selecionar todos
Sub salvar()
'Declaração de variaveis
Dim v(), m()
Dim i As Byte, L As Byte
Dim ul As Long
Dim wshistorico As Worksheet, wsdados As Worksheet

On Error GoTo errsalvar

'Altere o nome Historio/Proposta conforme seu arquivo
Set wshistorico = Sheets("Historico")
Set wsdados = Sheets("Proposta")

ul = wshistorico.Cells(wshistorico.Rows.Count, 2).End(3).Row + 1
v = Array("d6", "d7", "g6", "j6", "j7", "d15", "d16", "d17", "d18", "h15", "h16", "k15")
ReDim m(1 To 1, 1 To 12)
    For i = LBound(v) To UBound(v)
        L = i + 1
        m(1, L) = wsdados.Range(v(i)).Value
        If v(i) <> "j7" Then wsdados.Range(v(i)).Value = vbNullString
    Next i
wshistorico.Range("B" & ul, "M" & ul).Value = m
Erase v
Erase m
Exit Sub
errsalvar:
MsgBox "Um erro ocorreu, verifique !"

End Sub
Reinaldo
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 444
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 32 times
Have thanks: 197 times

Re: Como salvar um conteúdo em um Banco de Dados?

Mensagempor wzxnet7 » Ter Ago 13, 2019 2:13 pm

Boa tarde.
Se tivesse seguido a indicação que postei em:

http://gurudoexcel.com/forum/viewtopic.php?f=12&t=10142

Não estaria precisando que replicar tópicos ....
Resposta útil? Clique na mãozinha ao lado do botão Citar.
Avatar do usuário
wzxnet7
Membro
Membro
 
Mensagens: 691
Registrado em: Qui Jul 21, 2016 10:26 am
Has thanked: 40 times
Have thanks: 379 times


Voltar para VBA & Macros

Quem está online

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