isabela queiroz

@Midori então, eu fiz assim por enquanto ' Macro1 Macro ' ' Sheets("Sheet1").Select ActiveSheet.Range("$A$1:$C$349").AutoFilter Field:=3, Criteria1:= _ "250G8 - MALDIVES 6U" Range("C4").Select ActiveCell.FormulaR1C1 = "250G8 - MALDIVES 6U" Sheets("TEMPLATE_PESO_MEDIDA").Select ActiveSheet.Range("$A$2:$AQ$48").AutoFilter Field:=2, Criteria1:= _ "MALDIVES 6U 250" 'procurando no tamplate a familia Range("AD31:AQ31").Select 'copiando as info da familia Selection.Copy Sheets("Sheet1").Select Range("D4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'colando as info em sheet1 sem formatação Application.CutCopyMode = False '---------------------------------------------------------------------------- Range("D4").Select Range(Selection, Selection.End(xlToRight)).Select 'seleciona ate a informação da linha Application.CutCopyMode = False 'copia a linha Selection.Copy Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select 'seleciona ate a ultima informção da tabela Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'cola sem formatação End Sub to indo na base do ctrl c ctrl v só da informação que necessito da familia, o problema agora ta sendo que ta copiando pra tabela inteira, não somente as informaçoes que eu trouxe @Midori sobre o numero de colunas, acredito que tenham me solicitado assim porque as vezes as tabelas podem vir com mais colunas de informaçoes antes, não sei porque mudariam assim mas foi o que me solicitaram.

esse comando procb é por celula ou tem como fazer usando o FIND? porque o numero de colunas podem mudar conforme o excel que recebo, precisava que fosse feito no vba.

@Midori basicamente isso

@Midoriaqui, algumas informações não estão aparecendo pois elas vem de outras planilhas, não enviei aqui por ser da empresa HP COMP DATA.xlsx

preciso que essas ações sejam automatizadas através do vba: Ir em na planilha que se chama "sheet1" pegar a primeira familia(produto), procurar na coluna familia(produto) da planilha "tamplete_peso_medida"essa é a planilha que se chama "sheet1" essa é a planilha que se chama "tamplate_peso_medida" depois que encontrar copiar todas as informações dela, e jogar na planilha sheet1 sem formatação. Para localizar as colunas, preciso que seja pela opção FIND pois o número de colunas pode mudar no template

@Midori ah sim, perdão pela ignorância, entendo muito pouco de VBA. Obrigada, resolveu aqui!

@Midori não to sabendo arrumar, ta aqui o codigo inteiro, ele ta ficando em um loop esquisito dentro do "do while" basicamente ele faz: Do While ActiveCell.Row <= ultcell.Row If Count = 0 Then End If Loop ta grifado aqui em baixo os locais que ta travando Sub TESTANDDOWHILE() '---------------tudo funciona------------------------ Dim pesquisa As String Dim pesquisadois As String Dim texto As Variant Dim ultcell As Range Dim c As Range Dim firstAddress As String Dim i As Integer Dim w As Worksheet 'dando nome a planilha Dim vRNG As Range 'toda faixa de celula da planilha utilizada pesquisa = "<" pesquisadois = ">" texto = ActiveCell.Text Set w = Sheet2 'dando nome a planilha Set ultcell = Sheet2.Range("M100000").End(xlUp) w.Select 'selecionando w.Range("M2").Select 'selecionando a coluna M '------------escolhendo o <-------------------------------------------------------- Dim Count As Integer Dim Celll As Object Dim N As Integer '--------------FUNCIONANDO aaaaaaaaaa---------------------------------------------------- Do While ActiveCell.Row <= ultcell.Row If Count = 0 Then If pesquisa = "" Then GoTo Done For Each Celll In Selection N = InStr(Celll.Value, pesquisa) While N <> 0 Count = Count + 1 N = InStr(N + 1, Celll.Value, pesquisa) Wend Next Celll '----------------testando o segundo >---------------------------------------------------- If Count = 0 Then If pesquisadois = "" Then GoTo Done For Each Celll In Selection N = InStr(Celll.Value, pesquisadois) While N <> 0 Count = Count + 1 N = InStr(N + 1, Celll.Value, pesquisadois) Wend Next Celll '--------------------------tem que ser aqui se não entra em loop infinito---------------------------------------------------------- If InStr(Celula, "<") And InStr(Celula, ">") Then Call Celula.Replace("<", "") Call Celula.Replace(">", "") End If '----------------------------------------------------------------------------------------------- MsgBox Count1 & Count2 & " Occurrences of " & pesquisa & pesquisadois 'conferindo se achou Done: '-----------------------------FUNCIONA O LOOP------------------------------------------------------------------ ActiveCell.Offset(1, 0).Select texto = ActiveCell.Text End If End If Loop End Sub Sub Macro() Call RemoveCaracteres([A1]) End Sub

