Tem razão, Mauro.

Sub Macro1() Dim i As Integer Dim linha As Long i = 1 For linha = 1 To ThisWorkbook.Sheets("Plan1").UsedRange.Rows.Coun...

https://www.youtube.com/watch?v=Hc59LKtRhtg

Favor verificar o anexo

Favor verificar o anexo

Faça um teste do anexo. Fiz algumas alterações.

Control.Value = True Nessa linha você seleciona todos os checkboxes. Pela sua descrição, às vezes você vai precisar selecionar 30, mas, nessa lin...

https://www.youtube.com/watch?v=kwuLE0rFkCk https://www.youtube.com/watch?v=VesNeMjWhhg https://www.youtube�...

Se houver conflito, aparecerá na coluna C, quando trocar de célula. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim linha As L...

Além desse código que você montou, eu preciso também que a mensagem seja exibida quando se cria uma linha apertando tab na última célula.

Favor testar aquivo anexo.

Acima há duas macros: Copiar e Copiar2. A primeira copia em todas as linhas preenchidas. A segunda somente em uma linha. Você testou as duas?

Sub copiar() Dim linha As Long linha = 2 While ThisWorkbook.Sheets("BDDADOS").Cells(linha, 1).Value <> "" ...