za potrebe nadaljnjega izvajanja makra naj bi uporabnik izbral začetno in končno celico obsega (tako sem se zadeve lotil sam) ali pa bi označil obseg (tega se nisem znal lotiti).
Koda je taka:
Koda: Izberi vse
Sub Oznaci_obseg()
Dim NaslVrst_PrvaCelica
Dim NaslVrst_ZadnjaCelica
Dim NaslovnaVrstica As Range
' uporabnik izbere prvo celico naslovne vrstice
Set NaslVrst_PrvaCelica = Application.InputBox(Prompt:="Izberi začetno celico naslovne vrstice:", Type:=8)
' uporabnik izbere zadnjo celico naslovne vrstice
Set NaslVrst_ZadnjaCelica = Application.InputBox(Prompt:="Izberi zadnjo celico naslovne vrstice:", Type:=8)
' določim naslovna vrstico
Set NaslovnaVrstica = Range(NaslVrst_PrvaCelica, NaslVrst_ZadnjaCelica)
Range(NaslovnaVrstica).Select ' tukaj javi napako
End Sub
Run time error : '1004'
Method 'Range' of 'object' Global Failed
Prosim za pomoč/idejo.
Hvala in Lp,
Fatso