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

tem mas para isso vou ter que ter mais detalhes de como está o texto e varios exemplos para identificar diferenças padrões prepare um exemplo com mais detalhes com as posições corretas s´não vou prometer para hoje nem amanha porque estou quebrando a cabeça com algo aqui mas basicamente a macro vai correr o texto procurando numeros algo como isso que eu fiz aqui só que em C++ "estou tentando aprender" http://forum.clubedohardware.com.br/forums/topic/1139109-char-qual-a-maneira-certa-de-usar/ de uma olhada no final

não é para colocar * no historico eu fiz isso na macro e o nome da macro tem que está igual aqui rodou como teste coloque a aba1 como Fornecedores e cole os nomes de fornecedores na cola A essa que você colocou como exemplo a aba 2 como HISTORICO DE RECEBIMENTO e cole o historico na coluna A ou troque os nomes da abas na macro pLf = "Fornecedores" pLh = "HISTORICO DE RECEBIMENTO" exemplo.rar

Estou fazendo uma macro aqui estou colocando para listar o nome do fornecedor ao lado do historico, vai fica mais rápido e você não vai ter duplicatas, podendo comparar direto com o banco atual de fornecedores ou algo assim Sub busca()'Cells(linha, coluna)='Cells(l, 1) = Cells(linha, "A") pLf = "Fornecedores" ' aba de nomes lif = 2 'linha inicial lff = Sheets(pLf).Cells(Rows.Count, 1).End(xlUp).Row pLh = "HISTORICO DE RECEBIMENTO" 'aba de busca lih = 2 lfh = Sheets(pLh).Cells(Rows.Count, 1).End(xlUp).Row ' varre o histico For h = lih To lfh ' pega o texto do historico hov = Sheets(pLh).Cells(h, 1).Value2 'varre a lista de fornecedores For f = lif To lff 'compara as duas listas t = UCase(hov) Like "*" & UCase(Sheets(pLf).Cells(f, 1).Value2) & "*" If t Then ' se coincidir cola nome do fornecedo do lado e pula para o proximo Sheets(pLh).Cells(h, 2).Value2 = Sheets(pLf).Cells(f, 1).Value2 Exit For End If Next NextEnd Sub inicialmente ficou assim, o nome da aba tem que ser igual

ok então então vamos começar você não respondeu se pode ficar em abas separadas primeiro, as palavras tem que ser exatamente iguais, espaço entre outras coisa para tentar contornar o problema de não ser, se pode desmembrar a frase para fazer um teste tipo *CAFE*SEVERINO* no caso do asterisco se pode ter qualquer coisa no lugar

não sei como tem a entrada de dados e nem como é o projeto no geral mas o ideal mesmo seria ter os dados já com entradas separadas, id. --- fornecedor ---endereço ---... e assim se ter toda a informação já pronta para ser usada em qualquer situação sem precisar ficar adaptando você pode ter um cadastro dos fornecedores com os quais trabalha com ID um cadastro de mercadorias com o id dos fornecedores e por aí vai mas como não sei qual a origem dos dados e a sua real necessidade ou possibilidade de implementação... ---------------------------------------------------------------------------------------------------------------- você não precisa ter as duas informações na mesma aba já que vai se duplicado acho que o melhor é deixar em abas separadas

brenda dá para fazer isso facilmente com loop e a função like mas como, e onde vai ficar o resultado? é para mostrar o a celula onde está? e é para mostrar o resultado em qual parte da planilha? e se achar mais de um?

já tentou outras ide? http://falconcpp.sourceforge.net/ https://www.facebook.com/falconcpp https://netbeans.org/ http://www.codeblocks.org/ eu tive alguns problemas com o dev o falcon ficou na medida para mim que sou iniciante

você pode fazer um plugin para o Netbeans https://platform.netbeans.org/tutorials/60/nbm-prolog.html https://netbeans.org/community/magazine/html/03/schliemann/ http://wiki.netbeans.org/SchliemannNBSLanguageDescription https://platform.netbeans.org/tutorials/nbm-mfsyntax.html#gettingtoknowthesample https://sites.google.com/site/tecguia/home/crie-sua-propria-linguagem-seu-proprio-compilador

tem como controlar o VBA do excel através do C++ ? não é fazer DLL para o excel nem controlar o proprio excel tipo tenho uma macro que pega uma range no excel e passa para um array então a partir do C++ se aciona essa macro e usa o array que ela criou e então o c++ chama outra macro que coloca o array de volta na planilha

estou tentando me acostumar com a forma de escrever do c passo mais tempo ajeitando posição de {}, colocando ponto e virgula que esqueço, e == nos if a função ficou assim, tem algumas falhas como 2.000,50, eu não coloquei para pegar os centavos mas como não serviria para nada mesmo vou deixar assim mesmo o nome da função deveria ser separanum #include <cstdlib>#include <iostream>#include <string.h>using namespace std;int QLt(char* lt){ int t = 0; while(*lt != '\0') { lt++; t++; } return t;}//-----------------------------------------------------------------------------------------double convertNUM( char* StrNum, char* StrReferencia, int ocorrencia, int quantidade = 0){ double valorX = 0; int n = 0, L2 = 0, L = 0, C, t = 0, ts, tr; ts = QLt(StrNum); tr = QLt(StrReferencia); int d2, ic, pt = 0; if(ocorrencia >= 0 ) { L = 0; d2 = ts + 1; ic = 1; } else//if(ocorrencia < 0 ) { L = ts; d2 = -1; ic = -1; } while(L != d2) { for (C = 0; C < tr; C++) { if (StrNum[L] == StrReferencia[C]) { n = n + 1; if (C < 10) { if(ic == 1) { valorX = valorX * 10 + C; if (n == 1) { L2 = L-1; } } else// if(ic == -1) { if(n > 1) { valorX = ((C * pt) + valorX); pt = pt * 10; } else { valorX = C ; pt = 10; } } } goto prxL; } }//for StrReferencia if (n > 0) { t += ic; if (ocorrencia == t || ocorrencia == 0) { if (ic == -1) { L2 = L; } if(StrNum[L2] == '-') { valorX = -valorX; } return valorX; } else { valorX = 0; n = 0; pt=0; } }prxL: ; L += ic; } //for StrNum return 0;}//=========================================================================//========================================================================int main(){ char Arnut[] = "0123456789."; char texto[100]; strcpy( texto, "maria pagou R$2.000,00 na data 20/10/2015, 2 dias de atraso"); cout << "valor pago: " << convertNUM(texto, Arnut, 1) << endl; cout <<"Dia: "<< convertNUM(texto, Arnut, -4) << endl; // aqui a função começa a ler o texto da direita para a esquerda cout <<"mes: " << convertNUM(texto, Arnut, -3) << endl; cout << "Ano: "<< convertNUM(texto, Arnut, -2) << endl; cout << "dias de atraso: " << convertNUM(texto, Arnut, -1) << endl; return 0;} depois de ajustar algumas coisas na IDE o codigo ficou melhor de postar, mas para escrever ainda tenho que afastar bem para não me perder vou escrever algo diferente para ir me acostumando com as funções e não só com a escrita por motivo de comparação como ficaria a mesma coisa escrita de forma mais formal ?