LaerteB

Oi Basole. Agradeço a sua resposta e o arquivo que enviou com a mudança, estou analisando e testando. Até o momento está como eu precisava, muito obrigado. Amanhã vou analisar melhor o código que foi inserido e alterado (para o meu aprendizado), e como sempre vou informar aqui para que outros que tiverem a mesma dúvida possam utilizar dentro de seu projeto. Valeu e obrigado. Laerte.

Olá Basole! Obrigado por responder e estou disponibilizando o arquivo (rar) com alguns dados para a sua análise. Valeu e no aguardo. Laerte. FORMULARIO CADASTRO E PESQUISA teste.rar

Pessoal, Bom dia!! Não tem ninguém que possa me ajudar?? alguma sugestão? ou dica? Aguardando uma resposta, estou precisando de uma solução logo, pois ainda não estou conseguindo resolver. Agradeço muito. Laerte.

Bom dia Pessoal! No aguardo de uma ajuda, ainda não estou conseguindo. Obrigado. Laerte.

Bom dia Pessoal. Estou com um problema que não consigo resolver (verifiquei em meus livros, na net e nada que solucione), o que estou querendo fazer é o seguinte: Inserir dados da planilha 01 na Listview (até aí já está feito), só que tem três colunas nesta planilha 01 que se refere a respostas de ações tomadas, mas só é preenchida (na linha) uma das três (desta forma uma fica preenchida e as outras duas ficam vazias). Na Listview tem todas as colunas da planilha 01 menos duas (eu deixei somente uma coluna de ação tomada), nesta coluna (na Listview) chamada ações será preenchida com a célula da coluna (das três colunas de ações tomadas) que não estiver vazia, e é neste ponto que não estou conseguindo. Gostaria que vocês pudessem me ajudar a informar como devo proceder para que somente uma das células da plan1 (das três colunas ações) que está preenchida preencha a única coluna de Ação da Listview. Estou anexando as imagens da plan1 e da Listview com os códigos desta Listview abaixo. Private Sub UserForm_Initialize() With ListView1 .Gridlines = True 'Exibe/oculta as linhas da grade .View = lvwReport 'Estilo da Exibição .FullRowSelect = True 'Permite Selecionar uma lista 'Adicona Colunas com seus parametros, neste caso Texto, tamanho e alinhamento .ColumnHeaders.Add Text:="REMESSA", Width:=80, Alignment:=lvwColumnLeft .ColumnHeaders.Add Text:="PEDIDO", Width:=40, Alignment:=lvwColumnCenter .ColumnHeaders.Add Text:="DESTINATÁRIO", Width:=140, Alignment:=lvwColumnCenter .ColumnHeaders.Add Text:="CIDADE", Width:=100, Alignment:=lvwColumnCenter .ColumnHeaders.Add Text:="UF", Width:=20, Alignment:=lvwColumnCenter .ColumnHeaders.Add Text:="OCORRENCIA", Width:=120, Alignment:=lvwColumnCenter .ColumnHeaders.Add Text:="DATA OCORRENCIA", Width:=100, Alignment:=lvwColumnCenter .ColumnHeaders.Add Text:="AÇÃO", Width:=120, Alignment:=lvwColumnCenter End With Call Atualizar End Sub Private Sub Atualizar() Dim Item As ListItem Dim LinhaFinal As Integer Dim i As Integer ListView1.ListItems.Clear LinhaFinal = Plan1.Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To LinhaFinal Set Item = ListView1.ListItems.Add(Text:=Plan1.Cells(i, 2)) Item.SubItems(1) = Plan1.Cells(i, 3) Item.SubItems(2) = Plan1.Cells(i, 4) Item.SubItems(3) = Plan1.Cells(i, 5) Item.SubItems(4) = Plan1.Cells(i, 6) Item.SubItems(5) = Plan1.Cells(i, 7) Item.SubItems(6) = Format(Plan1.Cells(i, 8), "DD MMM YYYY") 'Formatar data do mês com três letras e sem / Item.SubItems(7) = Plan1.Cells(i, 9) Next lb_num_registro.Caption = ListView1.ListItems.Count End Sub Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) 'Clicando no cabeçalho de uma coluna da listview e será ordenado para Ascendente e Descendente With ListView1 .SortKey = ColumnHeader.Index - 1 If .SortOrder = lvwDescending Then .SortOrder = lvwAscending Else .SortOrder = lvwDescending End If .Sorted = True End With End Sub Private Sub bt_relatorio_Click() Worksheets("Relatorio").Activate 'Intervalo das linhas e colunas entre A2 até H150 Worksheets("Relatorio").Range(Cells(2, 1), Cells(150, 8)).Select Selection.ClearContents End Sub Obs: como sou novato em vba estou aprendendo, desta forma gostaria que me dessem um parecer de uma solução para este caso, se eu coloca-se a estrutura If … Then … Else, na linha " Item.SubItems(7) = Plan1.Cells(i, 9)" do preenchimento da Listview para selecionar somente os campos preenchidos na Plan1?? se for por este o método me deem um suporte, pois não sei como fazer isso para três linhas como mencionado acima (agradeceria muito). Agradeço e aguardo uma resposta. Laerte

