Pessoal, boa tarde,
Tenho uma planilha que através de um formulário em vba cadastro informações que são enviadas para a aba "Clientes" e para a aba "Ping", porém não tô conseguindo fazer a exclusão da informação que desejo nas 2 abas ao mesmo tempo, consigo apenas da aba "Clientes", preciso que exclua da "Clientes" e da aba "Ping".
Código:
Private Sub cmdExcluir_Click() Dim lLinha As Long Dim currentFind As Range Dim lPosicao As String iTotalLinhas = Sheets("Clientes").Cells(Rows.Count, 1).End(xlUp).Row If IsNumeric(lblCod.Caption) = True Then Set currentFind = Worksheets("Clientes").Range("A:A").Find(lblCod.Caption, , _ Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _ Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False) lLinha = currentFind.Row currentFind.EntireRow.Delete If lLinha <= iTotalLinhas And IsNumeric(Worksheets("Clientes").Cells(lLinha - 1, 1)) Then lsLocalizaRegistroStudent (CLng(Worksheets("Clientes").Cells(lLinha - 1, 1))) End If If lLinha = 2 And iTotalLinhas > 2 Then lsLocalizaRegistroStudent (CLng(Worksheets("Clientes").Cells(lLinha + 1, 1))) Else lsLimparStudents End If Sheets("Menu").Activate End If End Sub