CorlissExcelling's questions

Quero que minha macro de formatação seja executada em uma pasta de trabalho diferente daquela em que a macro está armazenada. Até agora, só tenho este código:

Application.ScreenUpdating = False

If ActiveWorkbook.Name <> ThisWorkbook.Name Then
--Do the things i want--
End If

Preciso ter o Dim ___ As para acompanhar?

Desculpe por qualquer confusão. A pasta de trabalho principal que abrigará esta macro terá muitas informações em várias guias diferentes.

A outra pasta de trabalho/dados brutos precisará de uma macro para formatá-la, já que haverá muitos tipos diferentes de dados brutos. Eu estava planejando criar uma macro para cada um, já que tudo terá um layout diferente. Isso é usado principalmente como uma proteção caso alguém não esteja prestando atenção e execute-o na pasta de trabalho do relatório principal e acidentalmente remova informações vitais.

Consegui fazer essa fórmula funcionar para o filtro em que tenho colunas AEe AFas selecionei.

Quando tentei adicionar uma parte de classificação à fórmula, ela misturou os cabeçalhos e a fórmula misturou os cabeçalhos com os dados listados.

Original:

=FILTER(CHOOSE({1,2},AF:AF,AE:AE),AE:AE>0)

Classificação em ordem crescente para a 1ª coluna:

=SORT(FILTER(CHOOSE({1,2},AF:AF,AE:AE),AE:AE>0),1,1)

Existe uma maneira de não incluir os cabeçalhos na classificação?

Observação : o conjunto de dados não é uma tabela e não posso transformá-lo em uma tabela porque o cliente não quer que os dados brutos sejam transformados.

Recurso para colunas personalizadas:

• https://www.youtube.com/watch?v=ZCQAweoAdOw

atualização: 04/10/24 Tentei usar a parte DROP conforme sugerido, mas recebi o erro NAME?, então a versão que tenho não me permite usar DROP. - Obrigado.

Estou usando uma versão mais antiga do Excel, então não posso usar muitas das novas fórmulas que tornariam minha vida mais fácil.

No momento, estou tentando fazer com que todo o texto depois de um caractere específico apareça.

exemplo '12345678 CustomerName
Resultados desejados é para "CustomerName"

Os números iniciais podem mudar de tamanho.

Eu já tentei uma função chamada Textafter(), mas ela não funciona. Estamos usando a versão 2019, e a função textafter não aparece como uma opção nas listas disponíveis. Recebo o erro #Nome?

Esta é a melhor fórmula ou há algo melhor que eu possa usar?

=SEERROR(MÉDIO(K2,COMPR.(K2),PESQUISA(" ",K2,COMPR.(K2))),MÉDIO(K2,9,30))

Tenho feito algumas pesquisas adicionais e me deparei com esta fonte https://community.smartsheet.com/discussion/97017/how-can-i-find-a-position-of-a-character-in-a-string , mas ainda parece mais abrangente do que eu acho que deveria ser.

Tenho feito algumas pesquisas e reunido alguns códigos de duas fontes e queria saber se havia espaço para melhorar o código que montei. Eu tinha um código antigo que era um pouco desajeitado.

fontes: https://excelchamps.com/vba/delete-sheet/#:~:text=Each%20sheet%20has%20a%20name%2C%20and%20you%20can,code%20would%20be%3A%20Sub%20vba_delete_sheet%28%29%20Sheets%28%22Data%22%29.Delete%20End%20Sub

https://www.automateexcel.com/vba/delete-clear-worksheet/#:~:text=With%20On%20Error%20Resume%20Next%20you%20can%20tell,if%20so%20delete%20it.%3A %20If%20RangeExists%28%22Sheet1%22%29%20Then%20Sheets%28%22Sheet1%22%29.Excluir

Código:

Dim ws As Worksheet
Dim mySheet1 As Variant
Dim mySheet2 As Variant
Dim mySheet3 As Variant
Dim mySheet4 As Variant
Dim mySheet5 As Variant


mySheet1="S363"
mySheet2="non"
mySheet3="promos"
mySheet4="All Filtered"
mySheet5="Final Send"

Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
    If mySheet1 = ws.Name Then
      ws.Delete
 ElseIf  mySheet2 = ws.Name Then
      ws.Delete
ElseIf  mySheet3= ws.Name Then
      ws.Delete
ElseIf  mySheet4 = ws.Name Then
      ws.Delete
ElseIf  mySheet5 = ws.Name Then
      ws.Delete
    End If
Next ws

‘All other instructions here
Application.DisplayAlerts = True
End Sub