Código VBA

[bicudo69]

Boa tarde estou aproveitando um formulário antigo e ajustando para as necessidades do trabalho e estou com uma duvida na via q estou utilizando. Ao cadastrar os dados na planilha ele salva alguns e outros não tem como alguém dar uma olhada e ver o pode estar de errado. Segue o código:

Sub Cadastro()

'

' Cadastro Macro

'

Application.ScreenUpdating = False

 

'

    Sheets("Banco de Dados").Select

    Rows("1:3").Select

    Selection.EntireRow.Hidden = False

    Range("A2:W2").Select

    Selection.Copy

    ActiveWindow.ScrollColumn = 20

    ActiveWindow.ScrollColumn = 18

    ActiveWindow.ScrollColumn = 16

    ActiveWindow.ScrollColumn = 15

    ActiveWindow.ScrollColumn = 14

    ActiveWindow.ScrollColumn = 13

    ActiveWindow.ScrollColumn = 12

    ActiveWindow.ScrollColumn = 10

    ActiveWindow.ScrollColumn = 8

    ActiveWindow.ScrollColumn = 6

    ActiveWindow.ScrollColumn = 4

    ActiveWindow.ScrollColumn = 1

    Rows("3:3").Select

    Selection.Insert Shift:=xlDown

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Rows("2:2").Select

    Selection.EntireRow.Hidden = True

    Sheets("Cadastrar").Select

    Range("F3:P3").Select

    Application.CutCopyMode = False

    Selection.ClearContents

    Range("R3").Select

    Selection.ClearContents

    Range("T3").Select

    Selection.ClearContents

    Range("F5:J5").Select

    Selection.ClearContents

    Range("L5:N5").Select

    Selection.ClearContents

    Range("P5:T5").Select

    Selection.ClearContents

    Range("F8").Select

    Selection.ClearContents

    Range("H8").Select

    Selection.ClearContents

    Range("J8").Select

    Selection.ClearContents

    Range("L8:N8").Select

    Selection.ClearContents

    Range("P8:R8").Select

    Selection.ClearContents

    Range("T8").Select

    Selection.ClearContents

    Range("A10:H10").Select

    Selection.ClearContents

    Range("J10:L10").Select

    Selection.ClearContents

    Range("N10:P10").Select

    Selection.ClearContents

    Range("R10").Select

    Selection.ClearContents

    Range("T10").Select

    Selection.ClearContents

    Range("R12:T12").Select

    Selection.ClearContents

    Range("A14:B14").Select

    Selection.ClearContents

    Range("D14").Select

    Selection.ClearContents

    Range("F14:H14").Select

    Selection.ClearContents

    Range("J14").Select

    Selection.ClearContents

    Range("L14").Select

    Selection.ClearContents

    Range("N14:P14").Select

    Selection.ClearContents

    Range("R14:T14").Select

    Selection.ClearContents

    Range("A16:B16").Select

    Selection.ClearContents

    Range("D16").Select

    Selection.ClearContents

    Range("F16:H16").Select

    Selection.ClearContents

    Range("J16").Select

    Selection.ClearContents

    Range("L16").Select

    Selection.ClearContents

    Range("N16:P16").Select

    Selection.ClearContents

    Range("R16:T16").Select

    Selection.ClearContents

    Range("A18:B18").Select

    Selection.ClearContents

    Range("D18").Select

    Selection.ClearContents

    Range("F18:H18").Select

    Selection.ClearContents

    Range("J18").Select

    Selection.ClearContents

    Range("L18").Select

    Selection.ClearContents

    Range("N18:P18").Select

    Selection.ClearContents

    Range("R18:T18").Select

    Selection.ClearContents

    Range("A21:B21").Select

    Selection.ClearContents

    Range("D21:F21").Select

    Selection.ClearContents

    Range("H21:J21").Select

    Selection.ClearContents

    Range("L21:N21").Select

    Selection.ClearContents

    Range("P21:T21").Select

    Selection.ClearContents

    Range("A23:J23").Select

    Selection.ClearContents

    Range("L23:T23").Select

    Selection.ClearContents

    Range("A1:D8").Select

    

    MsgBox "Cadastro realizado com sucesso"

    

    Application.ScreenUpdating = True

End Sub

Editado Julho 31, 2017 por bicudo69
Inserir imagem

[Alyson Ronnan Martins]

Opa boa tarde poderia mandar uma foto do seu formulário para te. Mostrar o que está errado?

Primeiro apague as linhas que tem :

ActiveWindow.ScrollColumn

 

[bicudo69]

Em 31/07/2017 at 17:38, Alyson Ronnan Martins disse:

Opa boa tarde poderia mandar uma foto do seu formulário para te. Mostrar o que está errado?

Primeiro apague as linhas que tem :

ActiveWindow.ScrollColumn

 

Dúvida porque apagar o comando ele não deixa ativo as colunas da planilha? mas vou tentar.

 

 

 

[Alyson Ronnan Martins]

Desculpa a demora. Mais esse comando seve apenas para mover a barra de rolagem. Se estamos fazendo algo “automático” não precisa ficar movendo a tela porque deixa o código apenas mais lento e pesado. 

[nat@gomes]

OLÁ, ESSA DUVIADA FOI RESOLVIDA? Pois estou com o mesmo problema, na mesma planilha

[Alyson Ronnan Martins]

Não sei...Não respondeu mais 😁