Este fórum está sendo desativado

[jeacks]

Boa noite pessoal!

Estou montando uma planilha de propostas, mas não descobri como salvar as informações e enviar para uma outra planilha.

Por exemplo: Preciso clicar no botão "Salvar" e fazer com que os valores que digitei nessa planilha vá para a planilha a que coloquei o nome de "Histórico". Apenas isso, porém tenho dificuldades pois não conheço VBA ainda.

Desde ja agradeço o esforço de todos que sempre estão aqui colaborando tirando dúvidas uns com os outros .

Planilha em ANEXO



Jefferson Santos

[gfranco]

Amigo,
Veja se atende:

[jeacks]

Estou colocando esses comandos e está dando a seguinte mensagem :" Erro de Compilação: Variável não definida,"

Código: Selecionar todos

Sub main()
        On Error GoTo errmain
        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
errmain:
        MsgBox "Um erro ocorreu, verifique !"

End Sub

[gfranco]

Bom dia.
Certifique-se de corrigir os codenames das planilhas...