başvuru hatası

[haruncelebi1]

arkadaşlar ;ekli dökümanda listbox1 üzerinden veri sildiğimde sayfa 1 de satır kaydırarak silme işlemini yapıyor. Ancak ben bu silme komutuna bağlı olarak verinin aynı zamanda sayfa 2 ye aktarılmasını itiyorum. yani hem seçtiğim veriyi silecek hemde sayfa 1 deki verilerin son halini 2.sayfanın aynı sutun ve sutun ve satırına aktaracak. Biraz uğraştım 2.sayfada başvuru hatası alıyorum nedense. Yardımınız için şimdiden teşekkürler..

 

[Levent Menteşoğlu]

Kaydı sildiğiniz butondaki kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:e3aea64c0a]Private Sub CommandButton1_Click()
Set s2 = Sheets("sayfa2")
If ListBox1.ListIndex <> 0 Then
sil = ListBox1.ListIndex + 1
Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
son = s2.Cells(65536, 1).End(xlUp).Row + 1
For i = 1 To 3
s2.Cells(son, i) = Cells(sil, i)
Next
Rows(sil).EntireRow.Delete
End If
End Sub[/vb:1:e3aea64c0a]

 

[haruncelebi1]

sn. levetm dediğinizi yaptım ama 2 sayfada hala başvuru hatası alıyorum.Acaba 2.sayfadaki başvuru formülümü hatalıdır. teşekkürler..

 

[kombo]

sn haruncelebi1
Söylediğiniz gibi Sayfa2 deki başvuru formülünüz eksik.
Formülü şöyle düzenlerseniz sorun kalmaz:

=EĞER(EHATALIYSA(Sayfa1!A2>0);"";Sayfa1!A2)

veya Sayfa1 deki verileriniz hep sayı ise;

=EĞER(ESAYIYSA(Sayfa1!A2);Sayfa1!A2;"")