jlvfranca

Prezados, bom dia.Tenho uma rotina que vou excluindo as linhas de acordo com a palavra digita.Sub ExcluirLinha() Dim Col As Variant, Word As String Let Col = InputBox("Em qual coluna devo manter o foco da busca da palavra?") If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col) Let Word = InputBox("Que palavra devo encontrar nas Linhas para apagá-las?") With Columns(Col) .Replace Word, "#N/A", xlWhole .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete End With End Sub Encontrei uma outra rotina mais dinâmica, mas estou apanhando para adaptá-la as minhas necessidades. Quero incluir na rotina, abaixo, os seguintes critérios. Exclua na coluna “AM” tudo que for <> “Assistidos”; Exclua na coluna “N” tudo que for <> “P”; Exclua na coluna “L” tudo que for <> “Renda Mensal - Percentual” , “Renda Mensal – Vitalícia”, “Renda Mensal – Quotas” e “Renda Vitalícia em Quotas”.Sub ExcluirLinha2() Dim vDeletaValor As String Dim vRange As Range Dim vModoCalcular As Long With Application vModoCalcular = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With vDeletaValor = "Assistidos" With ActiveSheet .AutoFilterMode = False .Range("N2:N" & .Rows.Count).AutoFilter Field:=1, Criteria1:=vDeletaValor With ..AutoFilter.Range On Error Resume Next Set vRange = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _ .SpecialCells(xlCellTypeVisible) On Error GoTo 0 If Not vRange Is Nothing Then vRange.EntireRow.Delete End With .AutoFilterMode = False End With With Application .ScreenUpdating = True .Calculation = vModoCalcular End With End Sub Alguém poderia me ajudar?Agradeço antecipadamente,jlvfrança

Pessoal, bom dia. Tenho uma fórmula que cálculo o tempo de serviço entre duas datas, mas quando a diferença dos dias forem superior a 14 dias, considero como 1 mês. A fórmula abaixo vem me atendendo, mas gostaria de transformá-la em uma função UDF, poré não tenho conhecimento necessário em VBA para fazê-lo. Segue abaixo a fórmula que venho utilizando. B1(Data Admissão) = 16/12/1997 B2(Data Demissão) = 30/09/2011 B4 =IF(DATEDIF($B$1;$B$2;"MD")<14;DATEDIF($B$1;$B$2;"Y")+DATEDIF($B$1;$B$2;"YM")/12;DATEDIF($B$1;$B$2;"Y")+(DATEDIF($B$1;$B$2;"YM")+1)/12) Resultado B4 = 13,8333 --------------------------------------------- Estou tentando conforme abaixo, mas não estou conseguindo. Public Function dIFdATA(ByVal DATA1 As Range, ByVal DATA2 As Range) If DateDiff("md", DATA1, DATA2) < 14 Then dIFdATA = DateDiff("y", DATA1, DATA2) + DateDiff("ym", DATA1, DATA2) / 12 Else dIFdATA = DateDiff("y", DATA1, DATA2) + (DateDiff("ym", DATA1, DATA2) + 1) / 12 End If End Function