Não sei se eu entendi mas... Tente algo assim: Sub Mudar_Plan() sh = Application.InputBox("Digite o nome da Plan") Sheets(sh).Se...

Bom dia. Segue... Private Sub CommandButton1_Click() Dim us As Long us = Application.WorksheetFunction.Max(Sheets.Count) Sheets....

Faça a correção do colega JSCOPA e, em seguida insira uma formatação condicional na coluna C toda com essa fórmula: =SE(CONT.SE($E$1:E1;E1)>1;1;0)...

Colega Decio obrigado. Só faltou se tivesse algo assim em português...

Boa Tarde, segue conforme pedido. Abrç!

Ela lança na célula B1 da sua primeira planilha, o valor inserido na textbox1 da sua Userform1 Abrç!

Bom dia, segue conforme pedido Abrç!

Colega davispalla, segue conforme pedido. Abrç!

Poderia postar uma planilha de exemplo por favor?...

Colega albertosilvarj , segue conforme pedido. Abrç!

Segue uma possibilidade...

Colega TutoElizeu Boa Tarde. Segue conforme pedido. Public Sub FormatarNumeroMB52() Dim rngCelula As Range, ul As Long ul = Planilha11.Range(...

Não conheço esse erro mas , parece estar relacionado à Userforms https://social.msdn.microsoft.com/Forums/pt-BR/40ea7c09-7e6d-4ef...

Será que é isso? Private Sub Worksheet_Change(ByVal Target As Range) If CheckBox8.Value = True Then Range("w71").Value = ...

Tente algo tipo isso: Private Sub CheckBox1_Click() If CheckBox1.Value = True then CheckBox4.Value = false End If End Sub Faça o mesmo par...