rafaeldrm

Resolvi o problema principal Sub Macro1() Dim original As Workbook Dim replica As Worksheet Dim Remoto As Long Dim Eu As Long Application.ScreenUpdating = False With ActiveSheet Set original = Workbooks.Open(Application.GetOpenFilename) Set replica = original.Sheets(1) Eu = .Cells(.Rows.Count, "A").End(xlUp).Row Remoto = replica.Cells(replica.Rows.Count, "A").End(xlUp).Row replica.Range(IIf(Remoto - 66655 < 1, Eu, Eu - 66655) & ":" & Remoto).EntireRow.Copy Destination:=.Range("A" & Eu) End With original.Close False Set replica = Nothing Set original = Nothing Application.ScreenUpdating = True End Sub ------------------------- Só me falta agora fazer uma seleção de uma coluna no caso a coluna (L) e dividir em 2 planilhas diferentes uma para Pertence e outra para Pendente. na coluna L apenas existem estas 2 palavras (penso que é igual ao esquema PROCV de Excel mesmo, em macro não tenho ideia) ficaria assim planilha 2 só as linhas que contenham a palavra Pertence planilha 3 só as linhas que contenham a palavra Pendente

Tenho um arquivo em excel que sempre recebo por email. este arquivo é chamado Relatório Geral. tenho um arquivo chamado Resultado em excel também. Quero copiar todas as colunas e todas as linhas (Crtl+c e crtl+v) deste Relatório Geral para o Arquivo Resultado como se fosse um espelho. é que toda a semana eu recebo este arquivo geralmente ele vem com umas 10 linhas a mais a cada semana. hoje ele tem 400 linhas com 30 colunas semana que vem ele vai para umas 430 linhas com as 30 colunas. então com uma macro facilitaria muito eu passar tudo para um arquivo onde consigo sempre manipular os dados. tentei usar este código porém toda a vez que executo ele duplica toda a tabela Sub Macro1() Dim original As Workbook Dim replica As Worksheet Dim remoto As Long Dim controle As Long Application.ScreenUpdating = False With ActiveSheet Set original = Workbooks.Open(Application.GetOpenFilename) Set replica = original.Sheets(1) controle = .Cells(.Rows.Count, "A").End(xlUp).Row remoto = replica.Cells(replica.Rows.Count, "A").End(xlUp).Row replica.Range(IIf(remoto - 66655 < 1, 1, remoto - 66655) & ":" & remoto).EntireRow.Copy Destination:=.Range("A" & controle) End With original.Close False Set replica = Nothing Set original = Nothing Application.ScreenUpdating = True End Sub este código funciona porém ele vai adcionando mais informações abaixo da última linha preenchida, e quero que ele substitua tudo toda vez que eu executar. obrigado quem puder me ajudar

Não precisei vedar meu processador (apenas passei um pouco da pasta entre o processador e o dissipador de calor (cooler CPU) e mais nada só tacar no óleo e pronto. http://www.casemodbr.com/forum/viewtopic.php?f=20&t=49267 estou refazendo este meu projeto pretendo finalizar ele daqui a algumas semanas se tudo der certo. agora com um aquário maior heheheh e com outras coisinhas legais que serão segredo hehehehe

Bom eu fiquei com vontade e resolvi montar um PC Aquarius Mineral se chama meu case Baseado em muitos computadores no óleo mineral Fui numa loja de aquário e comprei um aquário bacaninha de 20 litros. Comprei em São Paulo na Campestre uma lata de 18 litros de Óleo Mineral Branco (Medicinal tanto uso interno e externo) aproveitei e com a empolgação comprei uns enfeites com pedrinhas, compressor de ar para fazer bolhas de ar, um pedra porosa e algumas plantinhas de plástico e um tronco de plástico. Beleza fui numa loja de eletronica comprei alguns leds azuis e verdes de alto brilho junto com seus resistores de 1k ohm para ligar os leds em 12V. para darem uma olhada postei meu projeto em outro fórum PC Aquarius Mineral depois de montado o "pc servidor" no aquário Configuração do pc: P5GC-MX ASUS Pentium D Dual Core Celeron 2,80GHz Intel Memória Ram Markvision 512MB DDR2 667Mhz HD 160GB Seagate Fonte Genérica Nominal +/- 450W =================================== no primeiro projeto o HD era um Samsung meio rodado e deixei ele dentro, porém em pé, fiz até uma vedação na entrada do suspiro, mas durou apenas 2 horas de vida, desliguei e quando liguei tava todo travado. agora aprendi HD fica fora do Óleo. Mas beleza... 2 dias ligado direto temperatura normal, tive que desligar ele porque não confiava muito sair de casa e deixar ele sozinho ligado, quando volto e ligo novamente, deixei ligado umas 4 horas, antes de desligar sinto o aquário um pouco quente. No everest a temperatura do PC era baixa processador com 32Cº e placa mãe com uns 20Cº cooler rodando uns 19 rpm mas isso não conta. temperatura do óleo era temperatura ambiente 25 a 27 graus. o vidro do aquário é que estava nos seus 35Cº para mais. Desliguei o pc e esperei esfriar no dia seguinte o vidro estava todo geladinho e resolvi ligar mais 4 horas ligado e quente de novo o vidro do aquário. Estou pensando em colocar um cooler na parte de trás do aquário para ventilar o vidro. sei lá. neste fim de semana eu vou brincar sobre isso.

Pessoal eu fui no site de calcular o consumo do pc na minha cota de consumo através desta configuração que citarei abaixo é de 317W e achei pouco por causa do manual da placa mãe Asus P5N-E SLI que diz: Components/Peripherals Heavy Intel® LGA775 CPU type Intel Pentium EE PCIeTM x16 graphics cards 6800 Ultra x2 DDR DIMMs 4 HDD 4 Optical drive (DVD/CD-RW) 2 PCIeTM x 1 card 1 PCI cards 2 USB devices 6 Required +12V current > 25A Required wattage >= 500W a minha configuração é esta aqui: placa mãe: ASUS P5N-E SLI processador: INTEL Core2Duo E7200 2,53GHz placa de vídeo: 2 placas da XFX 8600GT 512MB DDR2 *modo SLI* memória ram: 2 pentes de 1GB DDR2 800Mhz da Kingston *Dual Channel* - ainda vou comprar mais 2 pentes de 1 gb Gravadora de DVD/CD Ide HD master = Seagate SATA II 250GB HD slave = Seagate SATA II 500 ou 750GB (ainda irei comprar) HD slave = Samsung IDE 7200RPM 160Gigas leitora de cartão e com saida para sata cooler 120MM serão 2 *frontal e lateral* cooler 80MM serão 2 *traseira e superior* mais ou menos 20 leds conectado num molex usando apenas 5V deste conector ao todo tirando os led's deu 317W lá no site da extreme. queria de ajuda sobre fontes, eu deveria comprar uma de 500W ou talvez uma de 550W andei olhando algumas fontes e achei uns preços cabiveis em meu bolso faixa de 0 à 300 reais máxmo fico grato a ajuda de todos e boa semana.