... é mais uma questão para aprendizado mesmo porque sou novo em VBA. sugestão - desde já não utilize Select nos seus códigos

Se você quer lançar um código na coluna 'A' da "Plan1" e buscar na "Plan2" as informações correspondentes ao código lançado, utili...

... MsgBox "Não Existe Peido em Execução" ... dica - se a situação descrita acima se alterar e provocar riscos ~~~> SAMU-192 e ...

Sub VerificaCaracter() Dim x As Long x = InStr([A1], ";") MsgBox x End Sub Se 'A1' contiver uva; banana; manga o código acima ...

Experimente: Private Sub CheckBox1_Click() If CheckBox1 Then Range("F9").Value = Now Range("F10").Value = #3:00...

Experimente: Sub Macro4V2() Dim plan As String, ws As Worksheet plan = InputBox("Digite o nome da planilha") For Each ws In Worksheet...

Experimente: Private Sub Worksheet_Activate() ActiveSheet.ScrollArea = "A2:E30000" End Sub Private Sub Worksheet_Change(ByVal Ta...

Experimente: 1. menu Desenvolvedor / Modo de Design 2. clique com o direito sobre a CheckBox / Exibir código 3. no editor de VBA irá aparecer o códig...

Esse código ajudou, O código executa o que você pediu antes mas caso eu escolha colar mais de um valor na coluna B... sugestão - nos próximos tópi...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(, -1).Value = IIf(Target.Value <&g...

Experimente: Private Sub Worksheet_Change(ByVal Target As Range) Dim op As Range, ws As Worksheet If Target.Count > 1 Then Exit Sub If Ta...

A figura está com nome de Teste? Não, "Teste" é o texto que você colocou na figura, nada tem a ver com seu nome. Faça isto: 1. mantenha C...

Hummm ... o problema é consequência da excessiva quantidade de caracteres do nome da figura que você inseriu. O máximo que a função permite é de 30 c...

Olha isso: Amigo, disponibilize o seu arquivo Excel (print não serve) com o código instalado e com o botão. sugestão - para responder clique em &quo...

Experimente. Sub Teste() Dim k As Long k = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row Rows(k) = "" End S...