Zadnja uporabljena celica v nekem obsegu

Pomoč pri izdelavi makrov
Odgovori
Pajo ml.
Prispevkov: 3
Pridružen: Pe Avg 03, 2007 12:08 pm

Zadnja uporabljena celica v nekem obsegu

Odgovor Napisal/-a Pajo ml. »

Zadnji čas se zabavam z makrom, ki bi mi poiskal zadnjo uporabljeno celico v nekem obsegu. Če imam na voljo prazen list to ni problem, rešim situacijo z spodnjo formulo, sedaj pa bi rad da mi poišče prazno vrstico v obsegu B15:B25.

Za prazen list:

Koda: Izberi vse

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("baza")

'najde prvo prazno vrstico v bazi
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'kopira podatke
ws.Cells(iRow, 1).Value = Me.TextBox6.Value
Sem že testiral nekaj druge kode pa mi ni jasno. Kako naj poiščem prazno vrstico v nekem obsegu?
alan07
Prispevkov: 22
Pridružen: To Apr 17, 2007 4:44 am

Re: Zadnja uporabljena celica v nekem obsegu

Odgovor Napisal/-a alan07 »

Prvo prazno vrstico - celico v obsegu b15:b25 poišče makro

Sub Prva_Prazna()
For i = 15 To 25
If Cells(i, "b") = "" Then Cells(i, "b") = "Vaše sporocilo ali karkoli ": Exit For
Next i
End Sub

Zadnjo prazno v istem področju pa

Sub Zadnja_Prazna()
For i = 25 To 15 step -1
If Cells(i, "b") = "" Then Cells(i, "b") = "Vaše sporocilo ali karkoli": Exit For
Next i
End Sub

Bi bilo pa super prebrati vse možnosti, kako se označujejo celice in področja, potem se pa zabavati z makri.

Pa veliko zabave LP Alan
Odgovori