Userform hatası (Tel Fihristi)

[nane]

Merhabalar,

Telefon fihristi dosyasında user form da SON BİR VE ikinci kayıtları göstermiyor.
Birde user form veri sayfasında değil de diğer sayfada açılsın istiyorum.
Sanırım anlatabilmişimdir.
Dosya içerisindeki isim ve numaralar gerçek dışı ve bağlayıcı değildir !
Dosya ektedir

İlgilenen arkadaşlara şimdiden teşekkürler
Yb

 

[nane]

Başlığı yanlış yazmışım kim düzeltecek şimdi ?
User form hatası demek istemiştim.

 

[nane]

Sub SayfalaraAktar()
Application.ScreenUpdating = False
Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5", "Sayfa6", "Sayfa7", _
"Sayfa8", "Sayfa9")).Select
Sheets("Sayfa1").Activate
Rows("2:65536").Select
Selection.ClearContents
Set s1 = Sheets("veri")
For i = 2 To s1.Range("a65536").End(3).Row
SayfaNo = Right(s1.Cells(i, "e"), 1)
SayfaAdi = "Sayfa" & SayfaNo
s1.Range("B" & i & ":" & "E" & i).Copy
Sheets(SayfaAdi).Select
ssat = Range("b65536").End(3).Row
Range("b" & ssat + 1).Select
ActiveSheet.Paste
Next

Application.ScreenUpdating = True
Application.CutCopyMode = False
s1.Select
End Sub

Excel sayfasına son girilen 2 satır bilgiyi getirmiyor hata nerede acaba ?
Yardımlarınızı rica ederim

 

[Necdet]

Merhaba,

Dosyanızı makro içeren dosya olarak saklayıp ekler misiniz.

 

[nane]

Necdet bey kusura bakmayın ancak bilgisayarı açtım.
Dosya ektedir
Birde telefon numaraları formda sayfadaki gibi düzenli çıkmıyor. 0212 212 22 22 gibi,
Yardımlarınız için teşekkürler.
Yb®

 

[Orion1]

buyurun.

sonhucre =WorksheetFunction.CountA(Worksheets("veri").Range("B2:B6000")) + 2

 

[nane]

Merhabalar,
Orion1 teşekkürler, listbox için oldu.
-Optibuton için ise nasıl bir kod gerekiyor.
-Birde userform da telefon numaraları bitişik görünüyor. 2125505050 gibi oysa excel sayfasında ise 0212 550 50 50 olarak gözükmekte, yani ayrı gözükürse okunması daha kolay bunu nasıl düzeltebiliriz.
-Aslında veriler ve userform butonu ayrı sayfalarda olsun istiyorum onu da yapamadım.
Yb®