Boa tarde. Olha o meu forte não é render, mas o que Mr. Paglia disse acima é correto e pode te ajudar muito; só gostaria de acrescentar a você, seria de pensar em adquirir uma fonte um pouco mais potente (para futuras atualizações de seu hardware) e aconselharia uma placa de vídeo da Quadro (NVidia) que são ótimas para CAD e Renderização, sei que são caras mas tem algumas mais baratas (modelos mais antigos) que poderiam de dar um rendimento maior nos seus render. Só que com isso não seria muito bom para os jogos, então pode até deixar esta GTX 1080 sniper no momento, se montar outra máquina poderá adquirir uma Quadro. Boa sorte. Laerte

Pessoal, bom dia. Já instalei o FX-8320e na minha placa-mãe M5A97 EVO (da primeira versão) e ocorreu tudo bem, está funcionando normalmente (em Stock). Qualquer alteração aviso aqui e se fizer algum OC também. Desta forma afirmo que este placa-mãe M5A97 EVO Rev. 1.xx , aceita o FX-8320e (com a BIOS atualizada para a versão 1604). até mais Laerte

Rafael Tuco. Obrigado novamente, é verdade nós que mexemos para fazer alterações rsrs.. bem agora vou abrir o PC e trocar o processador pelo FX-8320e, vamos ver como vai sair. Quando tiver tudo em ordem eu informo como foi e se está tudo OK. Ah vou testar algumas alterações se o sistema ficar estável, e passo aqui se ocorreu tudo bem; para acrescentar mais informações para todos que precisarem. Valeu mesmo, até. Laerte.

Valeu Zopek e Rafael Tuco, eu vou trocar o meu processador antigo pelo FX-8320e, só não consigo entender o porque o pessoal da ASUS informar no e-mail que "CPU citado não suportado...Modelos ausentes da lista acima (modelos se encontram no site), não são suportados, podendo causar mensagens de aviso, instabilidades ou danos aos hardwares envolvidos em curto, médio ou longo prazo de uso..". Será que querem que compre a placa-mãe da versão 2.0?? Vou tentar, espero que não dê instabilidade. Se alguém já passou por isso me avise aqui. Obrigado Zopek e Rafael Tuco, se tiverem mais alguma observação estou ouvindo. **************************************** adicionado 24 minutos depois Pessoal, tenho mais uma dúvida, se a BIOS 1604 não reconhecer completamente esse processador, poderá ter conflito no Boosted P states, pois no modelo FX-8320 é esse: 4000 MHz, 1.425V - / 3700 MHz, 1.4125V e no modelo FX-8320e é esse: 4000 MHz, 1.4125V - / 3500 MHz, 1.225V. Eu teria que mudar esses parâmetros na UEFI da ASUS? Laerte

Olá Rafael Tuco, valeu pela resposta e já tinha visto este link que mencionou antes de comprá-lo (e vários outros e fóruns), por isso decidi comprar esse modelo. Só que no site da ASUS não existe este modelo para a minha placa-mãe que não é da Revisão 2.0 é da 1.xx comprei ela no ano de 2011. Gostaria de saber se a BIOS 1604 que é a última desta placa-mãe serve para ele, que se fosse a da Revisão 2.0 tem outra BIOS que não serviria para a minha placa-mãe (esta da Rev 2.0 serve esse modelo FX-8320e).

Obrigado por responder ZOPEK, então ainda não abri a encomenda, por receio de não poder trocar este processador; desta forma não testei. Gostaria de uma opinião de alguém que já testou ou tem esse processador com esta placa-mãe.

Boa tarde, pessoal. Estou com um problema aqui, comprei o processador FX-8320e (pesquise na net e em fóruns, e diziam que serviria), mas fiquei em dúvida e pesquisei no site da ASUS e lá informa que o processador FX-8320 serviria (com a BIOS atual 1604 que já atualizei), mas não menciona o FX-8320e. Então enviei e-mail para a ASUS e informaram que não serviria por poder ter problemas futuros; só que não me explicaram o porque disso. A placa-mãe é da primeira revisão, mas aceita M3+ e o TDP chega a 125W (atualizei a BIOS para 1604 e o TDP do processador é 95W), então não entendo o motivo de não aceitar este modelo revisado que é o mesmo do FX-8320. Ainda não foi aberto a caixa, só gostaria que vocês me dessem um esclarecimento (pois a ASUS não se pronunciou sobre o meu novo e-mail, sobre esta indagação), porque até um outro fórum da adr******* o pessoal informou que aceitaria esse modelo com o e no final. Me perdoem sobre este esclarecimento, pois queria saber o real motivo de não aceitar. Agradeço a todos que me responderem, mesmo que eu tenha que devolver esse processador e pegar o FX-8320 (só estou muito confuso). Laerte

Olá, Basole Muito obrigado, agora funcionou como eu queria.. eu tenho a tabela de cores, mas a cor amarela número 6 não tinha testado.. o número 27 (amarelo), tem uma tonalidade ligeiramente diferente e não tinha percebido... valeu mesmo. Como sempre faço, estou disponibilizando "abaixo" o código já com a correção da cor, para que se houver outra pessoa com a mesma dificuldade utilizar mudando de acordo com o seu projeto: Sub relatorio() Dim ultimaLinha As Long, i As Long, lin As Long Plan2.Range("A3:D100").ClearContents ultimaLinha = Plan1.Cells(Rows.Count, "d").End(xlUp).Row lin = 3 For i = 4 To ultimaLinha If Plan1.Cells(i, 4).Interior.ColorIndex = 6 Then ' (6 = amarelo) Plan2.Cells(lin, 1) = Plan1.Cells(i, 4) Plan2.Cells(lin, 2) = Plan1.Cells(i, 5) Plan2.Cells(lin, 3) = Plan1.Cells(i, 6) Plan2.Cells(lin, 4) = Plan1.Cells(i, 7) lin = lin + 1 End If Next End Sub Thank You, e uma ótima semana para ti.

Bom dia Pessoal! Estou ainda com dificuldades, como citado na mensagem acima, se alguém tiver alguma sugestão pode responder este tópico.. agradeço muito.

Boa noite, Basole! Obrigado por responder; primeira pergunta é sim, estou disponibilizando abaixo o arquivo teste para vocês verificarem melhor (com dados fictícios e só as colunas principais preenchidas para exemplificar). A Segunda pergunta é não são coloridas por formatação condicional e sim manualmente. https://www.sendspace.com/file/lbrmgn O seu código com alterações, eu implementei, mas novamente deu o mesmo erro que citei antes. Ficarei no aguardo, espero que o arquivo acima ajude.. e agradeço muito. Valeu.

Boa tarde, pessoal! Estou com dificuldades em completar meu código em vba.. o que quero fazer é copiar as linhas em amarelo em outra planilha, mas na planilha (Plan1), tem as cores vermelha e amarela nas linhas. Desta forma eu pesquisei e efetuei estes códigos abaixo, só que não está funcionando: Sub relatorio() Plan2.Range("A3:D100").ClearContents ultimaLinha = Plan1.Cells(Rows.Count, "d").End(xlUp).Row Dim n As ColorScale lin = 3 For i = 4 To ultimaLinha If Plan1.Cells(i, 4) = Interior.ColorIndex = 27 Then Plan2.Cells(lin, 1) = Plan1.Cells(i, 4) Plan2.Cells(lin, 2) = Plan1.Cells(i, 5) Plan2.Cells(lin, 3) = Plan1.Cells(i, 6) Plan2.Cells(lin, 4) = Plan1.Cells(i, 7) lin = lin + 1 End If Next End Sub Verifiquei que na linha If Plan1.Cells(i,4) = Interrior.ColorIndex = 27 Then está dando o erro 424 - O objeto é obrigatório- eu tentei fazer de outras maneiras, mas sem efeito. Gostaria que me dessem uma luz qual maneira para que copie somente as linhas amarelas das colunas 4 a 7 e colocá-las na Plan2 como descrito acima. Agradeço desde já.

