İYİ GÜNLER DİLERİM HERKESE DAHA ÖNCE 2003 DE KULLANDIĞIM BİR ÇALIŞMA VARDI AŞAĞIDAKİ KOD ÇALIŞMAYI 2007 DE AÇINCA ÇALIŞMIYOR
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wrksht As Worksheet
Dim objListObj As ListObject
Set wrksht = ActiveWorkbook.Worksheets("ALIŞ")
Set objListObj = wrksht.ListObjects(1)
objListObj.ShowTotals = True
If Target.Row = objListObj.TotalsRowRange.Row - 1 Then
Application.EnableEvents = False
Target.ListObject.ListRows.Add (Target.Row - 1)----bu satırda hata veriyor
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wrksht As Worksheet
Dim objListObj As ListObject
Set wrksht = ActiveWorkbook.Worksheets("ALIŞ")
Set objListObj = wrksht.ListObjects(1)
objListObj.ShowTotals = True
If Target.Row = objListObj.TotalsRowRange.Row - 1 Then
Application.EnableEvents = False
Target.ListObject.ListRows.Add (Target.Row - 1)----bu satırda hata veriyor
Application.EnableEvents = True
End If
End Sub
