Dim intIleNiepustych AsInteger Dim rngKolumna As Range
Set rngKolumna = Arkusz1.Range("A:A")
intIleNiepustych = Application.WorksheetFunction.CountA(rngKolumna) Set rngKolumna = Nothing
MsgBox intIleNiepustych
EndSub
napisał: viola postów: 6
umieszczony: 21 grudnia 2006 12:40
Problem rozwiązał się. Dla zainteresowanych przesyłam jednak kod:
Dim C As Range,Suma&
With ThisWorkbook.Worksheets("Arkusz1")
For Each C In .Range(.Range("A1"), .Range("A65535").End(xlUp))
If Len(C) > 0 Then Suma = Suma + 1
Next
End With
ThisWorkbook.Worksheets("Arkusz2").Range("D4") = Suma
pozdrawiam
napisał: viola postów: 6
umieszczony: 21 grudnia 2006 09:59
Witam wszystkich czule
Mam drobny kłopot z uzyskaniem informacji o ilości zajętych komórek w danej kolumnie (kolumna A)i wstawieniem tej liczby do drugiego arkusza (do obojętnie jakiej komórki). Kolumna zaopatrzona jest w nazwę, którą chciałabym pominąć (aby jej nie wliczało).
wstecz 1 dalej
otwarty rozpoczął: viola
postów: 5