preciso fazer um vba para uma planilha com umas descriçoes que tem informações como "CONTAINER FOR IMAGE <COMMERCIAL_SOFTWARE_7.4.1>" porém o aplicativo da minha empresa não reconhece os dados se estiverem com "< >", a ideia é fazer um VBA que resolve o problema removendo esses caracteres, apenas quando aparecerem juntos na celula, se houver a ocorrencia de somente um não precisa remover, segue como pretendo fazer, porém sou iniciante em vba e não sei como fazer o codigo. eu pensei numa lógica assim: identificar se existe o caractere < na descrição, se existir, identificar a posição do caractere identificar se existe o caractere > na descrição, se existir, identificar a posição do caractere depois validar se os 2 ocorrem ao mesmo tempo, se sim, removê-los se não ocorrem ao mesmo tempo não faz nada e começa a analisar a próxima descrição uma variavel para guardar o dado encontrado, mas faria por comparação. Tipo o caractere analisado é iguarl a <? e depois uma outra para fazer a verificação para o >. tendo os dois retornos positivos, eu faria a troca deles, usando a referencia (posição). Ou quem sabe duas variaveis mas apenas retornando a posição deles na frase, se as duas forem maior que zero, faz a troca também.. as informações estão na coluna "M" no "sheet2" exemplo de um codigo que comecei mas não sei pra onde ir depois disso pra fazer ele reconhecer os dois ocrrendo junto, fora que ta apresentando problemas e entrando em loop depois de encontrar as ocorrencias na celula Sub TESTANDDOWHILE() '---------------tudo funciona------------------------ Dim pesquisa As String Dim pesquisadois As String Dim texto As Variant Dim ultcell As Range Dim c As Range Dim firstAddress As String Dim i As Integer Dim w As Worksheet 'dando nome a planilha Dim vRNG As Range 'toda faixa de celula da planilha utilizada pesquisa = "<" pesquisadois = ">" texto = ActiveCell.Text Set w = Sheet2 'dando nome a planilha Set ultcell = Sheet2.Range("M100000").End(xlUp) w.Select 'selecionando w.Range("M2").Select 'selecionando a coluna M Dim Count As Integer Dim Celll As Object Dim N As Integer Do While ActiveCell.Row <= ultcell.Row If Count = 0 Then If pesquisa = "" Then GoTo Done For Each Celll In Selection N = InStr(Celll.Value, pesquisa) While N <> 0 Count = Count + 1 N = InStr(N + 1, Celll.Value, pesquisa) Wend Next Celll If Count = 0 Then If pesquisadois = "" Then GoTo Done For Each Celll In Selection N = InStr(Celll.Value, pesquisadois) While N <> 0 Count = Count + 1 N = InStr(N + 1, Celll.Value, pesquisadois) Wend Next Celll MsgBox Count1 & Count2 & " Occurrences of " & pesquisa & pesquisadois 'conferindo se achou Done: ActiveCell.Offset(1, 0).Select texto = ActiveCell.Text End If End If Loop End Sub

atualmente estou com um PC terrível, no fim da vida, porém eu provavelmente consigo salvar o SSD e o Cooler, tenho uma placa-mãe novinha na caixa (uma da Gigabyte H310M M.2 2.0, Intel LGA 1151). pretendo vender meu i3 9100f por uma graninha e usar essa grana pra comprar uma fonte melhor e um processador suavinho também, qual a possibilidade de eu encontrar essas peças num preço da hora e ainda rodar uns jogos tipo LOL, por exemplo, sem gastar mais de 1k?

@Alex Camus Eu duvido que seja o processador, a temp dele sempre ta abaixo de 35° C e nao faz muito tempo que troquei a pasta térmica Vou dar uma verificada no HD @XDRZ A um tempo eu tinha comprado uma da vx-350w porque a minha tinha queimado ai a de 350 queimou também, então resolvi colocar uma de 500w porque ta difícil. Meu pc começou a desligar sozinho depois que me mudei ai a fonte de 350w queimou e tive que comprar essa @Kleber Peters bom, era principalmente quando abria algo pesado mas de uns tempos pra ca vem desligando com praticamente tudo o que faço sem ser mexer no sistema ou no navegador (que são coisas bem levinhas)

