COMO APAGO UMA ROW INTEIRA DE UM RANGE OU MATRIZ?
Ola,
Estou fazendo uma função VBA no Excel onde comparo os dados vindos de uma base recuperados num recordset e um range passado como parâmetro.
Quando encontro duas linhas de entrada iguais em ambos quero apagar a linha tanto no range quanto no recordset (o qual copiei para uma matriz).
Como faço para apagar uma linha inteira de um range ou de uma matriz? Já tentei vários metodos e não funcionam.
Segue abaixo exemplo do meu trecho de codigo:
for i = 1 to n
for j = 1 to m
if(range.cells(i,1) = matriz(j,1)) then
range.deleteRow(i) '--- pseudocodigo -> como fazer isso?
matriz.deleteRow(j) ' --- pseudocodigo -> como fazer isso?
end if
next j
next i
Obrigada
Camila
Estou fazendo uma função VBA no Excel onde comparo os dados vindos de uma base recuperados num recordset e um range passado como parâmetro.
Quando encontro duas linhas de entrada iguais em ambos quero apagar a linha tanto no range quanto no recordset (o qual copiei para uma matriz).
Como faço para apagar uma linha inteira de um range ou de uma matriz? Já tentei vários metodos e não funcionam.
Segue abaixo exemplo do meu trecho de codigo:
for i = 1 to n
for j = 1 to m
if(range.cells(i,1) = matriz(j,1)) then
range.deleteRow(i) '--- pseudocodigo -> como fazer isso?
matriz.deleteRow(j) ' --- pseudocodigo -> como fazer isso?
end if
next j
next i
Obrigada
Camila
Fera tenta isso:
Ate mais!
Public Sub Remove_linha(strRange As String)
Cells.Range(strRange).Activate
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub
Ate mais!
Tópico encerrado , respostas não são mais permitidas