Loops inconscitene p/ apagar Range.
Enviado: 19 Mai 2018 às 10:43
Olá a todos! 
Estou desenvolvendo um upgrade para um projecto que uso já há bastante tempo! Para facilitara a utilização do arquivo implementei uma nova funcionaidade atravez de loop, no entanto este apresennta uma inconsitencia, no entanto criei uma alternativa menos amigavel em questão de oraganização.
Em termos práticos sem estar a detalhar muito, é suposto que o loop apague um Range dentro de uma base de dados, se a data no primeiro campo for igual a data defenida.
Para já alterei pra
Sei tambem que se apaga-se toda a linha isto não acontecia, no entanto não o posso fazer pois tenhos outras informações paralelas que não podem ser apagadas.
Estou certo que haverá algum procidimento que possa corrigir este problema, desde já agradeço a ajuda que vier!
Estou desenvolvendo um upgrade para um projecto que uso já há bastante tempo! Para facilitara a utilização do arquivo implementei uma nova funcionaidade atravez de loop, no entanto este apresennta uma inconsitencia, no entanto criei uma alternativa menos amigavel em questão de oraganização.
Em termos práticos sem estar a detalhar muito, é suposto que o loop apague um Range dentro de uma base de dados, se a data no primeiro campo for igual a data defenida.
Código: Selecionar todos
O que acontece basicamente é que ao apagar o conteudo deste range, o loop salta uma possição o que faz com que alguns dos registos que deviam ser apagados fiquem na base de dados.Dim msgresponse As Integer
msgresponse = MsgBox("Existe um registo de revenda efectuado hoje. Esta ação ira eliminar o registo anterior, deseja continuar", vbYesNo + vbCritical)
Select Case msgresponse
Case vbYes
DELL = Folha103.Cells(Folha103.Rows.Count, "A").End(xlUp).Row
For DELR = 2 To DELL
Folha103.Select
If Cells(DELR, 1).Value = Range("DATA_REGISTO").Value Then
Range("A" & DELR & ":" & "K" & DELR).Delete
End If
Next DELR
Case vbNo
End Select
End If
Para já alterei pra
Código: Selecionar todos
, no entanto ficam os espaçõs vazio! Range("A" & DELR & ":" & "K" & DELR).ClearContentsSei tambem que se apaga-se toda a linha isto não acontecia, no entanto não o posso fazer pois tenhos outras informações paralelas que não podem ser apagadas.
Estou certo que haverá algum procidimento que possa corrigir este problema, desde já agradeço a ajuda que vier!
.. pois por defenição o Excel nesta situação arrasta as celulas da direita para a esquerda quando apaga um range! 
