Excel - makro do laczenia workbookow w jeden

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» ctc 10:49 » Demo 10:48 » Wedrowiec 10:48 » nth4 10:40 » Doczu 10:40 » NimnuL 10:40 » Arlathan 10:37 » OBoloG 10:36 » Adamusss 10:34 » steve 10:34 » Nazgul 10:31 » ulan 10:29 » PaKu 10:27 » ngP 10:22 » Zbyl 10:21 » gigamiki 10:18 » Artaa 10:15 » JE Jacaw 10:14 » ligand17 10:12 » mark_d 10:08 Dzisiaj przeczytano 12760 postów, wczoraj 38350 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Excel - makro do laczenia workbookow w jeden , Kenny 8/06/12 10:18
Jest takie marko: http://www.teachexcel.com/...ooks-macro-excel.html

Otwieram excela, wskazuje pliki, laczy mi pierwsze arkusze z kazdego z nich w jeden. Dziala ok. Mam tylko jeden problem.

W linijce Set sourceRange = .Range("A1:Q200) okreslam jaki obszar z tychze arkuszy ma pobrac. Sek w tym ze oczywiscie w kazdym z plikow mam inna ilosc linijek.

Da sie sztywny wpis A1:Q200 zastapic jakims odpowiednikiem Ctrl+A, ktory pobierze z arkuszy zrodlowych tylko komorki z danymi? Z vba jestem lama - bazuje na gotowcach :)

.:Pozdrowienia:.

hmmm... , Jaskier 8/06/12 11:03
możesz na początku określić liczbę wierszy
liczbawierszy = Worksheets(1).UsedRange.Rows.Count

a potem zamiast .Range("A1:Q200") wpisać .Range("A1:Q" & liczbawierszy)

powinno zadziałać
1. cos mi nie poszlo, ale znalazlem co innego , Kenny 8/06/12 11:31
  ccialem zastapic
  
  Set sourceRange = .Range("A1:Q500")
  
  tym
  
  Set sourceRange = .Range("A1").CurrentRegion.Select
  
  i... tez nie dziala :/ Dostaje pusty sheet.
  .:Pozdrowienia:.
2. hmm , kubazzz 8/06/12 11:54
  Worksheets(1).UsedRange.Rows.Count - to może nie działać prawidłowo, jeśli aktywny jest nie ten workbook co trzeba.
  
  Bezpieczniej: Workbooks(nazwa_wbk_zrodlowego).Worksheets(numer lub nazwa).UsedRange.Rows.count
  SM-S908
dobra, dalem se spokoj , Kenny 8/06/12 12:20
merguje po 10k wierszy (taki zapas mi wystarczy) z kazdego, a po chwili usuwa puste linie i po klopocie, przynajmniej jako tymczasowe rozwiazanie :)
.:Pozdrowienia:.