tag:blogger.com,1999:blog-5696322642725527376.post4739166885553057690..comments2010-07-08T07:49:21.068-03:00Comments on Dicas de Excel: Como alterar o valor de uma célula com VBA - Coman...João Henriquehttp://www.blogger.com/profile/14034394301968333652noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-5696322642725527376.post-11359711706133830662010-07-08T07:49:21.061-03:002010-07-08T07:49:21.061-03:00Cara, e quando eu quero selecionar uma célula que ...Cara, e quando eu quero selecionar uma célula que está em outra planilha? Estou fazendo uma macro pra minha planilha de controle na minha República. Tenho uma planilha com o resumo de cada despesa por morador, e pra atualizá-la, eu utilizo uma segunda planilha de lançamentos no mês... Daí para cada tipo de despesa, para cada Morador, eu aplico os filtros, pego o subtotal da tabela e colo especial (somente valores) na célula correspondente.<br /><br />O problema é que isso tá muito ineficiente, uma vez que temos 6 moradores aqui, com 6 despesas no total, são 36 vezes que a planilha de lançamentos é selecionada, 36 alterações na tabela de lançamentos, 36 seleções da planilha de resumos e 36 colar especial. A macro leva um tempo razoável para ser executada, e a tela fica alternando de planilha em planilha o tempo todo.<br /><br />Tem como eu alterar os filtros da minha tabela, copiar o subtotal (que estão na segunda planilha) e colar o resultado na célula correspondente que está na primeira planilha sem precisar usar um monte de seleção de sheet?<br /><br />Vou colar um exemplo do código que tenho até agora:<br /><br /> Sheets("Diário Mensal").Select<br /> ActiveSheet.ListObjects("Diario").Range.AutoFilter Field:=2, Criteria1:= _<br /> "Morador1"<br /> ActiveSheet.ListObjects("Diario").Range.AutoFilter Field:=3, Criteria1:= _<br /> "TipoDespesa1"<br /> Range("Diario[[#Totals],[Valor]]").Select<br /> Selection.Copy<br /> Sheets("Tabela Individual").Select<br /> Range("D5").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<br /> :=False, Transpose:=False<br /><br /> Sheets("Diário Mensal").Select<br /> ActiveSheet.ListObjects("Diario").Range.AutoFilter Field:=2, Criteria1:= _<br /> "Morador1"<br /> ActiveSheet.ListObjects("Diario").Range.AutoFilter Field:=3, Criteria1:= _<br /> "TipoDespesa2"<br /> Range("Diario[[#Totals],[Valor]]").Select<br /> Selection.Copy<br /> Sheets("Tabela Individual").Select<br /> Range("F5").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<br /> :=False, Transpose:=False<br /><br /><br />E faço isso 6x para cada um dos 6 moradores (6 despesas e 6 moradores)<br /><br />Me ajuda a tornar essa macro eficiente!<br /><br />Valew!Bubahttp://www.blogger.com/profile/10270472113749586544noreply@blogger.com