Colega ericksant segue conforme pedido: Sub Filtrar_diferente_de_zero() Dim ul As Long ' Definindo variável On Error Resume Next ' Se der algum erro...

Crio a variável sempre no início. Já pra definir o seu valor, prefiro fazê-lo no decorrer do código.

Não sei se está usando essa linha, mas caso esteja tente trocar: 'With Worksheets("ESTOQUE").Range("A:A") por 'With ...

=se(ou((procv......)=4;(procv.....)=5);3;procv.....)

Adicione esses dois códigos ao seu projeto: Private Sub txtimp_Change() On Error Resume Next Me.Labeldiferença.Caption = Me.txtpesobal...

Veja se é isso o que deseja: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub End If If Targe...

Segue: Sub Filtrar_diferente_de_zero() Dim ul As Long On Error Resume Next With ActiveSheet.Range("A1:A" & Planilha1.Use...

Entendi. Tenta Assim: Sub Parar_aleatório() Do ActiveSheet.Calculate Loop Until ActiveSheet.Range("C13").value = 2 End Sub

Segue conforme Pedido: Sub Filtrar_diferente_de_zero() On error resume next With ActiveSheet.Range("A1:A" & Planilha1.Us...

Entendi. Segue como você pediu: Sub Parar_aleatório() Do Plan1.Calculate Loop Until Plan1.Range("C13").value = 2 End Sub

Ah sim blz! Mas, de qualquer forma, esse número 2 iria ser digitado na célula C13? Ou iria ser colado nela?

Tenho uma dúvida: de que forma o número 2 iria aparecer na célula C12? Alguém iria digita-lo na célula? ou ele iria aparecer de outra forma?

Insira um valor em A1 , depois use esse resumo de livro: pode escrever um número com até 14 zeros que ela vai reduzir. =SUBSTITUIR(SE(SE(E(NÚM....

Tente também: Application.DisplayAlerts = False

Bom dia, segue conforme pedido: Public pagina1, pagina2 As Range Sub ocultar_Pg1() Set pagina1 = Range("2:55"): Set pagina2 = Ran...