Basole

@PauloC19 neste caso a fórmula retorna ( 0 ou 1 ), ou seja as qualidades de ocorrências encontradas em cada linha.

Sim cada banco tem o seu layout Qual banco você trabalha ? De repente consigo adaptar o exemplo que postei para importar o respectivo layout padrão só seu banco

@Rafael_and_silva_85 veja se é isso que precisa Sub ex1() On Error GoTo tratar Dim ulinha As Integer Dim linha As Long Dim LR As Long ulinha = Range("A1").End(xlDown).Row For linha = 2 To ulinha Cells(linha, 4) = Cells(linha, 3) / Cells(linha, 2) Next GoTo Continue tratar: LR = Cells(Rows.Count, "E").End(xlUp).Offset(1).Row LR = VBA.IIf(LR < 2, 2, LR) Cells(linha, 1).Copy Cells(LR, 5).PasteSpecial Resume Next Continue: End Sub

Veja se é isso que entendi que está querendo TESTE CELULA ATIVA(1).zip

@Luciana Goes Veja se é isso... A rotina carrega os dados e o filtro na pesquisa com a aba listbox oculta, sem interferencias na tela Listbox - Filtrar parte da palavra_v1.zip

Acho que seria melhor voce disponibilizar um exemplo de arquivo (*.txt), Excel ou (*.csv), com dados ficticios para o pessoal tentar cirar uma rotina de importação, para as respectivas formatações dos arquvos.

@Bruno.2017 tenho este exemplo que importa arquivos no formato/ extensão (*.ofx) - Open Financial Exchange Dependendo do layout do arquivo do seu banco, pode ser que lhe atenda. * No anexo tem a planilha e um arquivo exemplo (*.ofx), para testes. OFX.zip

voce quer o resultado em E1, com a formula (procv) ou so o valor por extenso ?

Veja se é isso que precisa... TESTE CELULA ATIVA.zip

@Bruno.2017 sim é possível mas não clicando na célula e sim selecionando. E o resultado pode ser mostrado em um pop-up por exemplo. Se puder disponíbilizar um exemplo com os dados e as fórmulas desejadas

@rayanwin Não se entendi exatamente que precisa, mas apresentei esta solução pois voce citou que poderia ser um complemento, e ja que voce alegou que atraves das formulas que tentou não teve resultados satisfatorios, por conta do "peso" O suplemento que eu apresentei faz isso procura o termo ou valor, em todas planilhas (pasta deTrabalho), e abas, desque que elas estejam na pasta determinada. E traz o resultado desta forma abaixo: Mas como voce não teve o trabalho e nem o interese em baixar o arquivo que anexei .... ....Vou deixar para futuras pessoas que possam precisar desta solução * Para quem for utilizar o suplemento, atualizei o anexo e coloquei um botao (ribbon), na faixa de opções, para acesar a macro PesquisaTdPasTrab1.zip

@rayanwin uma opção é usar este suplemento. Veja se atende. Apos adicionar em sua planilha, aperte as teclas (Alt+F8), e clique em executar. Siga os passos para selecinar a pasta e o que (valores ou termos), quer pesquisar PesquisaTdPasTrab1.zip

@Luciana Goes o código abaixo aceita os digitos de 0 a 9 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii >= 48 And KeyAscii <= 57 Then Else KeyAscii = 0 End If End Sub * Altere o nome do textbox no exemplo, caso necessario

@hudsonborba não sei se voce viu, mas o desenvolvedor respondeu seu comentario / pergunta: Real-statistics-resource-pack

@Luciana Goes seria somente a formula que a macro esta inserindo na ABA1 ? ActiveCell.FormulaR1C1 = "=" & "'" & NewSheet.Name & "'!R[-1]C[2]"

@sucramsuiciniv segue exemplo, considerando que a celula desejada seja a "A2" * Cole o codigo no modulo da planilha (aba), desejada: Dim oldVal As String Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$A$2" Then If VBA.IsNumeric(oldVal) And _ VBA.IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = oldVal + Target.Value Application.EnableEvents = True End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$A$2" Then oldVal = Target.Value End If End Sub

@ANDRADEOLIV veja se é isso que deseja ... LOCALIZAÇÃO_v1.zip

@sucramsuiciniv sim com uma rotina em VBA, é possível

@Dione p veja se é isso..... Sub SALVAR_PDF() ' ' SALVAR_PDF Macro Dim ws As Worksheet Dim i As Integer With ActiveWorkbook For Each ws In .Sheets(Array("Aut", "+A", "2", "3", "4", "S", "A")) If .Sheets(ws.Name).Range("AA1").Value = 1 Then If i > 0 Then .sheets(ws.Name).Select False i = i + 1 Else .sheets(ws.Name).Select i = i + 1 End If End If Next ws ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\P\Downloads\Projeto " & .Sheets("+A").Cells(7, 2).Value & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True .Sheets("+A").Select End With End Sub

@ANDRADEOLIV corrigi um erro ao referenciar a aba. Agora sim esta conforme solicitado. LOCALIZAÇÃO.zip

@ANDRADEOLIV voce não informou se pode haver mais de uma ocorrencia de cada item (localização) na aba base, então não considerei. Veja o anexo : LOCALIZAÇÃO.zip

@Silvio Alves Nitro No seu primeiro post voce afirmou que queria aplicar entre a textbox 30 a 50 Na minhas resposta com pequena correção atenderia. If VBA.Right(ctl.Name, 2) > 29 And VBA.Right(ctl.Name, 2) < 51 Then Set TextBoxes(i).TextGroup = ctl i = i + 1 End If Já com a sua nova solicitacao e a colaboracao do colega @Midori fica assim o codigo no userfom.... declarando a variavel Numero Option Explicit Public WithEvents TextGroup As MSForms.TextBox Dim TextBoxes() As New SuaClasse Sub CarregaSuaClasseTextbox() Dim ctl As MSForms.Control Dim i! Dim Numero i = 1 For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then ReDim Preserve TextBoxes(1 To i) Numero = Replace(ctl.Name, "TextBox", "") If IsNumeric(Numero) Then If Numero >= 32 And Numero <= 800 Then Set TextBoxes(i).TextGroup = ctl i = i + 1 End If End If End If Next ctl End Sub Sub UserForm_Initialize() Call CarregaSuaClasseTextbox End Sub

@Silvio Alves Nitro mas você tentou adaptar o exemplo que postei ?

@Silvio Alves Nitro não sei como está seu cenário. Mas experimente colocar uma condição para carregar as textbox. Ex. If vba.right(ctl.name, 2) >29 And < 51 then Set TextBoxes(i).TextGroup = ctl i = i + 1 End if

@Ariana Chagas experimente acrescentar nas textBox data a função formatar Desta forma... .Cells(linha, 11).Value = vba.format(TextBoxDocDt1S.Text, mm/dd/yyyy)