Página 1 de 1

Deletar intervalo de linhas

Enviado: 31 Dez 2023 às 09:06
por Pegorini
Olá

Se possível, gostaria de uma macro que fosse possível informar ao excel o intervalo de linhas a ser deletada.

Por exemplo, poderia abrir uma caixa de mensagem em que o usuário informasse o intervalo de linhas a ser deletada, por exemplo da linha 10 a 20.000.

Re: Deletar intervalo de linhas

Enviado: 01 Jan 2024 às 13:45
por osvaldomp
Abaixo o resultado de pesquisa no Google
https://www.google.com.br/search?q=vba+ ... nt=gws-wiz
___________________________________________________________________________________________________
Abaixo um código elaborado pelo ChatGPT
Sub DeletarLinhas()
Dim linhasParaDeletar As String
Dim arrLinhas() As String
Dim i As Integer

' Solicitar ao usuário que insira os números das linhas separados por vírgula
linhasParaDeletar = InputBox("Informe os números das linhas que deseja deletar (separados por vírgula):")

' Verificar se o usuário inseriu algo
If linhasParaDeletar <> "" Then
' Dividir a string em um array
arrLinhas = Split(linhasParaDeletar, ",")

' Loop para deletar as linhas
For i = LBound(arrLinhas) To UBound(arrLinhas)
' Verificar se o valor é um número antes de tentar deletar a linha
If IsNumeric(arrLinhas(i)) Then
' Deletar a linha
Rows(CInt(arrLinhas(i))).Delete
End If
Next i
Else
' Mensagem se o usuário não inseriu nada
MsgBox "Nenhum número de linha fornecido. Nenhuma ação realizada."
End If
End Sub