Formüllü dolu satırı silince formüllü boş satır oluşturma

[SSAFFAK]

Hocalarım merhabalar; Yardımınıza ihtiyacım var. Ekteki deneme dosyasında "LİSTE" de (personellerden birinin işten ayrıldığını ve yeni personelin başladığını varsayarak) kişi listesinden 6-35 arasında satırı silince otomatik listenin 35. satırına (en alt satıra) formüllü boş satır açtırmak istiyorum. Bunu yaptırmak mümkün müdür acaba.

 

[SSAFFAK]

Değerli hocalarım konu hakkında bir fikir verebilirmisiniz çok önemli.

 

[Ömer]

Merhaba,

Module kopyalayın. Dosyayı kaydedip tekrar açın, Lİste sayfasında satırları seçip sağ klik yaptığınızda "+ , - Yeni Sil Ve Ekle" adında yeni bir menü eklendiğini göreceksiniz. Silme işlemi için bu menüyü kullanın.

Sub Auto_Open()
    Menu
End Sub

Sub Menu()

     Dim cb As CommandBar, MenuObject As Object

     Set cb = Application.CommandBars("row")
     Set MenuObject = cb.Controls.Add(Type:=msoControlButton, before:=7)

     With MenuObject
        .Caption = "+ , - Yeni Sil Ve Ekle"
        .OnAction = "sil_tabloya_ekle"
        .FaceId = 53
     End With

     Set cb = Nothing
     Set MenuObject = Nothing

End Sub

Sub Auto_Close()
    Application.CommandBars("row").Reset
End Sub

Sub sil_tabloya_ekle()
    If ActiveSheet.Name <> "LİSTE" Then Exit Sub
    Dim adr As String, x As Integer, y As Integer
    adr = Selection.Address
    x = Selection.Rows.Count
    y = 35 - x
    Application.ScreenUpdating = False
    Rows(adr).Delete Shift:=xlUp
    Rows(y).Copy
    Rows(y & ":" & y + x - 1).Insert Shift:=xlDown
    Cells(y + 1, "B").Resize(x, 37) = ""
    Application.CutCopyMode = False
End Sub

 

[SSAFFAK]

Ömer hocam elinize emeğinize yüreğinize sağlık. Allah razı olsun. Çok işime yaradı. Çok çok sağolun..

 

[SSAFFAK]

Ömer hocam başınızı ağrıttım. Bişey sormak istedim bu formüle Liste de 1 den 30 a kadar olan sırada bir kişi silindiğinde otomatik olarak listenin en altında bir boş bir satır açması gibi bir formül eklenir mi yada nasıl eklenir.

 

[Ömer]

Sorunuzu tam anlamadım. Mevcut kodlar zaten Liste sayfasında silinen satır kadar listenin altına ekleme yapıyor.

 

[SSAFFAK]

Hocam özür dilerim ama otomatik ekleme yapmadı. Sadece sağ klik ekle ve sil butonu eklendi. Satır eklemeyi yapmıyor.

 

[Ömer]

Satır ekliyor, fakat boş satır eklediği için A sütununa numara gelmiyor. Bundan dolayı yanlış görmüş olabilir misiniz. B sütununa değer girerek gözlemleyiniz.

 

[SSAFFAK]

Hocam nerde yanlış yapıyorum anlamadım. Bende ki listede olmuyor. Size gönderdiğim listeyi açtım onda da olmuyor. Sadece siliyor o kadar. Listenin 35 satırına ekleme olmuyor yani.

 

[Ömer]

Siz silme işlemini benim verdiğim menüden yapıyor musunuz.
Resimleri inceleyiniz.
LİSTE sayfasında 30 ve 31. satırları seçip sağ klik ile "+ , - Yeni Sil Ve Ekle" menüsünü kullanıyorum. 2 satır siliyor.
1. resimde




2. resimde silme işleminden sonra eklenen boş olan 2 satırı görebilir siniz.

 

[SSAFFAK]

Anladım hocam yalnız bendeki "yeni sil ve ekle" butonu çalışmıyor. Onun için ayrıca bir uyarlama yapmam mı gerekiyor acaba.

 

[Ömer]

Hangi sayfada deniyorsunuz.

 

[SSAFFAK]

 

[SSAFFAK]

Deneme sayfası bu yazışmanın üstündeki dosyada denedim ve sizin yazdığınız kodu kendi sayfamdaki dosyada denedim.

 

[Ömer]

Sadece LİSTE sayfasında çalışsın diye kod eklemiştim. Bu satırı silip deneyiniz.

If ActiveSheet.Name <> "LİSTE" Then Exit Sub

 

[SSAFFAK]

Hocam şimdi çalıştı. Çok sağolun.
Çok başınızı ağrıttım. Hakkınızı helal edin Ömer hocam.

 

[Ömer]

Önemli değil. Hakkım varsa helal olsun.