Mesaj Programı Aralık Seçme

[eaglecarsi88]

Merhaba Arkadaşlar devamsızlık üzerine bir dosya hazırlamaya çalışıyorum. öğrenci isimlerini bir sayfadan alıp diğerine aktarıyorum. başka bir sayfadan telefon numaralarını almaya çalıyorum fakat hata msjı alıyorum. hatam nerede acaba ?

Private Sub CommandButton2_Click()
Dim satir As Integer
Dim isim As String
Dim tel As Integer


For satir = 2 To 250
'Cells(satir, 2) = WorksheetFunction.VLookup(Cells(satir, 1), Sheets("TELEFON"), 2, 0)
Sheets("msj").Select
isim = Cells(satir, 1)
Sheets("TELEFON").Select
Range("a1:b250").Select
Selection.Find(isim).Select
tel = ActiveCell.Offset(0, 1).Value
Sheets("msj").Select

Cells(satir, 2) = tel

Next satir


End Sub

 

[eaglecarsi88]

Arkadaşlar programı aşağıdaki gibi düzenledim fakat hala telefon numaralarını çekmeyi başaramadım. msj sayfasından öğrenci ismini almasını telefon sayfasında onu bulup msj sayfasında b sutununa isminin yanına yazmasını istiyorrum. yanlışım nerede acaba bir türlü bulamıyorum

 

[eaglecarsi88]

sorunu buldum belki başka birine yardımcı olur. sanırım değişken tipinde sorun varmış. tel değişkenini kaldırınca sorun çözüldü.