Boa tarde, Abner Genesini Teixeira. Como o Vinicius Tanaka informou acima, os preços de hardware estão caindo (espero que não aumente rsrs), e como você gostaria de sugestões sobre uma configuração com preços bons; verifiquei o que você cotou no site citado por ti, e acho que dois itens você poderia ter um melhor custo x beneficio e poderiam ser trocados. Um deles é o HD, você selecionou um de 500 GB, eu aconselharia um de pelo menos 1 TB, para ter mais espaço para jogos, dados e aplicativos (se puder gastar mais, compre sempre um HD de maior capacidade; e se tiver algum sobrando comprar um SSD de pelo menos de 250 GB, além do HD tradicional) eu cotei na Kabum e achei este modelo com um valor a vista menor que o que cotou de 1TB: HD Seagate SATA 3,5´ Desktop HDD 1TB 7200RPM 64MB Cache SATA 6Gb/s - ST1000DM003 O outro seria a Fonte, não conheço essa da Dr.Hank, eu conheço outras marcas muito boas como a Antec, Corsair de W reais. Uma que cotei e achei um preço bom seria a Corsair de 500 W reais no valor a vista menor que o que cotou na Kabum tb; abaixo o modelo: Fonte Corsair CX-500W - CP-9020047-WW 80 Plus Bronze São apenas sugestões, e você deve fazer mais pesquisas para comparar modelos e preços; as lojas que confio (pois compro por elas e até hoje não tive reclamação) a Kabum, Waz e Pichau (são somente sugestões). Até mais, abraços.

Oi, Edson. Agradecido pelo comentário acima, não sabia ainda como usar esse "code" rs.. agora fica com melhor visualização e organização, valeu. Obrigado por me esclarecer sobre o erro ocorrido e como chegou no código acima. Até mais, Thank You!

Bom dia Edson. Nossa agora ficou excelente, não dá mais nenhum erro, o código em macro serviu como uma luva obrigado. Vou estudar mais o seu código para ver o que estava dando esses erros. Quero muito agradecê-lo pela sua ajuda, valeu mesmo. Agora como tinha informado estarei disponibilizando abaixo o código da macro, para que outras pessoas possam utilizá-las (modificando-as de acordo com o seu projeto) caso necessário: ************* Option Explicit Option Compare Text Private Valor As Variant, Interv As Range Private Sub Workbook_Open() DefineRange ActiveSheet Valor = ActiveCell.Value End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) DefineRange Sh Valor = ActiveCell.Value End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not (Sh.Name Like "m[eê]s ##-####") Then Exit Sub DefineRange Sh If Not Intersect(Target, Interv) Is Nothing Then If Target.Cells.Count > 1 Then Target(1, 1).Select Valor = Target(1, 1).Value End If End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not (Sh.Name Like "m[eê]s ##-####") Then Exit Sub DefineRange Sh If Not Intersect(Target, Interv) Is Nothing Then If IsNumeric(Valor) And IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Target.Value + Valor Application.EnableEvents = True End If End If End Sub Sub DefineRange(ws As Worksheet) Set Interv = ws.Range("A4:F4,B13:B14,F13:F39") End Sub

Boa tarde, Emerson Eu que agradeço a sua resposta e fico feliz que serviu o procedimento que lhe informei, estamos aqui para isso. Até a próxima e um bom final de semana.

