lucasborinsouza

Boa tarde! Eu pesquisei sobre essa questão mas não encontrei nenhuma resposta. Eu gostaria de uma macro automática que ao clicar em qualquer célula de uma linha , todas as outras células dentro de um intervalo dessa linha sejam selecionadas. Por exemplo, eu tenho o intervalo (B3:H3), gostaria que se eu clicasse em B3, ou C3, ou D3, ou E3... até H3, todo esse intervalo fosse selecionado. Mas eu preciso que a macro rode para todas a linhas da planilha. É possível?

Eu ainda precisei mudar algumas coisas mas deu certo sim, agradeço pela ajuda!

Boa tarde, eu preciso de ajuda com uma macro que estou criando. Nessa macro eu quero que o sistema verifique se o valor da célula AJ7 é igual a 1, se for, ele deleta o intervalo de dados de AE7:AI7. Depois disso ele pula para próxima linha, se AJ8 = 1, ele deleta os dados de AE8:AI8. E assim por diante. Na minha planilha as linhas que utilizo vão até 107. O código que eu estou fazendo vai ficar muito longo se eu for escrever linha por linha, por isso eu gostaria de saber se existe um jeito mais simplificado de fazer isso. Segue abaixo o código, como está no momento. Espero que exista uma forma de simplificá-lo. Obrigado. Sub apagalibera1() Application.ScreenUpdating = False If Sheets("mercado livre").Range("AJ7") = 1 Then Range("AE7:AI7").Select Selection.ClearContents ElseIf Sheets("mercado livre").Range("AJ8") = 1 Then Range("AE8:AI8").Select Selection.ClearContents ElseIf Sheets("mercado livre").Range("AJ9") = 1 Then Range("AE9:AI9").Select Selection.ClearContents ElseIf Sheets("mercado livre").Range("AJ10") = 1 Then Range("AE10:AI10").Select Selection.ClearContents ElseIf Sheets("mercado livre").Range("AJ11") = 1 Then Range("AE11:AI11").Select Selection.ClearContents ElseIf Sheets("mercado livre").Range("AJ12") = 1 Then Range("AE12:AI12").Select Selection.ClearContents Else Call apagalibera2 End If Call apagalibera2 Application.ScreenUpdating = True End Sub