Ir ao conteúdo
  • Cadastre-se

luis_uardo

Membros Juniores
  • Total de itens

    13
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Como eu realizo isso com o arquivo/código que tenho e um listview dessa planilha??
  2. Creio ter entendido, porém, uma dúvida, é possível fazer isso com planilha, no mesmo workbook, ocultada?
  3. @Márcio Rodrigues Segue abaixo o arquivo. O problema é que o planejamento dessa tabela é feito diariamente, então posso ter inserir informações hoje que são de 4 dias a frente e inserir, amanhã, outras que são para o mesmo dia. Ao realizar a transferência, as linhas estão indo duplicadas para a aba correspondente, isso levando em consideração que eu realize diaremente a transferência. Ao menos, por hora, essa é a dificuldade que encontro. Teste 34.zip
  4. @CasaDoHardware Não sei se entendi muito bem. Você poderia explicar ?
  5. Olá a todos, Eu tenho uma planilha com um formulário que salva em um BD com Nome, data, relatório e status. Como eu faço para visualizar os arquivos do bd, na plan original, sem que o bd abra? Segue uma tentativa de código: Sub List_view1 Dim LR As Long Dim BD As Workbook Dim wksOrigem as Worksheet Dim lincont as long Dim colcont as long dim i as long dim j as long dim rData as range Dim rCell as range Dim LstItem as ListItem Set wksOrigem = Worksheets("1") Set rData = wksOrigem.range("A1").CurrentRegion If Not VBA.Dir(strPath & strFile, vbDirectory) = Empty Then If Not IsFileOpen(strPath & strFile) Then Excel.Application.ScreenUpdating = False Set BD = Excel.Application.Workbooks.Open(strPath & strFile) Excel.Application.ScreenUpdating = True With BD.Worksheets("1") linCont = rData.Rows.Count colCont = rData.Columns.Count For i = 2 To linCont Set LstItem = Me.ListView1.ListItems.Add(Text:=rData(i, 1).Value) For j = 2 To colCont LstItem.ListSubItems.Add Text:=rData(i, j).Value Next j Next i End With If Not BD Is Nothing Then Excel.Application.DisplayAlerts = False BD.Close SaveChanges:=True Set BD = Nothing Excel.Application.DisplayAlerts = True End If Erro: Excel.Application.ScreenUpdating = True If Not BD Is Nothing Then BD.Close SaveChanges:=True: End Sub Set wksOrigem = sAba Set rData = wksOrigem.range("A1").CurrentRegion
  6. Olá, Tenho uma planilha com alguns dados básicos (Nome, data e etc) e gostaria de fazer um listview em uma planilha Já tentei várias vezes e não obtive éxito. Alguém poderia me ajudar?
  7. @Patropi Você poderia me dar uma ajuda nessa?
  8. @Márcio Rodrigues Quanto a parte da transferência, te mandei um exemplo onde isso ocorre. No caso, eu transferi primeiro e depois acrescentei, pelo formulário, um novo dado que, pela classificação por data, ficou entre os que já foram enviados e, por conseguinte, não foi transferido. Após isso, ao solicitar a transferência, a ultima linha (Que já tinha sido transferida) foi novamente enviada para a pasta correspondente. O que proponho é que não hajam planilhas por dia e que haja somente uma planilha. Onde a transferência esta atrelada a data atual, isso porque preencho-a com lançamentos futuros e presentes todos os dias. Agradeço suporte
  9. Olá @Márcio Rodrigues, desculpa a demora. Só vi hoje, perdão. A ideia é exatamente essa, porém eu encontrei alguns bugs. A planilha classifica todos os dados por data, então se alimentá-la hoje(01) com os dados de dois dias a frente (03) e, calhar de, no dia seguinte (02), precisar preenchê-la com os dados de amanhã (03), a transferência irá duplicar os ultimos dados da planilha (exemplo do dia 7 anexado). Para isso, acredito que uma formatação condicional deva resolver (porém não tive muito êxito com meu teste). A data da planilha "AGENDAMENTOS" poderia ser transferida para a célula "A2" de todas as planilhas e, junto a isso, que somente os dados da data atual sejam enviados para a planilha "1"? Pois dessa forma, só usaríamos uma única planilha para todos os dados, tendo em vista que esta é um formulário. A última é, aparentemente, simples. Toda vez que abro a planilha e preencho o formulário no campo "Data" ou "Horário", o num lock é desativado. Sei que é muita coisa, mas é possível me ajudar nessa?? Teste 34 v1.7z
  10. Exatamente @Márcio Rodrigues, e assim para cada dia. Porém, não todos os registros, somente o Nome, Data, Horário, Origem e destino e que estes sejam direcionados para o célula corresponde nas outras planilhas
  11. Um exemplo da planilha. Ps: também pode ser feito de modo a gerar um relatório por data, contendo o nome, origem, destino e data no mesmo layout das planilhas numeradas Ta certo agora @Patropi ? Teste 34.zip
  12. Olá a todos, essa é a minha primeira postagem então espero estar fazendo certo rs. Pois bem, vamos lá. Tenho uma planilha (BD)com informações de data, hora, passageiro, origem e destino (com lançamentos presentes e futuros) e preciso que estas sejam, automaticamente, transferidas para uma outra planilha(dentro do mesmo arquivo) de acordo com a data, porém cada data tem sua própria planilha e em células diferentes, exemplo, para o dia 11/07/2018 existe uma outra planilha de nome "11" e assim sucessivamente. Espero que possam me ajudar. Abraços

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

×