Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por ljrbrasil
Posts
#61382
Então pessoal estou estou me arriscando nas macros e VBA criei duas macros

1 - Que importa os dados escritos pra abas (banco de dados)
2 - Outra que coloca o banco de dados em ordem.

O fato e que quando coloco o banco de dados oculto as duas macros da erro, entendo que este erro e porque a aba esta oculta.

Teria como eu configura somente o codigo VBA e isso ser resolvido?


segue código.
Fico grato se alguém puder me orientar.


Código: Selecionar todos
Sub GRAVACLIENTE()
'
' GRAVACLIENTE Macro
'

'
    Range("B4:Q4").Select
    Selection.Copy
    ActiveSheet.Previous.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 680
    ActiveWindow.ScrollRow = 818
    ActiveWindow.ScrollRow = 968
    ActiveWindow.ScrollRow = 1141
    ActiveWindow.ScrollRow = 1291
    ActiveWindow.ScrollRow = 2915
    ActiveWindow.ScrollRow = 2995
    ActiveWindow.ScrollRow = 3007
    ActiveWindow.ScrollRow = 3030
    ActiveWindow.ScrollRow = 3168
    ActiveWindow.ScrollRow = 3341
    ActiveWindow.ScrollRow = 3445
    ActiveWindow.ScrollRow = 3629
    ActiveWindow.ScrollRow = 3709
    ActiveWindow.ScrollRow = 4032
    ActiveWindow.ScrollRow = 4044
    ActiveWindow.ScrollRow = 4067
    ActiveWindow.ScrollRow = 4078
    ActiveWindow.ScrollRow = 4504
    ActiveWindow.ScrollRow = 4539
    ActiveWindow.ScrollRow = 4608
    ActiveWindow.ScrollRow = 4781
    ActiveWindow.ScrollRow = 4804
    ActiveWindow.ScrollRow = 4815
    ActiveWindow.ScrollRow = 4907
    ActiveWindow.ScrollRow = 4930
    ActiveWindow.ScrollRow = 4977
    ActiveCell.Offset(4997, 0).Range("A1").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Next.Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Sub ORDENARCLIENTE()
'
' ORDENARCLIENTE Macro
'

'
    ActiveSheet.Previous.Select
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Range("A1:P162").Select
    ActiveWorkbook.Worksheets("BD - CLIENTES").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("BD - CLIENTES").Sort.SortFields.Add Key:=Range( _
        "A2:A162"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("BD - CLIENTES").Sort
        .SetRange Range("A1:P4999")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveCell.Select
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 496
    ActiveWindow.ScrollRow = 2742
    ActiveWindow.ScrollRow = 2776
    ActiveWindow.ScrollRow = 2800
    ActiveWindow.ScrollRow = 3433
    ActiveWindow.ScrollRow = 3491
    ActiveWindow.ScrollRow = 3675
    ActiveWindow.ScrollRow = 3721
    ActiveWindow.ScrollRow = 4067
    ActiveWindow.ScrollRow = 4101
    ActiveWindow.ScrollRow = 4228
    ActiveWindow.ScrollRow = 4619
    ActiveWindow.ScrollRow = 4654
    ActiveWindow.ScrollRow = 4677
    ActiveWindow.ScrollRow = 4700
    ActiveWindow.ScrollRow = 4712
    ActiveWindow.ScrollRow = 4746
    ActiveWindow.ScrollRow = 4758
    ActiveWindow.ScrollRow = 4792
    ActiveWindow.ScrollRow = 4804
    ActiveWindow.ScrollRow = 4827
    ActiveWindow.ScrollRow = 4861
    ActiveWindow.ScrollRow = 4873
    ActiveWindow.ScrollRow = 4884
    ActiveWindow.ScrollRow = 4896
    ActiveWindow.ScrollRow = 4907
    ActiveWindow.ScrollRow = 4919
    ActiveWindow.ScrollRow = 4930
    ActiveWindow.ScrollRow = 4942
    ActiveWindow.ScrollRow = 4953
    ActiveWindow.ScrollRow = 4965
    ActiveWindow.ScrollRow = 4977
    ActiveCell.Offset(4998, 0).Range("A1").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Next.Select
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord