2003 liste oluştur özelliği 2007 de

[gedavet]

Iyi günler 2003 de liste oluştur özelliğinde en altta toplam satırından önce bir * işareti vardı ve yazdıksa aşağıya doğru otomatik satır ekliyordu 2007 de bu özellik yokmu
yani 2003 de yazdıkça ekliyordu çok güzeldi 2007 de yazdıkça eklemiyor herhalde veya bunu nasıl yaparız
yardımlarınız için teşekkürler

 

[hamitcan]

Ekle>Tablo oluşturu deneyin. Daha gelişmiş listeler oluşturabiliyorsunuz.

 

[gedavet]

ilginiz için teşekkür ederim ancak liste oluşturma yı yaptım ancak dediğim gibi 2003 * bu işaretin olduğu yere yazdıkca aşağıya doğru satır çoğalıyordu 2007de bu olmuyor * bu işaret yok bir ikinciside en alttaki satıra yazınca satır eklemiyor

 

[hamitcan]

ilginiz için teşekkür ederim ancak liste oluşturma yı yaptım ancak dediğim gibi 2003 * bu işaretin olduğu yere yazdıkca aşağıya doğru satır çoğalıyordu 2007de bu olmuyor * bu işaret yok bir ikinciside en alttaki satıra yazınca satır eklemiyor

Evet "*" karakteri çıkmıyor ama, tablonun son satırı altına bir şey yadığınızda, kendisi tablonun sınırlarını genişletiyor.

 

[gedavet]

hamit bey ilginiz için teşekkür ederim ancak dediğiniz toplam satırı yokken toplam satırı işaretleyince yani en altında toplam satırı varken satır ekleyemiyoruz 2003 de toplam satırı varkende ekliyordu listenin içindeki bir sütunda bir özellik varsa onuda eklemesi lazım çünkü mesela formül veya veridoğrulama gibi ancak toplam satırı olmazsa en alta yazdığımızı liste içine alıyor ancak liste içindeki özellik en alttaki satırda yok ve toplamıda devamlı görmek için toplam satırında olması lazım 2003 deki çok pratik çok kolay ve çok iyi idi

 

[gedavet]

cev

ekdeki dosya 2007 olarak gönderdim şimdi altta toplam satırı var satır eklemiyor

 

[hamitcan]

Sayfa1'in kod kısmına aşağıdaki kodu ekleyin, aynı işi görüyor zannedersem.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Text = "Toplam" Then
        Selection.ListObject.ListRows.Add (ActiveCell.Row - 2)
    End If
End Sub

 

[gedavet]

hamit bey denedim olmadı ya siz eklenmiş şekli ile dosya ekleye bilirmisiniz

 

[gedavet]

toplam yazan yere tıklayınca satır ekliyor bu şekilde değilde 2003 deki gibi listenin en alttaki satırların birine veri yazınca satır eklese b c d sütunlarından hangiisne yazılırsa 2003de o şekilde idi

 

[hamitcan]

Bir de böyle deneyin.

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

 

[gedavet]

Hamit bey ekdeki dosyada denedim oldu teşekkür ederiz ancak bu kodu başka bir çalışmada denemek için nereleri değiştiriyoruz ben sayfa adını değiştirdim olmadı yani sayfa1 yazan yeri değiştirdim başka nereleri değiştirmemiz lazım satır ve sütun farklılıklarını nasıl ayarlıyoruz

 

[hamitcan]

Bu örnekte Sayfa1,tablonun bulunduğu sayfanın ismidir buna göre tablonunuz hangi sayfada ise o sayfa ismini yazmanız gerekiyor.

 

[gedavet]

cvp

iyi günler kodu sayfa1 re yapıştırdıktan sonra kaydet diyorum kayıt yapmıyor
birde bende daah önce bir kod vardı onunla birleştiremedim ekdeki dosyada diğer kod var bu kodlar birleştire bilirmisiniz aynı kod 2003 dede kullanılırmı

 

[hamitcan]

Eki inceleyin.

 

[gedavet]

hamir bey önceki kodlar ile birlikde çalışmasını istiyorum yani aşağıdaki koda şimdiki yazdığınız kodu birleştirmek

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

 

[hamitcan]

Bilgileri silerek dosyanızı ekledim.

 

[gedavet]

hamit bey emeğinize sağlık 10. mezajınızdaki kodla 15. mesajdaki kodları nasıl birleştiriri bir yapı verebilrimisiniz

 

[hamitcan]

Bu kod ile tam olarak ne yapmak istiyorsunuz ?

 

[gedavet]

10 mesajınızdaki ko dişimi görüyor hangi sütuna veri yazılırsa ekliyor güzel 14. Mesajınızdaki kodda ise hangisine tıklayınca yazıyor oda güzel bir örnekde ancak bana 10 mesajınızdaki kod lazım benim çalışmamdaki dosyada önceden 15 mesajdaki dok olduğu içimn çalışmıyor iki beraber çalışsa


2007 DE MAKROLU BİR ÇALIŞMAYI KAYDEDERKEN KAYDETMİYOR NASIL KAYDETMEMİZ LAZIM

 

[hamitcan]

1-İkisinden birini seçmelisiniz. İki kodun mantığı farklı.
2-Dosyayı makrolu olarak kaydet seçeneği var.