edcronos

Ola eu estou em um dilema aqui praticamente nem jogo, mas sou curioso e resolvi dar uma olhada em uns jogos aqui resolvi colocar uma 9800gt que tinha aqui só que a minha placa-mãe é uma ASRock B75M-DGS R2.0 e pelo visto não tem conexão SPDIF ou eu não achei a placa de video precisa ser conectada pelo SPDIF para dar som no hdmi ou DVI eu uso uma tv como monitor que não tem D-SUB com entrada de som auxiliar no video integrado eu uso um cabo HDMI x DVI e tenho o som normalmente na tv tem algum modo de passar o som para a placa de video com essa placa-mãe ou vou ter que comprar uma caixinha de som mesmo? até

é somente suposição porque não me adentrei muito nos bd qundo se usa rstDados!["nome"] as aspas também estão sendo tratadas tonando o nome uma string e var = "nome" rstDados![var] seria algo como rstDados![nome] então teria que fazer assim var =""" & "nome" & """ rstDados![var] porque aí var teria as aspas encluidas

como eu não sabia de onde você ia rodar a macro eu coloquei na LISTAS DE CONTROLE (GERAL) no modulo1 Sub Teste()' Workbooks.Open ("C:\Lista Certificados (GERAL).xlsm") With ThisWorkbook.Sheets("PT-LC-001") l = .Cells(Rows.Count, 2).End(xlUp).Row ' ultima linha com dados da planilha rane = "B6:S" & l ' monta a range Workbooks("Lista de Certificados (GERAL).xlsm").Sheets("Plan1").Range(rane).Value2 = .Range(rane).Value2 ' ActiveWorkbook.Close savechanges:=True 'salvar True End WithEnd Sub

cara o envio dos dados é muito rápido, o que está pesando é a planilha testa essa testes.rar

a sua planilha está indo até a ultima linha de usada apesar de não estar preenchida eu posso sugerir uma serie de mudanças para melhorar a performance deixar toda a lista em uma aba sem formatação , sem formulas como banco de dados não use tabelas do excel, apenas os dados deixar uma aba para pesquisa e visualização do que se quer, essa sim pode se colocar as formulas e formatações, mas maneirando essa macro é muito fácil de se fazer, mas essa sua planilha vai agarrar qualquer coisa que colocar

eu não sei o que é, mas tem algo estranho nessa macro e o fato de abrir o user form não funcionar mas quando uma macro está rodando prende o funcionamento tanto da planilha quanto do vba e isso inclui o userform mas tem coisa que pode ser melhorada usar range completa em vez de coluna por coluna ActiveWorkbook.Sheets("Plan1").Range("B6:K100000").Value2 = ThisWorkbook.Sheets("PT-LC-001").Range("B6:K100000").Value2 ActiveWorkbook.Sheets("Plan1").Range("M6:P100000").Value2 = ThisWorkbook.Sheets("PT-LC-001").Range("M6:P100000").Value2 ActiveWorkbook.Sheets("Plan1").Range("S6:S100000").Value2 = ThisWorkbook.Sheets("PT-LC-001").Range("S6:S100000").Value2 e mais uma coisa, essa macro não devia demorar tanto para atuar assim quando você fala de uma planilha para outra você está falando de ABAS ? ActiveWorkbook =planilha ativa ThisWorkbook= planilha onde está a macro no caso você está chamando a macro de outra planilha para preencher a planilha ativa com os dados dela? se for isso, quando se executa o userfor da outra planilha a outra planilha passa a ser a ativa para isso funcionar você tem que referenciar o nome da planilha para onde vai os dados Workbook("nomeplanilhaNova").Sheets("Plan1").Range("B6:K100000").Value2 = ThisWorkbook.Sheets("PT-LC-001").Range("B6:K100000").Value2 assim não importa qual planilha vai estar ativa e você pode fazer a operação a partir da planilha onde tem as macro e o usefor que você quer

não consegui me adaptar, tem tudo que eu não gosto, Sub BuscaPinta(ByVal Txtvall, ByVal CorN) ' corN = wdBrightGreen Dim Ring As Range Application.ScreenUpdating = False With ActiveDocument.Range With .Find .ClearFormatting .Replacement.ClearFormatting .Text = Txtvall .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .Execute End With Do While .Find.Found Set Ring = .Duplicate '.Font.ColorIndex = wdAuto Options.DefaultHighlightColorIndex = CorN 'wdYellow ' .HighlightColorIndex = CorN 'wdYellow ' .End = Ring.End + 1 .Collapse wdCollapseEnd .Find.Execute Loop End With Application.ScreenUpdating = TrueEnd Sub o write do libre office parece ser mais fácil automatizar eu queria o wordpad, mas pelo que li não tem como fazer uma automatização nele vou acabar usando o excel como editor de texto

