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...

Veja o tuto no link abaixo. https://msdn.microsoft.com/pt-br/library/office/ff839746.aspx

Obrigado por portar a resposta. Abraço! Pois é, Leandro, só o interessado é que não se lembrou de agradecer aos que tentaram ajudar.

Para excluir na planilha os registros correspondentes a todas as linhas selecionadas na TextBox é preciso um Loop pelos itens da TextBox para verifica...

No primeiro arquivo que você disponibilizou a macro funciona somente na planilha "PAGAMENTOS", pois o código está instalado no módulo daquel...

Experimente: Sub cria_NOVA_PLAN_FORNECEDOR() Dim a As String a = InputBox("INFORME NOVO FORNECEDOR") Application.ScreenUpdating =...

Experimente: CDbl(TextBox1.Text)

Experimente: [A1] = Day(DATA) [A2] = Month(DATA) [A3] = Year(DATA)

substitua esta linha ' Set rg = ActiveSheet.[A:G].Select ' errando aqui por esta Set rg = Range("A" & ActiveCe...