Objekt Požadovaná chyba pri použití vlastnosti End - excel, vba, excel-vba

Čítal som podobné chybové otázky typu „vyžaduje sa objekt“, ale nevidím, ako sa tieto týkajú môjho problému, preto sa pýtam ďalšiu otázku.

Tu je môj kód;

Private Sub cmd_next_prime_Click()

p_strt = Range("A2")
p_end = p_strt.End(xlDown)
p_current = Range(p_strt, p_end)

For i = 1 To p_current.Cells.Count
MsgBox p_current.Cells(i, 1).Value
Next i


End Sub

Snažím sa nastaviť p_current v rozsahu od A2 do konca naplnených buniek. Neskôr sa nimi budem prechádzať a hodnoty nejako použijem. V tomto riadku sa však zobrazuje chyba;

p_end = p_strt.End(xlDown)

V Exceli VBA som úplne nový a neviem, čo môže byť príčinou tejto chyby.

odpovede:

použitie nastaviť :

Set p_strt = Range("A2")

atď.

UPRAVIŤ

Používame nastaviť vždy, keď nastavujeme Objekt

Tu je príklad:

Sub luxation()
Dim r As Range
Set r = Range("A2")
Dim rr As Range
Dim N As Long
N = Cells(Rows.Count, "A").End(xlUp).Row
Set rr = Range(r, Cells(N, "A"))
rr.Select
End Sub