2003 liste oluştur özelliği 2007 de

[gedavet]

1-İkisinden birini seçmelisiniz. İki kodun mantığı farklı.
hamitbey o kodlarda olması lazım işlem gereği lazım arasına eklenmezmi

 

[hamitcan]

Farklı konulardan bahsediyoruz galiba. Benim kastettiğim SelectionChange yada sadece Change olaylarından birini seçmeniz idi. Ayrıca sorunuzun çözüldüğünü düşünüyorum. Diğer sorularınız için ayrı konu açın.

 

[gedavet]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wrksht As Worksheet
Dim objListObj As ListObject
Set wrksht = ActiveWorkbook.Worksheets("Sayfa1")
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)
Application.EnableEvents = True
End If
End Sub

yukarıdaki kod işimi görüyor teşekkür ederim ancak aşağıdaki kod var dosyamda aşağıdaki kodda çalışması lazım ikisi nasıl birleştiririz aynı başlıkta olunca

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Son_Satır As Long
Son_Satır = Range("B65536").End(3).Row
ActiveSheet.Shapes("Grup 1").Top = Cells(Son_Satır + 2, 2).Top

If Target.Column = 2 Or Target.Column = 5 Then
On Error Resume Next
Application.EnableEvents = False
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
Application.EnableEvents = True
End If

If Target.Column = 3 Then
Dim i As Integer, deg, deg2 As String
On Error Resume Next
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target.Value)
deg = Split(Target.Value, " ")
For i = LBound(deg) To UBound(deg) - 1
deg2 = deg2 & " " & deg(i)
Next
Target.Value = deg2 & " " & UCase(Replace(Replace(deg(UBound(deg)), "ı", "I"), "i", "İ"))
Target.Value = Right(Target.Value, Len(Target.Value) - 1)
Application.EnableEvents = True
End If

End Sub

 

[gedavet]

bu edeki dosyada kodları çalıştıramadım