Preciso de adaptar este código!!! alguém ajuda aí... Mover várias folhas ActiveWorkbook para outro livro Sub Mover3() Dim BkName As String Dim...

No comando da macro você coloca "unprotect" para desproteger a folha (Sheets("Consulta Estoque").Unprotect) e depois antes de fech...

Coloca na macro "lsConsultaEstoque" ou melhor faz copy paste deste comando e substitui a macro!!! Controlede Estoque Novo.rar

Public Sub lsConsultaEstoque() Sheets("Consulta Estoque").Unprotect Application.ScreenUpdating = False Worksheets("Consul...

Sub Imprimir() For i = 15 To 30 If Cells(i, 1).Value = "" Then Rows(i).Hidden = True End If Next Act...

Alguém conhece onde posso descobrir esta informação???

Oi gtsalikis, inventei os dados só para o modelo, mas é mais ou menos isso que preciso!!! Via VBA penso que deve ser possivel mas eu não sei fazer.....

Brutal, vocês percebem muito disto. Obrigado era mesmo isto que queria... Abr

Olá alexandrevba, Obrigado pela dica. Funciona em parte, a questão é que quando volto a clicar fica tudo sublinhado, ou seja, o sublinhado do click a...

gtsalikis, obrigado pelo interesse. A questão é que eu quero por o código a funcionar e não consigo. Não percebo o porquê de não funcionar!!!!!