Início
gilberto.vale 16/1/2015, 16:23
Boa tarde,
gostaria de saber se teria como eu fazer uma programação em VBA que grave em uma consulta ou tabela mesmo os dados replicados de uns registros? Os registros sao seguimentos de tamanhos de faixa solo (chão) em coordenadas. A chave primária é a combinação YXZ, a qual nunca se repete na tabela, porém nesta consulta ou proxima tabela que quero gerar, ela se duplicará.
Tenhos estes dados brutos:gostaria de saber se teria como eu fazer uma programação em VBA que grave em uma consulta ou tabela mesmo os dados replicados de uns registros? Os registros sao seguimentos de tamanhos de faixa solo (chão) em coordenadas. A chave primária é a combinação YXZ, a qual nunca se repete na tabela, porém nesta consulta ou proxima tabela que quero gerar, ela se duplicará.
Faixa IdSegmento Y X Z
659 5816 8365779.78 652321.37 717.42
659 5816 8365779.69 652321.35 717.81
659 5817 8365779.78 652321.47 718.28
659 5818 8365779.63 652321.48 718.68
659 5819 8365779.59 652321.45 719.11
659 5820 8365779.47 652321.52 719.58
659 5821 8365779.54 652321.63 720.03
659 5822 8365779.57 652321.81 720.54
660 5823 8365783.58 652323.62 717.64
660 5823 8365783.42 652323.53 717.21
660 5824 8365783.47 652323.57 718.11
660 5825 8365783.53 652323.61 718.59
660 5826 8365783.44 652323.55 719.05
660 5827 8365783.35 652323.47 719.58
660 5828 8365783.33 652323.47 720.07
660 5829 8365783.19 652323.38 720.62
e eu necessito que se organize da seguinte forma com as condições: cada IdSeguimento tem de ter uma coordenada de inicio e fim sendo que o início dela será o final da anterior, porém esta replicação tem de respeitar o numero da Faixa, pois cada faixa está em um local diferente. Ou seja, tranformando em padrão lógico seria:
- Se o número da faixa e o IdSegmento já tiverem relativos números duplicados não realizar nada.
- Se o número da faixa continuar o mesmo porém o IdSegmento não possuir duplicação então será criado um novo registro com os mesmos dados de XYZ do ultimo IdSegmento anterior da mesma Faixa em que a coordenada Z for a maior.
Depois a tabela resultado deverá ficar assim:
Faixa IdSegmento Y X Z
659 5816 8365779.78 652321.37 717.42
659 5816 8365779.69 652321.35 717.81
659 5817 8365779.69 652321.35 717.81
659 5817 8365779.78 652321.47 718.28
659 5818 8365779.78 652321.47 718.28
659 5818 8365779.63 652321.48 718.68
659 5819 8365779.63 652321.48 718.68
659 5819 8365779.59 652321.45 719.11
659 5820 8365779.59 652321.45 719.11
659 5820 8365779.47 652321.52 719.58
659 5821 8365779.47 652321.52 719.58
659 5821 8365779.54 652321.63 720.03
659 5822 8365779.54 652321.63 720.03
659 5822 8365779.57 652321.81 720.54
660 5823 8365783.58 652323.62 717.64
660 5823 8365783.42 652323.53 717.21
660 5824 8365783.42 652323.53 717.21
660 5824 8365783.47 652323.57 718.11
660 5825 8365783.47 652323.57 718.11
660 5825 8365783.53 652323.61 718.59
660 5826 8365783.53 652323.61 718.59
660 5826 8365783.44 652323.55 719.05
660 5827 8365783.44 652323.55 719.05
660 5827 8365783.35 652323.47 719.58
660 5828 8365783.35 652323.47 719.58
660 5828 8365783.33 652323.47 720.07
660 5829 8365783.33 652323.47 720.07
660 5829 8365783.19 652323.38 720.62
Tentei fazendo da seguinte forma, para saber se o canal já estava duplicado, eu tentei criar um índice coluna de comparação, mas não deu certo a forma de preencher estes dados para salvar em uma nova tabela é que não sei também.
Exemplo.xlsx