Farklı Sayfadan Label.Caption a bilgi getirme

[mesuttasar]

Userform un initialize kısmına aşağıdaki kodları yazıyorum ancak hata veriyor (Application-defined or object-defined error) , sebebi ne olabilir acaba?

Dim sno As Integer
sno = Sheets("TANK").[A65536].End(3).Row
MsgBox sno
UserForm1.Label13 = Sheets("TANK").Range("F" & CDbl(sno)).Value

 

[Orion1]

aşağıdaki gibi deneyiniz

Dim sno As long
sno = Sheets("TANK").[A65536].End(3).Row
MsgBox sno
UserForm1.Label13.caption= Sheets("TANK").Range("F" & CDbl(sno)).Value

 

[mesuttasar]

Evren bey , aynı hatayı tekrar veriyor , anlayamadım bende Dosyayı ekliyorum.

 

[Orion1]

ActiveWorkbook.Worksheets("TANK").Sort.SortFields.Add Key:=Range( _
        "A2:A150"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal

aşağıdaki kod kümesinde yukarıdaki sıralama kodlarında hata var.
sanırım 2007 ve üstü için olabilir o sıralama kodları.
kesin değil ama büyük ihtimalle sebep odur.

Forumda bu yönde araştırma yapıp sorunun üstüne gidebilirsiniz.

'ALFABETİK SIRALAMA KODLARI BAŞLANGICI_______________
  Sheets("TANK").Select
  
  Range("A2:E150").Select
  ActiveWorkbook.Worksheets("TANK").Sort.SortFields.Add Key:=Range( _
        "A2:A150"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
'ALFABETİK SIRALAMA KODLARI SONU_______________

 

[mesuttasar]

Haklısınız Evren bey , o kodları aşağıdaki şekilde düzeltince sorun çözüldü.Teşekkürler.

Sheets("TANK").Select
Range("A2:E" & [A65536].End(3).Row).Sort [A2], xlAscending