Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
#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
#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
#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ª
#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.
#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 ?
#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
"
#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
#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.
#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 !
#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?
#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>
#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?
#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 ?
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord