Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por FernandoAC 28 Ago 2016 às 23:35
Membro 1 Estrela
Mensagens: 46
Reputação: 0
#14494
Pessoal Bom dia, Boa Tarde, Boa Noite!
Preciso de uma ajuda que vai facilitar muito o desenvolvimento de uma planilha para o meu trabalho.
Bom eu pretendo copiar um texto e colar na planilha do Excel e la excluir determinadas Frases..
Frase : Pets - A Vida Secreta dos Bichos - dub. - L. - 17h / 18h / 19h. 6ª 20h. Sáb. 22h. Dom. 17h. Em 3D 13h / 15h20 / 17h40.
Está é uma parte do texto pretendo Copiar esse texto jogar no Excel e não sei uma macro ou uma formula Simples ele consegue apagar algumas informações no meio do texto. Vamos supor que eu jogue esse texto na celula A1 então eu queria que a celula A2 removesse "Sáb. 22h." ficaria assim:
Pets - A Vida Secreta dos Bichos - dub. - L. - 17h / 18h / 19h. 6ª 20h. Dom. 17h. Em 3D 13h / 15h20 / 17h40.
na celula A3 removesse "Dom. 17h".
Pets - A Vida Secreta dos Bichos - dub. - L. - 17h / 18h / 19h. 6ª 20h. Sáb. 22h. Em 3D 13h / 15h20 / 17h40.

Podem me Ajudar
Por FernandoAC 28 Ago 2016 às 23:36
Membro 1 Estrela
Mensagens: 46
Reputação: 0
#14495
Pessoal Bom dia, Boa Tarde, Boa Noite!
Preciso de uma ajuda que vai facilitar muito o desenvolvimento de uma planilha para o meu trabalho.
Bom eu pretendo copiar um texto e colar na planilha do Excel e la excluir determinadas Frases..
Frase : Pets - A Vida Secreta dos Bichos - dub. - L. - 17h / 18h / 19h. 6ª 20h. Sáb. 22h. Dom. 17h. Em 3D 13h / 15h20 / 17h40.
Está é uma parte do texto pretendo Copiar esse texto jogar no Excel e não sei uma macro ou uma formula Simples ele consegue apagar algumas informações no meio do texto. Vamos supor que eu jogue esse texto na celula A1 então eu queria que a celula A2 removesse "Sáb. 22h." ficaria assim:
Pets - A Vida Secreta dos Bichos - dub. - L. - 17h / 18h / 19h. 6ª 20h. Dom. 17h. Em 3D 13h / 15h20 / 17h40.
na celula A3 removesse "Dom. 17h".
Pets - A Vida Secreta dos Bichos - dub. - L. - 17h / 18h / 19h. 6ª 20h. Sáb. 22h. Em 3D 13h / 15h20 / 17h40.

Podem me Ajudar
Avatar do usuário
Por Reinaldo 28 Ago 2016 às 23:58
Membro 4 Estrelas
Mensagens: 335
Reputação: 190
#14498
Creio que deva avaliar a utilização da função Substituir.
Algo +/- assim =SUBSTITUIR(A1;"Sáb. 22h.";"")
Por FernandoAC 29 Ago 2016 às 00:12
Membro 1 Estrela
Mensagens: 46
Reputação: 0
#14502
Obrigado pela ajuda porém nem sempre vai ser "Dom. 17h" vai mudar muito pode ser "Dom 20h / 22h" pode ser diversos valores... Se tivesse um jeito de ele localizar a Palavra Dom. e apagar até o próximo ponto final seria perfeito
Por FernandoAC 29 Ago 2016 às 00:59
Membro 1 Estrela
Mensagens: 46
Reputação: 0
#14504
Desculpa sou novo e não sei muito bem como poderia resolver meu problema.. Minha versão é 2010, não tem um site o texto chega por email..
por exemplo eu tenho que separar programação dos cinemas de cada dia .. um filme vai ter um horário x na 2ª e outro horário y na 3ª porém outro filme vai ter um horário x na 2ª e outro na 3ª
Avatar do usuário
Por Deciog 29 Ago 2016 às 09:22
Membro 5 Estrelas
Mensagens: 666
Reputação: 323
#14507
FernandoAC

Olha se é assim que desejas