Bem, como disse num tópico recente e meu pc é beeem antiguinho, estava com uns planos de ir transformando ele em um bom pc aos poucos mas a pandemia me deixou desempregada kk então tive que dar uma pausa no plano Atualmente meu pc tem uma placa-mãe da Itautec ST 4344. Eu tenho outra placa-mãe que comprei numa promo (vulgo uma H310m lga 1151 da gigabyte), porém como sei que meu pc é meio estragado tenho medo de colocar ela e estragar também. Comprei recentemente uma fonte de 500w e parece estar tranquila Meu processador é um intel core 2 quad Q9400 (comprei um i3 também mas como sei que é impossível eu colocar ele agora vou deixar ele no canto). Meu maior problema vem sendo o pc desligar as vezes quando abro coisa s muito pesadas ou ele trava bastante, não sei qual é o problema porque tudo parece ok fora o HD entao suponho que ele finalmente chegou ap fim da vida (já que ele é provavelmente de 2011 e tem capacidade de 400gb) Compensa trocar meu HD pra um de 1tb ou nada sera resolvido como imagino?

@NIGHT FALL foi pelo speccy @GuilhermeGB Então, na verdade ele da umas desligada causo abro algo meio pesadinho, tipo um jogo e ou trava bastante se eu abro mais de uma coisa, por exemplo, discord e o navegador junto. Eu suponho que o maior problema dele agora é o disco rigido mesmo porque ele é muuuito antigo mas nao tenho certeza.

Meu pc é beeem antiguinho, estava com uns planos de ir transformando ele em um bom pc aos poucos mas a pandemia me deixou desempregada kk então tive que dar uma pausa no plano Atualmente meu pc tem uma placa-mãe da Itautec ST 4344 a temperatura dela ta chegando a 91°C!! Eu tenho outra placa-mãe que comprei numa promo (vulgo uma H310m lga 1151 da gigabyte), porém como sei que meu pc é meio estragado tenho medo de colocar ela e estragar também. Comprei recentemente uma fonte de 500w e parece estar tranquila Meu processador é um intel core 2 quad Q9400 (a temperatura dele ta média uns 47° C, o cooler dele é meio recente também mas não é dos mais incríveis) E a pergunta é, compensa eu colocar essa placa-mãe já? Minha maior intenção com isso é porque pretendo trocar meu HD pra um de 1tb e se a placa-mãe ja ta aquecendo muito com um de 500gb magine com um de 1tb (Causo o problema esteja tambem no cooler do processador eu tenho um aqui da intel novinho junto com meu i3 que vou trocar quando tiver uma placa de video porque é o i3-9100f)

recomenda alguma por um preço parecido?

@dzeta90 estava pesquisando mas como de placa-mãe é o que menos entendo achei ela boa ta por uns 500

@Aelson Carvalho obrigada, só queria confirmar mesmo pra cometer nenhum erro

Boa tarde, uma placa-mãe Gigabyte H310M M.2 2.0, Intel LGA 1151, mATX, DDR4 suporta uma placa de video MSI NVIDIA GeForce GTX 1050 TI 4G OCV1, 4GB, GDDR5 - GeForce GTX 1050 Ti 4G OCV1?

Pô fiz uma media com o meu namorado juntamos umas peças, tipo kit (placa-mãe, memória RAM e processador) só de início na kabum e deu uns 1.700, ai depois eu ia investir mais, comprar uma placa de video etc

Eai galera, preciso da ajuda de vocês de novo. Irei comprar um pc para games novo, mas meio barato não aqueles de 20 mil, tava querendo um de uns 2mil e pouco, e tava pensando em comprar um ryzer 5 ou um i5 por ai, queria a opinião de alguem que sabe mais sobre, desde ja agradeço!

@Pessoa Aleatoria desde que eu comprei o cooler novo eu fiquei comparando a temperatura de antes e depois e nao vi ela subir muito não, achei que poderia ter alguma coisa a ver com as bios precisarem atualizar mas eu nao sei adicionado 6 minutos depois Agora fui ver e esta um pouco acima do comum mesmo

@Pessoa Aleatoria na verdade não, sempre uso uma coisa de cada vez e mesmo assim ele nao melhorou muito o desempenho ou piorou até

É um Core2 Quad Q9400 2.66ghz 6mb 1333

Então, eu comprei um processador e um cooler também pra não sobrecarregar nada, mas meu pc ficou um pouco mais lento do que antes, estava pesquisando e eu deveria instalar o "AMD Dual Core Optimizer" ou fazer algo do tipo?

@GusGraf Olá! É que na verdade eu estava conversando com o vendedor de um processador Core 2 Quad Q9400 2.66ghz 6mb 1333 Lga 775 e ele qie me disse que se o meu desse 95w tava tudo certo se nao tinha que atualizar pra usar esse processador

estou querendo comprar um novo processador, porém eu fui ver e o TDP do processador que quero comprar é de 95w e o da minha placa é 65w, queria atualizar porém não acho em nenhum lugar a atualização dessa bio, minha placa-mãe: itautec S.A / ST 4344 padrão chipset intel G41 A3 southbridge intel 8280 1gb (ich7/r) bios itautec ST 4344 0100