Bom dia!! Tente Private Sub UserForm_Initialize() ActiveWindow.Visible = False End Sub Quando fechar o Userfo, mostrar o arquivo. Private S...

Bom dia!! Eu não sei se entendi, mas vamos lá. Adicione uma guia para teste, use o nome AleVBA. Sub AleVBA_18058V2() Dim ws As Worksheet, wsAleVBA ...

Em seu modelo, reduzi as figuras para 90% do tamanho original, e "setei" a propriedade mover com a celula . Utilizei a rotina abaixo: Sub Al...

Desde a postagem com a duvida, fiquei intrigado, não só pelo fato de vir do Fernando que tenho a certeza que se ele postou é porque ainda não deve exi...

Boa tarde!! Talvez =TEXTO(A1;"dd") Arraste para baixo. Att

Boa tarde!! Eu não entendi a parte de hora. Mas veja a gambiarra feita no arquivo modelo. Att

Se uma peça pesa 8 gramas, 12 peças pesarão 96 (sem considerar possíveis perdas). Oito gramas são representadas em quilos como : 0,008 Kg, assim sua c...

Caro Luiz, Obrigado pela dedicação do seu tempo e conhecimento. Funcionou! Abraço!

Para constar: o erro reportado normalmente ocorre quando se deseja efetuar uma operação entre tipos diferentes. A textbox por default, apesar da forma...

Boa noite! Talvez se tivesse postado a planilha alguém já teria resolvido isso pra você. Doni

Boa tarde Coelho Seja bem-vindo ao fórum! Apliquei na planilha, uma função UDF, (função Definida pelo Usuário) para extrair só os números, na coluna...

Boa tarde!! Não testado!! Sub AleVBA_18070() Dim iLast As Long Dim iCounter As Integer iLast = Worksheets("Plan2").Range(&...

Boa tarde! Tente assim: Sub UnprotectRefresh() On Error Resume Next With Activesheet .Unprotect Password:="mypassword" ...