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

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.