Boa tarde, Emerson Olha não sei se pode te ajudar e se é o que você quer, mas poderá fazer tipo uma "validação de dados", para não ficar digitando toda vez os mesmos nomes, segue abaixo o caminho: Primeiro clique em Dados, em sequencia em "validação de Dados", subsequente na Aba Configuração colocar "Lista". Segundo na "Fonte" no mesma aba acima, colocar os nomes que citou supermercado;padaria e etc, sempre inserindo o ; entre os nomes. Não se esqueça de marcar na mesma aba configuração "suspenso na célula" se você quiser um menu suspenso quando clicar na célula (aparece quando clicado a célula uma seta na direita, que clicada aparece o menu com os nomes que inseriu na "Fonte"), daí é só escolher o nome que quiser. as outras abas você preenche se quiser. Espero que isso possa te ajudar. ------------------- Esqueci que antes de tudo tem que selecionar a coluna que quer essa "validação de dados" ou no seu caso as células k18 até a K214 (deixar selecionado) daí efetuar as informações acima.

Edson, eu baixei e deixei como estava, dai na planilha 04-2016 em diante começou o segundo erro acima que citei.. bem como tinha alterado para a 1ª opção o arquivo, então deletei este arquivo e abri novamente do arquivo que baixei em rar. Tentando digitar os valores a partir do mes 04-2016 dá-se o erro acima descrito, e não alterei nada o que você tinha feito. Eu começo a digitar a partir da célula A4 em sequencia, a segunda célula que dá esse erro... --------------------- Eu testei novamente digitando em células diferentes a A4 e B4, e não ocorre este erro, somente quando digito no A4 e em seguida B4, dai ocorre; queria lhe informar isso quem sabe se pode ser essa sequencia..

Boa tarde, Edson Luiz Branco e DJunqueira Primeiro DJunqueira obrigado pelas respostas, mas não obtive sucesso no seu modelo, até pelo fato do Edson estar no caminho certo, pois como ele mesmo citou acima não é para só uma planilha e sim para várias idênticas; por essa razão pode ter ocorrido o erro. Agora Edson, o seu 1ª modelo com o a acréscimo "Me." para qualificar cada planilha independentemente, funcionou normal da planilha 01-2016 até a 03-2016 na 04-2016 da o seguinte erro (que depois de depurado e redefinido funciona normal somente na planilha selecionada): ******** erro em tempo de execução '5': Argumento ou chamada de procedimento inválida Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Interv) Is Nothing Then If IsNumeric(Valor) And IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Target.Value + Valor Application.EnableEvents = True End If End If End Sub Erro na linha em vermelho acima ********** Bem no seu segundo modelo começa a dar o erro a partir da planilha 03-2016 em diante e não mesmo redefinindo não funciona legal, a seguir o erro: ********* erro em tempo de execução '1004' O método 'Intersect' do objeto '_Global' falhou Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not (Sh.Name Like "m[eê]s ##-####") Then Exit Sub If Not Intersect(Target, Interv) Is Nothing Then If IsNumeric(Valor) And IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Target.Value + Valor Application.EnableEvents = True End If End If End Sub Erro na linha em vermelho acima ******** Eu tentei verificar se tinha alguma coisa errada e não consegui achar, será que como uso o Excel 2010 pode ser que algo não funcione com estes procedimentos?? bem só uma reflexão de iniciante rsrsrs.. Ou eu tinha que acrescentar algo após essa linha vermelha acima???

Bom dia, Edson Luiz Branco. Primeiramente obrigado, mas está dando erro '5', efetuei as alterações que você informou acima, só que está ocorrendo como se segue: ***** erro em tempo de execução '5': Argumento ou chamada de procedimento inválida quando clico em depurar informa em amarelo a linha como se segue: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Interv) Is Nothing Then If IsNumeric(Valor) And IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Target.Value + Valor Application.EnableEvents = True End If End If End Sub **** E quando clico em redefinir, na planilha consigo inserir os dados sem esse erro, mesmo salvando e reabrindo o arquivo fica normal, somente na primeira vez que é utilizado dá esse erro acima.

OI, Edson Luiz Branco, OK. Vou aguardar a sua análise, fiquei mais tranquilo agora que você disse que tem solução, ufa.. Agradeço muito a sua disposição em ajudar, com isso eu consigo assimilar mais conteúdos no Excel e nas macros. Eu sou autodidata, com isso tenho que ler muito livros e conteúdos diversos para realizar os projetos. Errando que se aprende e contribuindo/ajudando que fazemos o nosso melhor para o próximo. Valeu, até mais.