Este fórum está sendo desativado

Boa tarde.
Poderia enviar a planilha ???
Até
Foxtri

Bom dia.
Talvez assim ??
If Cells(linha, 18).Value = valor_processo Then
Plan(6).Cells(linha, 1).EntireRow.Delete
'Range(Cells(linha, 1), Cells(linha, 42)).Delete Shift:=xlUp
'linha = linha - 1
End If

Até
Foxtri

Boa tarde.
Veja agora:
Até
Foxtri

Boa tarde
Veja se era isso.
Até
Foxtri

Bom dia.
Veja se pode ser desta maneira.
Até

Foxtri

Boa tarde.
Segue uma opção.
Até
Foxtri

Bom dia.
Também queria ter acertado 3 vezes na mega.
Até
Foxtri

Bom dia.
Segue uma possibilidade.
Até
Foxtri

Bom dia.
Não sei se entendi a sua necessidade.
Segue uma sugestão.
Até
Foxtri

Olá
Veja agora.
Precisa ajustar as fórmulas conforme for aumentando o número de linhas.
Até
Foxtri

Bom dia.
Uma opção.
Até
Foxtri

Bom dia. Segue uma opção. Em um Módulo normal coloque a seguinte Função: Function SepGrupos(XNum As String) As String Dim i As Long For i = 1 To Len(XNum) SepGrupos = SepGrupos & Mid(XNum, ((i - 1) * 4) + 1, 4) & " " Next i SepGrupos = Trim(SepGrupos) End Function Como Usar : B1 =S...

Boa tarde. Veja se serve. Private Sub Worksheet_Change(ByVal Target As Range) Dim XRange As Range If Selection.Rows.Count > 1 Or Selection.Columns.Count > 1 Then Exit Sub If Target.Row = 3 And Target.Column = 10 And Target.Value <> "" Then Cells(WorksheetFunction.Match(Range("J3"...

Boa tarde.
Segue uma possibilidade.
Até
Foxtri

Bom dia.
Segue uma opção.
Altere :
'ValorParc = Round(Valor / QteParc, 2)
ValorParc = Int(Valor / QteParc)
e
'If A = QteParc Then
If A = 1 Then

Até
Foxtri

Bom dia
Segue uma opção.
Até
Foxtri

Olá Corrigindo: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 10 And Target.Column = 8 Then If Range("H10") = "" Then Exit Sub If Range("D4") = "" Then Range("D4") = DateSerial(Year(Date), Month(Date), 1): Exit Sub [XFD1] = Day(...

Bom dia. veja se essa opção resolve a sua necessidade. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 10 And Target.Column = 8 Then If Range("H10") = "" Then Exit Sub If Range("D4") = "" Then Range("D4") = DateSerial(Year(Date), ...

Bom dia. Veja se era isso: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 10 And Target.Column = 8 Then If Range("D4") = "" Then Range("D4") = DateSerial(Year(Date), Month(Date), 1): Exit Sub ThisWorkbook.Names.Add Name:="XDIA", RefersTo:=...

Bom dia
Use a Formatação adequada.
Categoria = Hora
Tipo = 37:30:55
Até
Foxtri