Notifications
Clear all

Comando exluir linha em outra planilha

1 Posts
1 Usuários
0 Reactions
684 Visualizações
(@albino10)
Posts: 24
Eminent Member
Topic starter
 

Boa tarde senhores,
Acredito que falta poucos paara eu concluir meu projeto VBA.
Preciso de um comando que direcione o botão excluir a linha para plan(6) desejada, no momento só consigo excluir a linha estando na mesma plan(6). Preciso estar na Plan(3) e excluir uma terminada linha na Plan(6). Esse é o comando que tenho:

Private Sub BtExcluirAud_Click()
On Erro GoTo Erro

Dim confirmar As String
confirmar = MsgBox("Tem certeza que deseja EXCLUIR o Cliente: " & Me.Txt_Cliente_Aud & "?", vbYesNo, "Excluir!")
If confirmar = vbNo Then
MsgBox "Exclusão do Cliente: " & Me.Txt_Cliente_Aud & " CANCELADO!", vbInformation, "Exclusao cancelada!"
Unload Audiência
Exit Sub
End If

valor_processo = Txt_Processo_Aud.Value
ult_linha = Range("A30000").End(xlUp).Row
For linha = 2 To ult_linha
If Cells(linha, 18).Value = valor_processo Then
Range(Cells(linha, 1), Cells(linha, 42)).Delete Shift:=xlUp
linha = linha - 1
End If
Next

ActiveWorkbook.Save
MsgBox "Cadastro do cliente " & Me.Txt_Cliente_Aud & " foi EXCLUIDO com sucesso!", vbInformation, "Excluído!"

Unload Audiência
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub

 
Postado : 18/03/2023 4:37 pm