- 02 Mai 2023 às 15:17
#73232
Olá senhores, preciso de ajuda para desenvolver o comando que EXCLUA linhas somente nas colunas específicas, ou seja, nas colunas: "D" até "J" e de "T" até "Z" acho que estou perto mas porue informa que excluiu com sucesso mas as linhas continuam lá, veja abaixo:
Private Sub BtExcluirCob_Click()
On Erro GoTo Erro
Dim confirmar As String
Plan4.Activate
Dim plan As String
plan = Plan4.Name
confirmar = MsgBox("Tem certeza que deseja EXCLUIR o Cliente: " & Me.Txt_Cliente_Cob & "?", vbYesNo, "Excluir!")
If confirmar = vbNo Then
MsgBox "Exclusão do Cliente: " & Me.Txt_Cliente_Cob & " CANCELADO!", vbInformation, "Exclusao cancelada!"
Unload Audiência
Exit Sub
End If
valor_Processo = TXT_ID.Value
ult_linha = Range("T3000").End(xlUp).Row
For linha = 2 To ult_linha
If Cells(linha, 18).Value = valor_Processo Then
Plan4.Range(Cells(linha, 1), Plan6.Cells(linha, 9)).Delete Shift:=xlUp
Plan4.Range(Cells(linha, 94), Plan6.Cells(linha, 97)).Delete Shift:=xlUp
'ActiveWorkbook.Save
MsgBox "Cadastro do cliente " & Me.Txt_Cliente_Cob & " foi EXCLUIDO com sucesso!", vbInformation, "Excluído!"
Unload Cobrança
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub
Private Sub BtExcluirCob_Click()
On Erro GoTo Erro
Dim confirmar As String
Plan4.Activate
Dim plan As String
plan = Plan4.Name
confirmar = MsgBox("Tem certeza que deseja EXCLUIR o Cliente: " & Me.Txt_Cliente_Cob & "?", vbYesNo, "Excluir!")
If confirmar = vbNo Then
MsgBox "Exclusão do Cliente: " & Me.Txt_Cliente_Cob & " CANCELADO!", vbInformation, "Exclusao cancelada!"
Unload Audiência
Exit Sub
End If
valor_Processo = TXT_ID.Value
ult_linha = Range("T3000").End(xlUp).Row
For linha = 2 To ult_linha
If Cells(linha, 18).Value = valor_Processo Then
Plan4.Range(Cells(linha, 1), Plan6.Cells(linha, 9)).Delete Shift:=xlUp
Plan4.Range(Cells(linha, 94), Plan6.Cells(linha, 97)).Delete Shift:=xlUp
'ActiveWorkbook.Save
MsgBox "Cadastro do cliente " & Me.Txt_Cliente_Cob & " foi EXCLUIDO com sucesso!", vbInformation, "Excluído!"
Unload Cobrança
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub