Jetpack has locked your site's login page.

Este tópico contém 1 resposta, 1 utilizador e foi actualizado pela última vez há 1 ano, 8 meses por albino10.

A visualizar 1 resposta da conversa

Autor

Artigos
- 18 de Março de 2023 às 19:32 #5103
 
 albino10
 Participante
 
 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
- 18 de Março de 2023 às 19:40 #5104
 
 albino10
 Participante
 
 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
Autor

Artigos

A visualizar 1 resposta da conversa

Tem de iniciar sessão para responder a este tópico.