napisał: aniamalwa
postów: 3
 umieszczony:
7 kwietnia 2007
18:54
|
|
Dzięki!!! Ja to wykombinowałam trochę na około  , ale zmienię sobie na to Twoje  . Bo jest krócej:)
Pozdrawiam
Ania |
|
|
napisał: Rycho
postów: 291
umieszczony:
7 kwietnia 2007
18:39
|
|
Hej.
Zmień przeszukiwany zakres w kolumnie A np. tak:
w = WorksheetFunction.CountA(Worksheets(1). Range("A8", Cells(Cells.Rows.Count, "A")))
Pozdrawiam |
|
|
napisał: aniamalwa
postów: 3
umieszczony:
7 kwietnia 2007
17:39
|
|
Wielkie dzięki super to działa. A mam jeszcze pytanko. Jak zrobić, żeby zliczał dopiero od 8 wiersza, bo tak się dopiero zaczynają dane. A chodzi mi o to żebym wiedziała ile jest wpisanych tych wierszy. Jeszcze raz dzięki.
Pozdrawiam
Ania |
|
|
napisał: Rycho
postów: 291
umieszczony:
7 kwietnia 2007
14:12
|
|
Dim wbA As Workbook
Set wbA = ThisWorkbook
'kolejny otwierany skoroszyt
Dim sciezka As String
sciezka = "skoroszyt.xls"
Workbooks.Open sciezka
'zliczenie niepustych komórek w kolumnie A
'w 1-szym arkuszu skoroszytu
'z wykorzystaniem funkcji arkusza
Dim w As Long
w = WorksheetFunction.CountA(Worksheets(1).Columns("A"))
'utworzenie nowego skoroszytu
Workbooks.Add
'zapisanie liczby wierszy w arkuszu
Range("A1") = w
'zapisanie skoroszytu
ActiveWorkbook.Close SaveChanges:=True, _
Filename:="arkusz_Liczba_wierszy.xls"
'zamknięcie przeszukiwanego skoroszytu
Workbooks(sciezka).Close SaveChanges:=False
'powrót do skoroszytu wywołującego (w sumie nie jest potrzebne)
wbA.Activate |
|
|
napisał: aniamalwa
postów: 3
umieszczony:
7 kwietnia 2007
10:24
|
|
Witam!!!! Mam do napisania makro a zaznaczam, że nigdy tego nie robiłam i pewnie wyda Wam się mój problem śmieszny  . Więc chodzi o to, że przy uruchomieniu excela ma się otwierać okienko, które będzie otwierało inny plik też excela(i to już mam). Następnie ma zliczyć ilość zapełnionych wierszy w tym nowym otwartym pliku i zapisać tą ilość ale już w innym pliku. Mam nadzieję, że wiecie o co mi chodzi. Z góry dziękuję za szybką odpowiedź.
Pozdrawiam
Ania |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
