(31/12/2013, 01:16)maytas yazdı: Doğru yaptıysanız hata vermez.
Örnek dosyayı ekledim. Kontrol edin.

sayın maytas,
aynı anda birden fazla kayıt girersem yani 3 tane ismi kopyala yapıştır yaparsam hata veriyor. aynı şekilde aynı anda birkaç kayıt silersemde hata veriyor. tek tek yapılan işlemlerde hiçbir problem yok. bunun sebebi ne olabilir

(31/12/2013, 21:30)Conqueror20 yazdı: sayın maytas,
aynı anda birden fazla kayıt girersem yani 3 tane ismi kopyala yapıştır yaparsam hata veriyor. aynı şekilde aynı anda birkaç kayıt silersemde hata veriyor. tek tek yapılan işlemlerde hiçbir problem yok. bunun sebebi ne olabilir

Sebebini siz zaten belirtmişsiniz.
Bu tür kayıtlar genelde tek tek girilir,kopyala yapıştır metoduyla ve toplu olarak girilmez.
Ve kodlar kayıtlar tek tek girilecek diye varsayılarak yazılmıştır.
Ama siz illa ki çoklu giriş/silme yapacaksanız VBE sayfasındaki kodları aşağıdakilerle değiştirin:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal selection As Range)

    Dim sayfa As Worksheet, hucre As Range

    Set sayfa = ActiveSheet

    Application.EnableEvents = False

    If sayfa.Name <> "RAPOR" Then

        For Each hucre In selection.Cells

            If hucre.Row >= 6 And hucre.Row <= 20 Then

                If (hucre.Column = 2 Or hucre.Column = 9) And hucre = Empty Then

                    hucre.Offset(0, -1) = Null

                ElseIf (hucre.Column = 2 Or hucre.Column = 9) And Not (hucre = Empty) Then

                    hucre.Offset(0, -1) = sayfa.Range("K2")

                End If

            End If

        Next

    End If

    Application.EnableEvents = True

    Set sayfa = Nothing

End Sub

Dikkat!!! Buradaki kodları satır numaralarıyla yapıştırırsanız hata alırsınız.

teşekkürler sayın maytas