Décio
Avatar do usuário
Por cyllio 29 Ago 2016 às 12:22
Membro 1 Estrela
Mensagens: 28
Reputação: 4
#14518
Fernando,
A solução do Decio acho que te atende sem necessidade de VBA. Basta trocar os parâmetros conforme sua necessidade, mas caso queira acabar de uma vez por todas com qualquer problema de extração eu tenho uma fórmula que pode te ajudar no arquivo anexo.
Ative as macros e clique no botão para registrar a fórmula permitindo a exibição da ajuda (dica que consegui aqui mesmo com nosso amigo AlexandreVBA) e em seguida observe a fórmula exemplificada na área laranja.
Para melhor visualização dos parâmetros solicitados selecione alguma dessas células com a fórmula e em seguida clique no botão Fx do Excel.
Guarde essa fórmula pois certamente precisará usar de novo.
Por FernandoAC 29 Ago 2016 às 15:02
Membro 1 Estrela
Mensagens: 46
Reputação: 0
#14526
cyllio escreveu:Fernando,
A solução do Decio acho que te atende sem necessidade de VBA. Basta trocar os parâmetros conforme sua necessidade, mas caso queira acabar de uma vez por todas com qualquer problema de extração eu tenho uma fórmula que pode te ajudar no arquivo anexo.
Ative as macros e clique no botão para registrar a fórmula permitindo a exibição da ajuda (dica que consegui aqui mesmo com nosso amigo AlexandreVBA) e em seguida observe a fórmula exemplificada na área laranja.
Para melhor visualização dos parâmetros solicitados selecione alguma dessas células com a fórmula e em seguida clique no botão Fx do Excel.
Guarde essa fórmula pois certamente precisará usar de novo.


Meu ficou muito show porém de um problema.. pelo oq eu entendi eu tenho que declarar onde o texto vai parar de excluir eu queria que ele excluir automaticamente, tem como fazer isso ?
Por FernandoAC 29 Ago 2016 às 15:09
Membro 1 Estrela
Mensagens: 46
Reputação: 0
#14527
Deciog escreveu:FernandoAC

Olha se é assim que desejas

Décio


Oi Decio então problema que vai variar os carácter que vão ser excluídos... Por exemplo quando fui apagar 6ª ficou "Pets - A Vida Secreta dos Bichos - dub. - L. - 17h / 18h / 19h. b. 22h. Dom. 17h. Em 3D 13h / 15h20 / 17h40" ou seja cortou o "Sáb."e o certo seria ficar assim "Pets - A Vida Secreta dos Bichos - dub. - L. - 17h / 18h / 19h. Sáb. 22h. Dom. 17h. Em 3D 13h / 15h20 / 17h40
"
Avatar do usuário
Por Deciog 29 Ago 2016 às 15:14
Membro 5 Estrelas
Mensagens: 666
Reputação: 323
#14528
FernandoAC

Obrigado pelo retorno.

Coloca uns 10 exemplo dos textos os mais possível que acontece para que posso fazer a formula mais correta

Décio
Avatar do usuário
Por cyllio 29 Ago 2016 às 16:35
Membro 1 Estrela
Mensagens: 28
Reputação: 4
#14529
FernandoAC escreveu:Meu ficou muito show porém de um problema.. pelo oq eu entendi eu tenho que declarar onde o texto vai parar de excluir eu queria que ele excluir automaticamente, tem como fazer isso ?


Bom, a fórmula é genérica. Qualquer fórmula que você use vai exigir um parâmetro. Se esse parâmetro for muito variável, ou seja, se existirem muitas variações qq fórmula se torna inviável e remover manualmente passará a ser a única opção.
Na fórmula q te enviei você pode capturar qq texto de uma referência desde q informe corretamente o padrão. Nos dois exemplos q enviei vc vê q funcionou.
Agora se quer realmente excluir direto também pode, desde que informe sempre o parâmetro correto. Dá uma olhada nesse outro exemplo anexo.
Por FernandoAC 29 Ago 2016 às 17:31
Membro 1 Estrela
Mensagens: 46
Reputação: 0
#14536
Pessoal vou postar uma planilha com exemplos de 3 linhas.. toda 5ª recebo mais de 500 linhas iguais essa que são programações do cinema que serão exibida durante a semana.. tenho que separar Horários das programações para cada dia..
2ª tem um horario 3ª outro e assim por diante porém quando pessoal do cinemark ou outra fonte manda pra gente manda a linha com a programações inteira
Exemplo : Esperando Acordada - 10a. 2ª 16h30 / 18h20. Sáb. 20h / 22h. Dom. 17h / 19h / 21h. 4ª 13h / 15h. - Mercuriales - 18a.- 20h10.

