Re: Makro v excelu

Hello MilanK,

8. júna 2004, 11:02:09, si napisal:

>>> ...ako zobrat cislo posledneho riadku do premennej

>> 'spocita pocet obsadenych riadkov v stlpci
>>       Dim r As Long
>>       r = Application.WorksheetFunction. _
>>       CountA(Range("A:A"))
>> Jani

M> A kua, ake jednoduche :-) , len to vediet...
M> Akurat by sa tam muselo pre potreby tohoto makra
M> to r este zvacsit o jedno r = r+1, alebo treba uz ratat
M> s inym pismenom (z = r+1) a adresovat to?

M> Ako sa potom prosim spravne pomocou premennej
M> napise adresa bunky? Myslim stlpec B a riadok cislo.
M>     Range("B*a sem ako*").Select

Dim r As Long
Application.Goto Reference:="R1C1"
r = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
Cells(r, 1).Activate


-- 
Zdravi,
Jani
mailto:JBystriansky@seznam.cz




-=x=-
Skontrolované antivírovým programom NOD32