Wojciech Stolarczyk

Program Manager of Security Operation Center program

Wypowiedzi

• Wszystko
• Tylko fora

• 
  Wpis na grupie Excel w temacie AutoFilter i subtotal w Makrze - AGRSC

  31.08.2010, 11:46

  Witam,
  
  dzieki za odpowiedz.
  
  Nie dziala po podlaczeniu do innego pliku znaczy - pliki w tym formace sa produkowane co jakis czas, niestety to makro dziala tylko z tym na ktorym powstalo, a dzieje sie tak gdyz jest poustawiane sztywno do tego jedynego pliku. Dlatego chcialbym zeby liczylo sume , aktywnych pol po przeprowadzeniu autofiltra. Czy jest to mozliwe? Czy da sie zapisac ta linie:
  
  ActiveCell.FormulaR1C1 = "=SUM(ArkuszX!R[-5]C[5]:R[44000]C[5])"
  
  przy pomocy autosum?

• 
  Wpis na grupie Excel w temacie AutoFilter i subtotal w Makrze - AGRSC

  31.08.2010, 08:39

  Witam,
  
  na wstępie od razu powiem, że nie jestem specem od Excela a juz w ogole jesli chodzi o makra to kuleje.
  Po krotce opisze co chcę robic moim makrem i jak sie do tego zabralem. Uzywajac funkcji zarejestruj makro utworzylem makro, ktore w zamierzeniu mialo liczyc sume pol w kolumnie 'J' po wczesniejszym autofiltrowaniu kolumny 'a'. Jak sie domyslacie mialo to sumowac tylko widoczne wiersze. Wynik mialbyc prezentowany w zakladce arkusz1. Niestety makro to dziala tylko z tym plikiem a gdy 'podlacze' go do innego to niestety nie dziala w ogole. Oto co powstalo po zarejestrowaniu makra:
  
  Range("E6").Select
  ActiveCell.FormulaR1C1 = ""
  Sheets("ArkuszX").Select
  ActiveSheet.Range("$A$1:$M$44000").AutoFilter Field:=2, Criteria1:="=p3", _
  Operator:=xlAnd
  Sheets("Arkusz1").Select
  Range("E6").Select
  ActiveCell.FormulaR1C1 = "=SUM(ArkuszX!R[-5]C[5]:R[44000]C[5])"
  
  Z tego co przeczytalem na forum to aby to makro chodzilo nalezy uzyc autosum - niestety nie wiem jak tzn jak do auto sum wpisac nazwe arkusza etc.
  
  Prosze o pomoc.