jordan_jd

@Patropi Cara você já me ajudou com bastante dicas, será que você pode me ajudar de novo. Mas se alguém tiver alguma dica também é muito bem vindo. preciso do nome do usuário em uma célula, quando ele salvar a planilha. tem como fazer isto, sem VBA ou com VBA. obrigado desde já.

@Patropi Eu já vi com fórmula,mas para mim não vai dar certo, porque vão acabar me excluindo a formula e ainda vou ter espaços em branco no meio da planinha, ai não vai dar muito certo, mas obrigado.

Boa tarde Galera Estou tentando fazer adaptar uma macro que peguei na internet; para gerar uma lista de material dos materiais que se repetem muitas vezes. isto na plan1 Exemplo : Coluna A Coluna B Material 1 2 Material 2 1 Material 3 4 Material 2 1 Material 1 3 Material 3 1 Material 1 2 Coluna B é a quantidade do material. quero que fique assim isto na plan2 Exemplo : Coluna A Coluna B Material 1 7 Material 2 2 Material 3 5 tenho o código que já pega uma fez o material, só não consegui ainda o de comparar o material e somar a quantidade. segue planinha que estou fazendo. desde já obrigado. Código: Sub AleVBADeletaDepoisCopiar() With Sheets("Plan1") .Range(.Range("A2"), .Range("A65536").End(xlUp)).Copy End With Sheets("Plan2").[A65536].End(xlUp)(2).PasteSpecial Paste:=xlValues Cells.RemoveDuplicates Columns:=Array(1), Header:=xlNo End Sub teste_lista.zip

Boa tarde Galera consegui fazer alterando a linha abaixo. Esta Linha: 'Como renomear arquivos (exemplo): Name "D:\Users\Jordan\Desktop\WEb\Teste\teste 1.xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste\" & novoNome & ".xlsx" Por : 'Como renomear arquivos (exemplo): Name "D:\Users\Jordan\Desktop\WEb\Teste\teste 1.xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste\" & Linha & "\" & novoNome & ".xlsx" Esta pode excluir: 'AQUI SERA PARA MOVER PARA A PASTA CRIADA Name "D:\Users\Jordan\Desktop\WEb\Teste" & "\" & novoNome & ".xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste" & "\" & Nomepasta & novoNome & ".xlsx"

Boa tarde galera Estou tendo um problema com o código abaixo, primeiro ele copia um arquivo base "meu", renomeia com o numero que esta na célula e depois ele abrir. Agora eu quero mover o arquivo renomeado e abri-lo em seguida mas não estou conseguindo alguém pode me ajudar. Sub Copy_Abrir() FileCopy "D:\Users\Jordan\Desktop\WEb\Teste\teste.xlsx", "D:\Users\Jordan\Desktop\WEb\Teste\teste 1.xlsx" Dim caminlho As String Dim pasta As Object, Nomepasta Application.ScreenUpdating = False 'Seleciona a última linha preenchida da planilha Linha = Sheets("Orcamento").Cells(Rows.Count, "A").End(xlUp) Cliente = Sheets("Orcamento").Cells(Rows.Count, "B").End(xlUp) Obra = Sheets("Orcamento").Cells(Rows.Count, "C").End(xlUp) 'Cria pasta com o numero do orçamento que esta na ultima linha escrita da coluna A Set pasta = CreateObject("Scripting.FileSystemObject") Nomepasta = ActiveWorkbook.Path & "\" & Linha If Not pasta.FolderExists(Nomepasta) Then pasta.CreateFolder (Nomepasta) End If 'Nome na Planilha Ativa em A2 nomeA2 = CStr(Linha & " - " & Cliente & " - " & Obra) On Error Resume Next 'Define os Novos Nomes - Planilha(Arquivo) novoNome = nomeA2 'Enibe a mensagem se a pasta já existir 'Com essa instrução a Pasta será substiutida sem questionamento Application.DisplayAlerts = False 'Como renomear arquivos (exemplo): Name "D:\Users\Jordan\Desktop\WEb\Teste\teste 1.xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste\" & novoNome & ".xlsx" 'AQUI SERA PARA MOVER PARA A PASTA CRIADA Name "D:\Users\Jordan\Desktop\WEb\Teste" & "\" & novoNome & ".xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste" & "\" & Nomepasta & novoNome & ".xlsx" 'AQUI ABRIR O ARQUIVO MOVIDO Workbooks.Open ("D:\Users\Jordan\Desktop\WEb\Teste" & "\" & Nomepasta & novoNome & ".xlsx") End Sub

Obrigado... era isto mesmo, só desculpe a bagunça que estava no comando pois sou novato no vba. Obrigado de novo.

Pessoal preciso de uma ajuda, Tenho uma planilha que contém colunas com N° de orçamento; Cliente e Obra, é seguinte criei Userform com duas textbox uma para procurar o numero do orçamento e a outra para retornar o nome do cliente e um botão para poder abrir. Agora vem a complicação a planilha que tem o N° do orçamento, cliente e obra são nomes dos arquivos de planilhas, eu quero quando eu digitar o numero do orçamento eu possa abrir o arquivo. Os nomes dos meus arquivos na planilha estão assim: N Orçamento Cliente Obra N° 001 Cliente1 Obra1 N° 002 Cliente2 Obra2 N° 003 Cliente3 Obra3 N° 004 Cliente4 Obra4 N° 005 Cliente5 Obra5 N° 006 Cliente6 Obra6 N° 007 Cliente7 Obra7 N° 008 Cliente8 Obra8 N° 009 Cliente9 Obra9 Os arquivos estão assim: N° 001 - Cliente1 - Obra1 N° 002 - Cliente3 - Obra2 N° 003 - Cliente3 - Obra3 N° 004 - Cliente4 - Obra4 N° 005 - Cliente5 - Obra5 N° 006 - Cliente6 - Obra6 segue o meu arquivo para melhor entender Desde já obrigado. Orçamento.zip

Patropi Grato pela força mas ajudou sim, mas estou com dificuldade no procedimento de VBA visto acima. Que esta na planilha de entrada. muito trampo do jeito que eu estou fazendo quero ver se tem um jeito mais fácil de fazer. Segue arquivo novamente. mas vou curti la sim beleza Estoque.rar

Boa tarde Galera bom é o seguinte estou criando uma planilha de controlar o estoque, tenho modo de pesquisa, modo de entrada e modo de saída e controle, mas agora estou buscando uma forma de que quando eu acrescentar um valor na célula de entrada ele some com o valor já exite na mesma célula. sendo assim eu busquei na internet este código. Public Sub Worksheet_Change(ByVal Target As Excel.Range)Static valorcel As IntegerApplication.EnableEvents = FalseIf Target.Address = "$C$3" Thenvalorcel = Target.Value + valorcelIf Target.Value = 0 Then valorcel = 0Target.Value = valorcelEnd IfApplication.EnableEvents = TrueEnd Sub dai estou tentando fazer algo assim que esta no arquivo http://www.4shared.com/file/pY9muC93ba/Estoque.html desde já grato pela ajuda