bicudo69

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

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