Então cada linha varia os horários o numero de caracteres entre uma condição e outra "Sáb. pode ter 3 horários diferentes ou apenas 1 " .

Preciso muito dessa ajuda mesmo 2 dias inteiros limando as informações de cada linha, se tiver uma forma de automatizar isso consigo fazer em minutos...

Vou mandar uma planilha em anexo

Obrigado pela atenção. Muito obrigado mesmo !
Por BrunoSP 29 Ago 2016 às 18:55
Membro 1 Estrela
Mensagens: 44
Reputação: 10
#14541
Olá,,, da pra fazer o que você precisa... mas preciso de um banco de dados maior... com umas 40 linhas.
Uma OBS: No anexo, na parte que você informa "Deveria ficar assim ... ", a informação perdeu a lógica... em comparação com a informação acima... tem como vc enviar os dados virgens para tratamento?
Por FernandoAC 29 Ago 2016 às 19:24
Membro 1 Estrela
Mensagens: 46
Reputação: 0
#14542
BrunoSP escreveu:Olá,,, da pra fazer o que você precisa... mas preciso de um banco de dados maior... com umas 40 linhas.
Uma OBS: No anexo, na parte que você informa "Deveria ficar assim ... ", a informação perdeu a lógica... em comparação com a informação acima... tem como vc enviar os dados virgens para tratamento?

Vou mandar uma pequena parte do shop... Primeiro vem o filme depois o horarios.. quando não tem nenhuma especificação "Sáb., Dom. 3ª" somente o horários significa que sera exibido durante a semana inteira os mesmos horarios


