Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

jordan_jd

Membros Juniores
  • Total de itens

    6
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

Sobre jordan_jd

  • Data de Nascimento 21-05-1991

Informações gerais

  • Cidade e Estado
    Curitiba/PR
  • Sexo
    Masculino
  1. Criar pasta, move o arquivo e Abrir em VBA

    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"
  2. 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
  3. Procurar valor de TextBox e Abrir Planilha

    Obrigado... era isto mesmo, só desculpe a bagunça que estava no comando pois sou novato no vba. Obrigado de novo.
  4. 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
  5. Excel armazenar valores e somar na mesma celula?

    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
  6. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×