Alyson Ronnan Martins

Bom dia @Rodrigoabreu, complicado de imaginar, teria como nós enviar um exemplo de como esta os seus dados e como deve ficar (para ficar mais simples de fazer o código)?

Vixi um pouco complicado consigo tentar simular com uma planilha ou depois das 19 horas.

Show!

Teria que ter uma ideia de com o está usando o seu código porêm seria um procv "normal" pesquisando valor de outra tabela. É o link seria atualizado sozinho com o Código.

Boa tarde @thifreedom Não sei se era isso que estava pensando mais esta ai um código que vê qual arquivo na pasta é o mais recente e depois faze a atualização do "vinculo" (comparando os arquivos vinculados com o nome "orçamento"): Estou colocando também a planilha e pastas que eu fiz os teste: Código: Public Sub thifreedom() Dim txtArquivo As String ListaArquivos ActiveWorkbook.Path & "\LocalExterno" txtArquivo = fnIdentificarRecente sAtualizarLinks "ORÇAMENTO", txtArquivo 'MsgBox txtArquivo End Sub Sub ListaArquivos(tLocal As String) Dim FSO As Scripting.FileSystemObject Dim SourceFolder As Scripting.Folder Dim SubFolder As Scripting.Folder Dim FileItem As Scripting.File Dim r As Long Set FSO = CreateObject("Scripting.FileSystemObject") Set SourceFolder = FSO.GetFolder(tLocal) With Sheets("Pasta") r = .Cells(Rows.Count, "A").End(xlUp).Row + 1 For Each FileItem In SourceFolder.Files .Cells(r, 1).Formula = FileItem.ParentFolder .Cells(r, 2).Formula = FileItem.Name .Cells(r, 3).Formula = FileItem.DateCreated .Cells(r, 3).NumberFormatLocal = "dd / mm / aaaa" .Cells(r, 4).Formula = FileItem.DateLastAccessed .Cells(r, 5).Formula = FileItem.DateLastModified .Cells(r, 5).NumberFormatLocal = "dd / mm / aaaa" r = r + 1 Next End With End Sub Function fnIdentificarRecente() As String Dim DtRecente As Double Dim r As Long DtRecente = WorksheetFunction.Large(Sheets("Pasta").Range("E:E"), 1) r = WorksheetFunction.Match(DtRecente, Sheets("Pasta").Range("E:E"), 0) fnIdentificarRecente = Sheets("Pasta").Cells(r, "A").Value & "\" & _ Sheets("Pasta").Cells(r, "B").Value End Function Sub sAtualizarLinks(tContem As String, nLink As String) Dim lLinks As Variant lLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(lLinks) Then For i = 1 To UBound(lLinks) p = InStr(lLinks(i), tContem) If p > 1 Then ActiveWorkbook.ChangeLink lLinks(i), nLink, Type:=xlExcelLinks End If Next i End If End Sub Arquivo: Planilhas e pastas de teste

Ficou meio confuso para eu entender sua dúvida.

Boa tarde @walac você não colocou a foto que esta aparecendo. Teria como mandar uma planilha exemplo para simular o que está acontecendo?

Boa tarde @Luiz_Luiz Eu fiz um código baseando a informação que você passou no texto: Código para fazer a função: Public Sub Luiz_Luiz() Dim lastRowA As Long 'Ultima Linha da Coluna A Dim lastRowCad As Long 'Próxima linha a ser cadastrada Dim columnCad As Long 'Coluna que vai ser lançado o cadastro Dim plan As Worksheet 'definir a planilha Set plan = Sheets("Planilha1") lastRowA = plan.Cells(Rows.Count, "A").End(xlUp).Row columnCad = 8 'Coluna H lastRowCad = plan.Cells(Rows.Count, 8).End(xlUp).Row + 1 'Passar por todas as linhas e verificar se tem informação na coluna B 'Se tiver valores na coluna B inserir na próxima linha de cadastro For x = 1 To lastRowA Step 1 If plan.Cells(x, "B") <> "" Then plan.Range(Cells(x, "A"), Cells(x, "B")).Copy plan.Cells(lastRowCad, columnCad).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'informa a proximo linha caso exista novo registro lastRowCad = lastRowCad + 1 End If Next x Eu deixei "personalizável" a coluna aonde vai ser colocada a informação (columnCad = 8 'Coluna H) Planilha

Bom dia. Da sim para fazer em vba Excel só que se você dividir seu projeto etapas ficaria mais fácil em compreender

Boa noite @ThiagoBatista Eu tentei reproduzir seu código porém não consegui. Coloquei os dados na Coluna A: E repliquei seu código, gerando erro na linha marcada:

Boa tarde, Tem algum dados para simular e ver o problema acontecendo?

Com estão salvos os dados dos orçamentos? (tipo em outros arquivos de excel ou algo similar)

Boa tarde. Imagino fazer de duas maneiras: Usar um "SQL" que vai ser responsável pelo soma das colunas Deixar uma consulta pronta no banco de dados assim você só retornar o valor delas. Consegue usar umas das duas opções?

Tem algum modelo com dados fictícios para fazer o primeiro teste?

Boa noite @Littlemouse Tem como criar a sua tabela, com dados fictícios, apenas para fazer o código baseado nela. Seria mais simples e objetivo.

Boa noite @vini75, Eu fiz esse código abaixo porém precisa ver se é essa a ideia que você tem para o seu projeto. Sub Abrir_Exel_ou_Não() Dim RESPOSTA As Integer Dim ANS As Integer RESPOSTA = vbYesNo + vbQuestion + vbDefaultButton2 ANS = MsgBox("Deseja Acesso os Dados?", RESPOSTA, "Prosseguir") If ANS = vbYes Then 'Dim excelx As Workbook.Activate 'Set excel = Workbooks.Open("C:\Sistema_Certificados_Venda\Dados.xlsm") 'End With Shell ("Excel C:\Users\alyso\Downloads\Dados.xlsm") Else End If ActiveDocument.Save Application.Quit End Sub

Boa noite ainda precisando de auxílio no seu código?

Boa noite, você conseguiu fazer essa "formulá" no excel para depois mandar para o VBA? Estou disponível para te ajudar.

Boa noite @Letícia08, tentei simular o seu código mais não consegui.

Boa noite @Oli Garcia Eu fiz um código que poderia ser usado por ti: Private Sub opEntrada_Click() PreencherCampos End Sub Private Sub opSaida_Click() PreencherCampos End Sub Private Sub UserForm_Initialize() 'Carregar PreencherCampos End Sub Public Sub PreencherCampos() Dim uLinha As Long With UserForm1 If .opEntrada Then uLinha = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Row CB_item.RowSource = "Planilha1!A1:A" & uLinha ElseIf .opSaida Then uLinha = Sheets("Planilha1").Cells(Rows.Count, "B").End(xlUp).Row CB_item.RowSource = "Planilha1!B1:B" & uLinha End If End With End Sub

Show!!!

Show.

Fazendo consulta você pode colocar formulas no formulário. SeImed(campo > 20000; "Seu valor; "outro Valor)

Se a página do bem vindo apareceu o php esta funciona. Você pode mandar uma foto do diretório aonde salvou o arquivo porque tem alguma coisa errada. Sem estiver dentro de uma pasta fica assim: http://localhost/suapasta/index.php Se não tiver fica: http://localhost/teste.php

Quando você abriu o xampp aperto em admin do php para mostrar a página inicial do xampp?