bom dia @Patropi é, isso de forum é um vicio, e olha que agora também estou tentando aprender C++ apesar de eu estar mais calmo ---------------------------------------------------------- eu procurei, mas só achei coisas limitadas, mesmo esse que você postou eu já tinha visto não sei se depois de mexer com o excel, o word parece bem limitado, ou melhor, totalmente diferente fiz uma macro aqui para localizar e pintar trechos de texto, como se fosse uma formatação condicional mas por algum motivo só funcionou 2 vezes, e agora não consigo descobrir o que fiz que fez parar de funcionar para mim servia até o word pad ou outro mais leve, mas tenho que automatizar algumas ações

Onde eu acho um bom tutorial de Macros para Word ? as coisas que achei são bem limitadas preciso de algo sobre loop no documento, comparar trechos, pegar palavra, formatar as palavras procuradas e por aí vai

VEJA SE É ISSO não testei completamente , para falar a verdade nem sei se entendi Sub Baixa2() Application.ScreenUpdating = False With Sheets("Registro") c = Cells(1, "J").Column lf = .Cells(Rows.Count, c).End(xlUp).Row l2 = Sheets("Pagos").Cells(Rows.Count, "b").End(xlUp).Row + 1 For L = lf To 3 Step -1 If .Cells(L, c).Value2 = "PAGO" Then Sheets("Pagos").Range("B" & l2, "i" & l2).Value2 = .Range("B" & L, "i" & L).Value2 .Rows(L).EntireRow.Delete l2 = l2 + 1 End If Next End With MsgBox "Baixa de Pagamentos Realizada Com Sucesso", vbOKOnly, "Atenção" Application.ScreenUpdating = True 'ActiveWorkbook.SaveEnd Sub

eu também sou curioso e também já me ajudaram muito como você não postou uma planilha como o basole falou nao tem como adivinhar o que está acontecendo na sua macro não tem definição do que é entrada2 poderia ser uma variavel publica definida em outra macro poderia ser o nome de um textbox, de combobox eu falei que para ser ajudado precisa passar o maximo de informação possivel eu por minha vez faço apenas perguntar confusas e não posto exemplos então tenho que me contentar com suposições e buscar minhas próprias soluções, "sou enrolado mesmo" mas já que você acha que estou sendo mau educado, me abstenho de tentar ajudar e somente posso falar poste uma planilha igual a que está usando para que outros possam solucionar o seu problema

então você não pesquisou sobre celulas nomeadas e vba mas tudo bem, acho que esqueci das aspas Sheets( range( "ENTRADA2" ).Value ). mas você poderia ter falado deste o inicio que era uma celula nomeada você simplesmente chamou de variavel,

eu não consigo visualizar o que é ENTRADA2 quando você usou value deu erro porque não era um objeto sem value deu erro porque não tem um nome de sheet valido se for o nome de uma celula na planilha você tem que usar Sheets(range(ENTRADA2).Value). fora isso você tem que mostrar o que é ENTRADA2 para ser ajudado você tem que primeiro se auto ajudar e dar o maximo de informação possivel, ou então apenas absorver o pouco de informação passada eu sou enrolado para pedir ajuda, muito mais que você, mas eu não fico na dependência e faço teste e pesquisas para saber onde estou errando

Sheets(ENTRADA2.Value) não se usa .value em variaveis tem que ser assim Sheets(ENTRADA2) .value apenas em objetos como range, textbox e essas coisas a não ser que você tenha setado essa variavel como range Dim ENTRADA2 As RangeSet ENTRADA2 = Range("a1")Sheets(ENTRADA2.Value).Select

aquilo la não é vba, é C++ e é a minha linha de raciocínio que é enrolada para aprender, lá eu comecei com uma coisa e acabei em outra ano passado quando comecei com o vba foi a mesma coisa mas a respeito do novo problema, aconselho a abrir um novo topico algo como "separar valor moeda de texto" talvez alguem apareça com uma solução antes. e colocar o link desse aqui junto