VBA - Copiar e Colar apenas uma parte da palavra

jcgmcs · 30 de janeiro de 2015

Boa noite a todos,

Ajuda pra fazer macro Copiar apenas uma parte da palavra e a colar em outra celula.

Preciso que neste intervalo de AP5:BK5, o código localize a palavra "trabalho/Out14" e a cole em BV5 apenas como "Out/14"

OBs: sem aspas

É pra Excel 2003

Grato a todos!!

Basole · 30 de janeiro de 2015

Segue a macro de acordo c/ as informações q passou:

abx.

Sub ProcInAP_BK()
Dim rng As Range
With ActiveSheet
Dim ProcVl As String
ProcVl = "*" & "trabalho/Out14" & "*"
Set rng = .Range("ap5:bk5").Find(What:=ProcVl, LookIn:=xlValues, LookAt:=xlPart, _
MatchCase:=False, SearchFormat:=False)
If Not rng Is Nothing Then
.[bv5] = Right(rng.Value, 6)
.[bv5] = Mid(.[bv5].Value, 2, 3) & "/" & Right(.[bv5].Value, 2)
Else
MsgBox ProcVl & " nao encontado", 64, "Aviso"
Exit Sub
End If
End With
End Sub

jcgmcs · 30 de janeiro de 2015

Eaeee Basoleee, beleza veii!!!

tão, preciso que a macro execute automático ao teclar Enter neste intervalo AP:BK

Abraçoo!!

Basole · 30 de janeiro de 2015

Nao como voce, mas vamo tentando...kkkk

vee ai agora:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("ap5:bk5")) Is Nothing Then
Dim rng As Range
With ActiveSheet
Dim ProcVl As String
ProcVl = "*" & "trabalho/Out14" & "*"
Set rng = .Range("ap5:bk5").Find(What:=ProcVl, LookIn:=xlValues, LookAt:=xlPart, _
MatchCase:=False, SearchFormat:=False)
If Not rng Is Nothing Then
.[bv5] = Right(Trim(rng.Value), 6)
.[bv5] = Mid(.[bv5].Value, 2, 3) & "/" & Right(.[bv5].Value, 2)
Else
MsgBox ProcVl & " nao encontado", 64, "Aviso" ' del esta linha p/ cancel a msg
Exit Sub
End If
End With
End If
End Sub

jcgmcs · 30 de janeiro de 2015

Basole, É nois de novo!! Rsss

Viajei um pouco nas ideia aqui e comi bronha num detalhe!! Seguinte, na verdade vou precisar que este intervalo AP5:BK5 seja assim, AP5 até BK999 e BV5 que seja tbém até BV999. Não sei se fui claro, mas segue anexo, planilha com algumas linhas de dados e resultados que inseri manualmente Ok!!

E vamo q vamo!! Rsss

Copiar parte da palavra (VBA).xls

DJunqueira · 3 de fevereiro de 2015

você poderia fazer isso com uso de função, interessa?

Outra questão, cada uma das células já indica mês e ano, porque não substituir o texto por uma cor na célula? você simplesmente colocaria um número (1) e com base neste número a formatação condicional iria colorizar.

jcgmcs · 3 de fevereiro de 2015

Tarde Junqueira, veii qualker ajuda é bem vinda. quero ver sim essa sua função, como funciona!!

Quanto a Cor, é o seguinte, não daria certo porque, preciso sim, que tenha essas referencias OUT/14, pois todas essas informações, terão de ser lidas nas ComboBox doss formuláriosss tndeu!!

Abraço e no aguardo...

DJunqueira · 3 de fevereiro de 2015

Na linha 4 eu, particularmente, prefiro utilizar a função SOMARPRODUTO(), como abaixo:

=SOMARPRODUTO((MÊS(BY5:BY$46)=4)*(ANO(BY5:BY$46)=2013))

Mas na realidade você está procurando saber quantas células abaixo da linha 4 tem texto por coluna, não precisaria especificar tanto a fórmula.

Funções mais simples como:

=CONT.VALORES(BY5:BY47)

ou

=CONT.SE(BY5:BY46;"="&BY3&"/13")

poderiam dar conta do recado.

Seja como for uma solução utilizando funções está na planilha anexa.

Copiar parte da palavra.xls

jcgmcs · 4 de fevereiro de 2015

Tarde Junqueira, beleza!!

Muito boa essa sua formula: =SE(ÉERROS(PROCH("Contato/"&BV$3&"13";$AP5:$BK5;1;0));"";MAIÚSCULA(BV$3)&"/13")

É exatamente o resultado que quero, Porém não to conseguindo adaptar essa formula alterando o "Contato" para "enviada"

Abraço e no Aguardo....

DJunqueira · 4 de fevereiro de 2015

Ok, mas eu não entendi nem quando nem onde essa mudança ocorre.

jcgmcs · 4 de fevereiro de 2015

Ok, mas eu não entendi nem quando nem onde essa mudança ocorre.

É simples Junqueira!!

No exemplo eu coloquei Contato/Jan13, mas na minha planilha quero usar enviada/Jan13 tndeu!!

o que acontece é isso:

Quando copio essa formula =SE(ÉERROS(PROCH("Contato/"&BV$3&"13";$AP5:$BK5;1;0));"";MAIÚSCULA(BV$3)&"/13")

pra celula BV5, o valor não aparece. A formula fica como se fosse texto, como se tirasse o sinal de = tndeu!!

valeu!!

DJunqueira · 5 de fevereiro de 2015

o que acontece é isso:

Quando copio essa formula pra celula BV5, o valor não aparece. A formula fica como se fosse texto, como se tirasse o sinal de = tndeu!!

valeu!!

P/ pular essa limitação (tem um jeito de corrigir isso q não estou lembrando. Esse problema veio com sua planilha) copie e cole como fórmula ao invés de arrastar.