<CW-40><CP5.8><CS5.5><CL5.8><IP0><PS0.5,0><CF691><CO.PRICADVERME>SHOPPINGS<CO></CF><QA0>
<SC343,72><CF663>Anália Franco - UCI</CF><QA0>
<CF660>Av. Regente Feijó, 1759, Vl Regente Feijó. 2164-7790. R$ 18/R$ 24 (3D R$ 26/R$ 30; Imax R$ 29/R$ 33; Imax 3D R$ 43). <NO1>
<NO><CP4.5><SC343,108></CP> Imax (382 lug.). <NO1><TB><NO>Ben-Hur - 3D - dub. - 14a. - <NO1><TB><NO>18h45. Legendado 21h20. 6ª e sáb. + 23h55 . <NO1><q><NO>Star Trek: Sem Fronteiras - 3D - 12a. - <NO1><TB><NO>Sáb. 21h20. <NO1><q><NO>Pets - A vida secreta dos bichos - 3D - dub. - L. - <NO1><TB><NO>13h30 / 15h30. <NO1>
<NO><CP4.5><SC343,108></CP> 2 (308 lug.). <NO1><TB><NO>Perfeita é a Mãe - 14a. - <NO1><TB><NO>6ª e sáb. 23h59. <NO1><q><NO>Pets - A vida secreta dos bichos - 3D - dub. - L. - <NO1><TB><NO>14h / 16h / 18h / 20h / 22h. <NO1>
<NO><CP4.5><SC343,108></CP> 3 (242 lug.). <NO1><TB><NO>A Era do Gelo: O Big Bang - dub. - L. - <NO1><TB><NO>13h50. <NO1><q><NO>Esquadrão Suicida - 3D - dub. - 14a. - <NO1><TB><NO>18h35. Legendado 16h / 21h10. 6ª e sáb. + 23h45. <NO1>
<NO><CP4.5><SC343,108></CP> 4 (120 lug.). <NO1><TB><NO>Procurando Dory - dub. - L. - <NO1><TB><NO>13h05. <NO1><q><NO>Nerve - Um jogo sem regras - dub. - 12a. - <NO1><TB><NO>15h20 / 19h40. Legendado 17h30 / 21h50. 6ª e sáb. + 23h59. <NO1>
<NO><CP4.5><SC343,108></CP> 5 (132 lug.). <NO1><TB><NO>Águas Rasas - dub. - 14a. - <NO1><TB><NO>13h / 18h20. Legendado 17h25 / 21h15. 6ª e sáb. + 23h10. <NO1>
<NO><CP4.5><SC343,108></CP> 6 (239 lug.). <NO1><TB><NO>A Lenda de Tarzan - dub. - 12a. - <NO1><TB><NO>13h05. <NO1><q><NO>O Bom Gigante Amigo - dub. - L. - <NO1><TB><NO>14h55. <NO1><q><NO>Esquadrão Suicida - dub. - 14a. - <NO1><TB><NO>15h20 / 17h55. Legendado 20h30. 6ª e sáb. + 23h05. <NO1>
<NO><CP4.5><SC343,108></CP> 7 (418 lug.). <NO1><TB><NO>Pets - A vida secreta dos bichos - dub. - L. - <NO1><TB><NO>13h / 15h / 17h05 / 19h05 / 21h05. Legendado 6ª e sáb. 23h15. <NO1>
<NO><CP4.5><SC343,108></CP> 8 (295 lug.). <NO1><TB><NO>Ben-Hur - dub. - 14a. - <NO1><TB><NO>13h10 / 18h20. Legendado 15j45 / 20j55. 6ª e sáb. + 23h30. <NO1>
<NO><CP4.5><SC343,108></CP> 9 (203 lug.). <NO1><TB><NO>Quando as Luzes se Apagam - dub. - 14a. - <NO1><TB><NO>13h20 / 17h. Legendado 15h10 / 18h50. 6ª e sáb. + 23h. <NO1><q><NO>Perfeita é a Mãe - 14a. - <NO1><TB><NO>20h50. <NO1>
<NO>
<SC343,72><CF663>Boavista</CF><QA0>
<CF660>R. Borba Gato, 59, Sto Amaro. 5547-6060. R$ 12/R$ 16 (6ª a dom. R$ 17/R$ 19; 3D R$ 17/R$ 23). <NO1>
<NO><CP4.5><SC343,108></CP> 1 (183 lug.). <NO1><TB><NO>Pets - A vida secreta dos bichos - dub. - L. - <NO1><TB><NO>15h / 17h / 19h10 / 21h10 . <NO1>
<NO><CP4.5><SC343,108></CP> 2 (330 lug.). <NO1><TB><NO>Pets - A vida secreta dos bichos - 3D - dub. - L. - <NO1><TB><NO>15h50 / 17h50 / 19h50. Sáb. e dom. + 13h50. <NO1><q><NO>Esquadrão Suicida - 3D - dub. - 14a. - <NO1><TB><NO>21h45. <NO1>
<NO><CP4.5><SC343,108></CP> 3 (118 lug.). <NO1><TB><NO>Esquadrão Suicida - dub. - 14a. - <NO1><TB><NO>16h30 / 19h / 21h30. Sáb. e dom. + 14h. <NO1>
<NO><CP4.5><SC343,108></CP> 4 (95 lug.). <NO1><TB><NO>Ben-Hur - dub. - 14a. - <NO1><TB><NO>21h40. <NO1><q><NO>Águas Rasas - dub. - 14a. - <NO1><TB><NO>15h45 / 17h40 / 19h40. <NO1><q><NO>Nerve - Um jogo sem regras - dub. - 12a. - <NO1><TB><NO>Sáb. e dom. 13h40. <NO1>
<NO><CP4.5><SC343,108></CP> 5 (95 lug.). <NO1><TB><NO>Nerve - Um jogo sem regras - dub. - 12a. - <NO1><TB><NO>19h15 / 21h20. <NO1><q><NO>Carrossel 2 - O Sumiço de Maria Joaquina - L. - <NO1><TB><NO>15h15 / 17h15. <NO1>
<NO>
<SC343,72><CF663>Bourbon-Espaço Itaú Pompeia-Imax</CF><QA0>
<CF660>R. Turiaçu, 2100, Perdizes. 3673-3949. R$ 50 (3ª R$ 38). <NO1>
<NO><CP4.5><SC343,108></CP> - (269 lug.). <NO1><TB><NO>Pets - A Vida Secreta dos Bichos - 3D - L. - <NO1><TB><NO>13h40 / 15h40 / 17h40 / 19h40. <NO1><q><NO>Ben-Hur - 3D - 14a. - <NO1><TB><NO>21h30. <NO1><q><NO>Star Trek: Sem Fronteiras - 3D - 12a. - <NO1><TB><NO>Sáb. 23h50. <NO1>
<NO>
<SC343,72><CF663>Bourbon-Espaço Itaú Pompeia</CF><QA0>
<CF660>R. Turiaçu, 2100, Perdizes. 3673-3949. R$ 28/R$ 34 (4ª R$ 24; 3D R$ 32/R$ 37). . <NO1>
<NO><CP4.5><SC343,108></CP> 1 (209 lug.). <NO1><TB><NO>Ben-Hur - 3D - dub. - 14a. - <NO1><TB><NO>13h30 / 18h30. Legendado 16h / 21h. Sáb. + 23h30. <NO1>
<NO><CP4.5><SC343,108></CP> 10 (58 lug.). <NO1><TB><NO>Jason Bourne - 14a. <NO1><TB><NO>- 21h30. Sáb. + 0h. <NO1><q><NO>Lolo - O Filho da Minha Namorada - 14a. <NO1><TB><NO>- 13h30 / 15h30 / 17h30 / 19h30. <NO1>
<NO><CP4.5><SC343,108></CP> 2 (198 lug.). <NO1><TB><NO>Pets - A Vida Secreta dos Bichos - L. <NO1><TB><NO>- 14h / 16h / 18h / 20h. Legendado 22h. Sáb. + 23h40. <NO1>
<NO><CP4.5><SC343,108></CP> 3 (198 lug.). <NO1><TB><NO>Pets - A Vida Secreta dos Bichos - 3D - dub. - L. - <NO1><TB><NO>13h30 / 15h30 / 17h30 / 19h30. Legendado 21h30. Sáb. + 23h30. <NO1>
<NO><CP4.5><SC343,108></CP> 4 (209 lug.). <NO1><TB><NO>O Bom Gigante Amigo - 3D - dub. - L. - <NO1><TB><NO>13h30 / 16h. <NO1><q><NO>Esquadrão Suicida - 3D - dub. - 14a. - <NO1><TB><NO>18h30. Legendado 21h. Sáb. + 23h30. <NO1>
<NO><CP4.5><SC343,108></CP> 5 (198 lug.). <NO1><TB><NO>Quando as Luzes se Apagam - dub. - 14a. <NO1><TB><NO>- 13h30 / 17h30. Legendado 15h30 / 19h30 / 21h30. Sáb. + 23h30. <NO1>
<NO><CP4.5><SC343,108></CP> 6 (198 lug.). <NO1><TB><NO>Esquadrão Suicida - dub. - 14a. <NO1><TB><NO>- 14h0 / 19h. 3ª 19h. Legendado 16h30 / 21h30. Sáb. + 0h. 3ª 21h30. <NO1>
<NO><CP4.5><SC343,108></CP> 7 (117 lug.). <NO1><TB><NO>Nerve - Um Jogo Sem Regras - 12a. <NO1><TB><NO>- 13h20 / 15h50 / 17h50 / 19h50 / 21h50. Sáb. + 0h. <NO1>
<NO><CP4.5><SC343,108></CP> 8 (117 lug.). <NO1><TB><NO>Águas Rasas - 14a. <NO1><TB><NO>- 13h50 / 15h50 / 17h50 / 19h50 / 21h50. Sáb. + 23h50. <NO1>
<NO><CP4.5><SC343,108></CP> 9 (117 lug.). <NO1><TB><NO>Café Society - Verificar. <NO1><TB><NO>- 13h40 / 15h40 / 17h40 / 19h40 / 21h40. Sáb. + 23h40. <NO1>
Por BrunoSP 29 Ago 2016 às 19:46
Membro 1 Estrela
Mensagens: 44
Reputação: 10
#14545
Agora entendi... e os dados tb estão ok, voce pode trabalhar com alguns delimitadores, e com o localizar... .. bom e você pretende apagar alguns dados aleatórios... como será isso? Tipo, do Cinema Bourbon, Imax, Filmes Pets, apagar o horário 13:30... ou apagar todos os horários 13:30 de todos os filmes? como vc irá trabalhar esses dados?
Se for algo massivo fica mais fácil... se não o que dá pra fazer é separar os dados e depois trabalhar eles com filtro entende?
Por FernandoAC 29 Ago 2016 às 20:04
Membro 1 Estrela
Mensagens: 46
Reputação: 0
#14546
BrunoSP escreveu:Agora entendi... e os dados tb estão ok, voce pode trabalhar com alguns delimitadores, e com o localizar... .. bom e você pretende apagar alguns dados aleatórios... como será isso? Tipo, do Cinema Bourbon, Imax, Filmes Pets, apagar o horário 13:30... ou apagar todos os horários 13:30 de todos os filmes? como vc irá trabalhar esses dados?
Se for algo massivo fica mais fácil... se não o que dá pra fazer é separar os dados e depois trabalhar eles com filtro entende?

Cada filme tem sua programão especifica dependendo do dia da semana ... então seria bom isso filtrar toda essa programação e tirar todos os "Sáb." outro filtro e tirar todos os "Dom."
Será que é possível fazer isso ?