Basole

Seria melhor voce enviar sua planilha original, ou um exemplo com alguns dados ficticios, para tentar entender melhor o que está ocorrendo, através do dados e o cenario.

@Codename Fox post seu arquivo, ou um exemplo com alguns dados ficticios, para tentar entendermos melhor o que precisa.

Provavelmente está retornando #N/D, pois não está encontrando o valor procurado. A formula que voce postou retorna 0 (zero) caso o valor da celula "I3" seja encontrado na matriz B:G. Pelo que entendi, seria isso que voce quer. Faça um teste com este codigo alterado: Sub Teste() ActiveSheet.Range("K3").Select ActiveCell.Formula = "=IF(VLOOKUP($I3,$B:$G,6,0),0,VLOOKUP($I3,$B:$G,6,0))" Selection.AutoFill Destination:=Range("K3:K13"), Type:=xlFillDefault End Sub

Experimente esta formula: =NÚM.CARACT(A1)-NÚM.CARACT(SUBSTITUIR(A1;"/";""))

Veja se é isso que precisa: ActiveSheet.Range("K3").Select ActiveCell.Formula = "=IF(VLOOKUP($I3,$B:$G,6,0),0,VLOOKUP($I3,$B:$G,6,0))" On Error GoTo clear If Application.WorksheetFunction.VLookup([I3], [B:G], 6, 0) Then Selection.AutoFill Destination:=Range("K3:K13"), Type:=xlFillDefault End If Exit Sub clear: Selection.clear Selection.AutoFill Destination:=Range("K3:K13"), Type:=xlFillDefault

@Nilton Tonon somente com uma imagem, fica difícil tentar te ajudar.

Veja se é isso: clube do hardware_2.zip

Marco, veja se é isso que precisa: banco de dados.zip

Substitua no codigo a linha abaixo: If c.Value <> "" And c.Font.ColorIndex = 1 Then

Veja se é isso que precisa: teste_cor.zip

Aperte as teclas cltr+l ou disponibilize seu arquivo ou um exemplo, para uma procura mais especifica.

Experimente: No textbox: Private Sub TextBox1_AfterUpdate() Me.TextBox1.Text = VBA.Format(Me.TextBox1.Text, "0000/00000") End Sub Na celula: Formatação>Personlizado 0000"/"00000

Existe um Add-in que importa dados do excel. Os dados são importados do Excel para a sua apresentação ativa. Importa cada linha da planilha(aba) do Excel para cada slide do PowerPoint voce pode escolher a aba do Excel para importar os dados. Pode adicionar slides automaticamente se o arquivo Excel tem mais linhas do que os slides no PowerPoint Avisa se não há suficiente campos de texto (formas) para conter todos os dados de cada linha. Funciona com qualquer versão do Microsoft Office. Baixe o Add-In * pode ser que o seu navegador bloqueie o download por prevenção, mas quando instalei este add-in na minha maquina, fiz varias analises de virus e nada foi detectado.

@govs imagens não é exemplo. Se quer ser ajudado rapidamente, envie os arquivos mencionados, ou exemplos com alguns dados ficticios.

Experimente alterar a propriedade TabStop = False, para todos os componentes do seu Userform

Veja se consegue adaptar o exemplo: Classificar ListBox.zip

Teste agora com as alterações. Sub Salva_Planilha() Dim Nome As String, strPath As Variant Nome = Worksheets("Total").Range("A1").Value strPath = "Y:\Pedro Costa\Prozinco\" ActiveWorkbook.SaveAs Filename:=strPath & Nome & ".xls", _ FileFormat:=56 End Sub

Veja o exemplo: Para testar ajuste a data de hoje e os horários para agora + 2 minutos, por exemplo exemplo_Alarmes.zip

Vá em Dados> Validaçao de Dados > Mensagem de Entrada (vide imgs):

Segue sugestão em vba. Ao alterar um dado na coluna C, os dados da respect. linha são inseridos na Plan2 Cole o codigo no modulo da Plan1 Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long Lr = Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Not Intersect(Target, Range("C2:C" & Lr)) Is Nothing Then With ThisWorkbook With .Sheets("Plan2") Lr = .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row .Range("A" & Lr) = Range("A" & Target.Row) .Range("B" & Lr) = Range("B" & Target.Row) .Range("C" & Lr) = Range("C" & Target.Row) End With End With End If End Sub

@dafmg em um momento voce diz que quer eliminar, outro momento voce quer acrescentar as formulas ? Não entendi direito o que voce quer. Post exemplo praticos com um modelo e alguns dados.

@Zamboni_du veja se é isso que deseja: clube do hardware.zip

Veja se é isso que deseja: Faixa etaria.zip

Experimente: Selecione os dados da coluna, a partir de A2, em Formatação condicional, Nova Regra e use a formula =CONT.SE($B2;"*CAFÉ*") e selecione a formatação desejada.

voce quer então inserir os valores através da função 'Mês' via vba? Se for isso segue exemplo: Sub Executar_fórmulas_via_vba_() Dim rng As Range, c As Range, UL As Long With ActiveSheet UL = .Cells(Rows.Count, 1).End(xlUp).Row Set rng = .Range("A1:A" & UL) For Each c In rng If c <> "" Then If IsDate(c) Then c.Offset(, 1).Value = VBA.Month(c.Value) Else c.Offset(, 1).Value = "" Else c.Offset(, 1).Value = "" End If Next End With End Sub