Basole

Ok mas poste o que voce ja fez para que possamos ajudar e sugerir

Sim é possivel, mas para isso precisamos analisar os dados e formatações do seu arquivo. Poste sua Pasta de Trabalho, ou em exemplo bem proximo com alguns dados ficticios.

@FMattos não entendi. O que seria por exemplo "layout de chamados" ? Se puder ilustrar o que pretende acho que facilita o entendimento.

Não conheço uma ferramenta especifica para isso.. Tem que analisar o arquivo. Repondi em mp.

Veja se é isso que precisa: Dim sh As Worksheet If Sheets("Orçamento").[C2] = "" Then MsgBox "É obrigatório preencher o campo contratante!" Else For Each sh In ThisWorkbook.Worksheets Set Target = Range("C2") If VBA.UCase(sh.Name) = VBA.UCase(Left(Target, 31)) Then MsgBox "Já existe uma Planilha com o nome " & Target.Value, vbCritical, "" Exit Sub End If Next Cells.Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _ , SkipBlanks:=False, Transpose:=False ActiveWindow.Zoom = 90 ActiveWindow.DisplayGridlines = False ActiveSheet.Name = Left(Target, 31) End If

Sim, envie a planilha ou um exemplo proximo com alguns dados ficticios.

Desculpe mas não entendi direito, voce varias abas e o onde voce quer que apareça cronometro, em que celula. Se puder fazer uma breve explicação do funcionamento da planilha.

Segue com as alterações.... Acrescentei aspas simples no endereço no nome da aba: Sub Cria_Indice() Dim Plan_TT, Plan_Atual As Integer Plan_TT = Sheets.Count Plan_Atual = 1 Do While Plan_Atual <= Plan_TT Cells(Plan_Atual, 1).Activate ActiveCell.Value = Sheets(Plan_Atual).Name Link_Ativo = "'" & Sheets(Plan_Atual).Name & "'!A1" Nome_Link_Ativo = Sheets(Plan_Atual).Name ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Link_Ativo, TextToDisplay:=Nome_Link_Ativo Plan_Atual = Plan_Atual + 1 Loop End Sub

Amigo para que possamos entender melhor e ajuda-lo, anexe o seu arquivo, se a extensão do arquivo for *.xlsm anexe-o zipado.

@diego_janjao desculpe mas eu não faço planos. A gente comparece, ou pelo menos eu, para poder ajudar a quem precisa de ajuda, mas nem sempre é possivel entender o que as pessoas querem ou estão tentando fazer. Então eu procuro ajudar quando a pessoa espoem de forma clara aquilo que pretende. Por exemplo, no seu 1º post voce disse: "consegui fazer o form" Pelo que conheço form é isso: => Depois voce diz: Eu estou meio confuso, é no form ou na planilha? Se for na propria planilha, a planilha, já tem a barra de rolagem e um um simples Procv voce consegue obter esses dados. Até poderia lhe ajudar nesta formula, mas não tem com adivinhar de onde é a fonte de dados.

No exemplo em anexo eu inclui o comando que envia novos dados a base de dados, ou seja envia dados da pasta de trabalho ativa para pasta de trabalho inativa. Quando se envia dados com esse comando ele insere os dados na base na ultima linha vazia.No exemplo ele envia a linha inteira, ou seja as colunas nome, cidade e pais. E se voce quer pesquisar e ou alterar um dados, no metodo findfirst, voce coloca o nome do campo do seu banco, por exemplo, se o campo "Nome" estiver na coluna F, é esse o campo que voce vai pesquisar. Se ainda tiver duvidas faça um exemplo com alguns dados e post com sua duvida aqui. comando_2.zip

Tem muita coisa na net, mas pra quem ta começando, esse é um bom caminho: Lições de VBA do Excel

voce tem que colocar este codigo no editor vbe em "EstaPasta_de_trabalho" vide imagem: E esta macro só sera executada quando clicar no botão Salvar

Segue com a alteração: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MsgBox("deseja incrementar o número do ORÇAMENTO?", _ vbQuestion + vbYesNo, "ORÇAMENTO") = vbYes Then With Sheets("Orçamento") .Range("B7").Value = .Range("B7").Value + 1 End With End If End Sub

Amigo, há algumas formas de fazer isso, mas veja este exemplo utilizando a biblioteca dao. Arquivos1.zip

Não se se entendi direito a data que voce fala é a data de hoje? for isso segue um trecho com a alteração: For I = 2 To LinhaFinal If Data = Sheets("BANCO").Cells(I, 1).Value Then Set Item = ListView1.ListItems.Add(Text:=Sheets("BANCO").Cells(I, 1)) Item.SubItems(1) = Format(Sheets("BANCO").Cells(I, 2), "hh:mm") Item.SubItems(2) = Sheets("BANCO").Cells(I, 3) Item.SubItems(3) = Sheets("BANCO").Cells(I, 4) Item.SubItems(4) = Sheets("BANCO").Cells(I, 6) Item.SubItems(5) = Sheets("BANCO").Cells(I, 7) End If Next

Amigo se ele desenvolveu o programa em vba é possivel liberar esta data de funcionamento.

@diego_janjao baixei seu anexo, e vi que voce já inseriu um Listbox no form. Quais colunas de que aba, voce quer inserir dados neste Listbox? Ou seja quais informaçoes voce quer que apareça no listbox.

@diego_janjao já tentou utilizar um Listbox:

Amigo, esperimente colocar os parametros apos o comando. Ficando assim: @robocopy /e /eta "C:\Users\Servidor 5109\Documents\Navicat\MySQL\servers\sysfar\mysql" C:\Gdrive\TI\BACKUPS\PERSONALFARMA\FILIAIS\02-REG5109\mysql

Com esta alteração, o código vai procurar na coluna B, por exemplo, Se encontrar, verifica na mesma linha se na coluna C, contem algum dado, se estiver vazio, exclui. *Mas vai fazer isso com as outras colunas tambem. Altere este trecho do código: Do If rng.Offset(, 1) = "" Then If rngDel Is Nothing Then Set rngDel = rng Else Set rngDel = Union(rngDel, rng) End If End If

Substitua esta linha no codigo que postei: Set rng = .Columns(j).Find(pula_aba2, LookIn:=xlValues, Lookat:=xlWhole)

Salve o exemplo com a extensão *.bat em uma pasta diferente da pasta de seus *.jpg(s), para o comando nao criar atalho deste arquivo: @echo off set "source="\\SRVDC1\GERAL\DESENHO\JPG\2017" set "target="\\SRVDC1\GERAL\DESENHO\JPG" set "exclude=%temp%\exclude.txt" ( echo .txt echo pipe.cmd echo "c:\\source\\directory\\something.txt" echo "%source:\=\\%\\thisNot" )> "%exclude%" forfiles /P "%source%" /C "cmd /c (echo @path|findstr /i /v /g:"%exclude%" >nul) && if @isdir==TRUE (mklink /d \"%target%\\\"@file @path) else (mklink \"%target%\\\"@file @path)" del "%exclude%" > nul fonte: Bat para criar atalhos

Use o comando MkLink na pasta que deseja criar os atalhos. Exemplo: MKlink MeuLink.exe C:\Windows\system32\notepad.exe Veja a sintaxe neste site: https://ss64.com/nt/mklink.html

Experimente ajustar de acordo com essas duas propriedades: Label1.TextAlign = fmTextAlignLeft / fmTextAlignCenter / fmTextAlignRight Label1.WordWrap = True / False