Hata Hakkinda

[oerbas]

Arkadaşlar

Personel takip programı yapıyorum. Fakat aşağıda açıkladığım gibi bir sorun yaşıyorum. UserForm üzerinde ComboBox Change olayına Bersonel Bilgilerini TextBoxlara alan kodlar yazılı.Aynı zamanda image nesnesine o personele ait resim geliyor image nesnesine resim çağırılarak personel bilgilerinde değişiklik yapılınca hata veriyor. Değiştir düğmesine bastığım zaman çağırılan nesne istemciden ayrılmış diye hata mesajı veriyor. Fakat resmi getiren kodları silip sadece personel bilgilerini TextBoxlara alarak değişiklik yaplınca bir problem olmuyor. Bu konu hakkında yardımlarınız gerçekten çok işimize yarayacak herkese saygılarımla

DEĞİŞTİR DÜĞMESİNE AİT KODLAR

Private Sub CommandButton1_Click()
Sheets("DATA").Select
If persadı.Text = "" Then
MsgBox "LÜTFEN ADI SOYADI KUTUSUNDAN İSİM SEÇİNİZ!!!"
Exit Sub
End If
If perssicilno.Text = "" Then
MsgBox "DEĞİŞİKLİK YAPACAĞINIZ İSİMİ BULDURMADAN DEĞİŞİKLİK YAPMAK, VERİLERİN TÜMÜNÜ SİLMEK DEMEKTİR, EĞER VERİLERİN TÜMÜNÜ SİLMEK İSTERSENİZ SİL TUŞUNU KULLANMALISINIZ!!!"
Exit Sub
End If
MsgBox "DEĞİŞİKLİKLER YAPILIYOR LUTFEN BEKLEYİNİZ."
ActiveCell.Offset(0, 0).Value = persadı.Value
ActiveCell.Offset(0, 1).Value = perssicilno.Value
ActiveCell.Offset(0, 2).Value = işegiriştar.Value
ActiveCell.Offset(0, 3).Value = mezuniyet.Value
ActiveCell.Offset(0, 4).Value = görevyeri.Value
ActiveCell.Offset(0, 5).Value = yetkili.Value
ActiveCell.Offset(0, 6).Value = kadro.Value
ActiveCell.Offset(0, 7).Value = kadrounvanı.Value
ActiveCell.Offset(0, 8).Value = derece.Value
ActiveCell.Offset(0, 9).Value = kademe.Value
ActiveCell.Offset(0, 10).Value = emeklisandığıno.Value
ActiveCell.Offset(0, 11).Value = eposta.Value
ActiveCell.Offset(0, 12).Value = evadresi.Value
ActiveCell.Offset(0, 13).Value = ceptel.Value
ActiveCell.Offset(0, 14).Value = evtel.Value
ActiveCell.Offset(0, 15).Value = TCNO.Value
ActiveCell.Offset(0, 16).Value = ızınhakkı.Value
MsgBox ("DEĞİŞİKLİK BAŞARI İLE GERÇEKLEŞTİRİLMİŞİTR.")
End Sub