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

1 hora atrás, Basole disse:

Segue com as alterações, veja se é isso que precisa.

Orçamento.zip

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

http://www.4shared.com/file/pY9muC93ba/Estoque.html

desde já grato pela ajuda