Albino Soares

Desculpe Alyson, devido aos custos estou aprendendo VBA via Youtube, por isso a minha dificuldade. tá dando erro na execução nesse comando. valor_processo = Txt_Processo_Aud.Value ult_linha = Worksheets("Plan6").Cells(rowns.Count, "A").End(xlUp).Row ult_linha = Range("A30000").End(xlUp).Row For linha = 2 To ult_linha If Worksheets("Plan6").Cells(linha, 18).Value = valor_processo Then Worksheets("Plan6").Range(Worksheets("Plan6").Cells(linha, 1), Worksheets("Plan6").Cells(linha, 42)).Delete Shift:=xlUp linha = linha - 1 End If If Cells(linha, 18).Value = valor_processo Then Range(Cells(linha, 1), Cells(linha, 42)).Delete Shift:=xlUp linha = linha - 1 End If ActiveWorkbook.Save MsgBox "Cadastro do cliente " & Me.Txt_Cliente_Aud & " foi EXCLUIDO com sucesso!", vbInformation, "Excluído!" Unload Audiência Exit Sub Next Erro: MsgBox "Erro!", vbCritical, "ERRO" End Sub Valeu pelo Basole pelo seu retorno também, mas a excução também parou no: Plan6.Range(Cells(rng.Row, 1), Cells(rng.Row, 42)).Delete Shift:=xlUp Gostaria muito se pudesse enviar o arquivo, ficaria muito mais fácil de você posicionarem. albinito10@gmail.com

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