Twoje PC  
Zarejestruj się na Twoje PC
TwojePC.pl | PC | Komputery, nowe technologie, recenzje, testy
B O A R D
   » Board
 » Zadaj pytanie
 » Archiwum
 » Szukaj
 » Stylizacja

 
M E N U
  0
 » Nowości
0
 » Archiwum
0
 » Recenzje / Testy
0
 » Board
0
 » Rejestracja
0
0
 
Szukaj @ TwojePC
 

w Newsach i na Boardzie
 
OBECNI NA TPC
 
 » Fl@sh 23:17
 » DJopek 23:08
 » petropank 23:07
 » rarek 23:06
 » Wolf 23:05
 » Zbyszek.J 23:02
 » b0b3r 22:58
 » cVas 22:56
 » dugi 22:51
 » Dexter 22:50
 » Soulburne 22:44
 » stefan_nu 22:41
 » Brauni 22:41
 » maddog 22:39
 » Kenny 22:36
 » toledo 22:35
 » Raist 22:33
 » DYD 22:32
 » buddookan 22:32
 » siwydym 22:29

 Dzisiaj przeczytano
 40076 postów,
 wczoraj 25604

 Szybkie ładowanie
 jest:
włączone.

 
ccc
TwojePC.pl © 2001 - 2025
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:.

  1. 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

  2. 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:.

    
All rights reserved ® Copyright and Design 2001-2025, TwojePC.PL