(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.