Kenarlıkla beraber

[mcetinkaya65]

Stenizde koşullu biçimlendirme ile kenarlık çizme konusunda bir çalışma buldum. Çok güzel.
Fakat benim istediğim Adı Soyadı ,Tarih,formül ve toplam gibi bilgilerin üstdeki hücrelere veri girildikçe ötelenmesi
veriler silindikçe geri yukarı kayması mümkün mü?
Saygılarımla..

 

[mcetinkaya65]

Syın üstadlarım;
Stenizden çok şeyler öğrendim.Yardımlarınızla kendime özgü bazı proğramlar yaptım.Sağ olun var olun.Fakat bu son soru excel mantığına uymuyor mu? Yoksa çok soru sorarak sizlerin sabrını mı zorladım? Soru sorma şeklim mi yanlış anlayamadım.Hatam varsa affınıza sığınıyorum.
Saygılarımla..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target = "" Then
        Target.EntireRow.Delete
    Else
        Target.Offset(1, 0).EntireRow.Insert
    End If
Son: Application.EnableEvents = True
End Sub

 

[mcetinkaya65]

Sayın hocam ilginize teşekkür ederim.
Veriler tek tek yazılıyor ve öteleme tamam,fakat veriler silinirken tek tek silmede problem yok, 2 ve daha fazla veri silinirse yukarı kayma çalışmıyor.

 

[mcetinkaya65]

Sayın hocam ilginize teşekkür ederim.
Veriler tek tek yazılıyor ve öteleme tamam,fakat veriler silinirken tek tek silmede problem yok, 2 ve daha fazla veri silinirse yukarı kayma çalışmıyor.

Değerli üstadlarım,
lütfen yardım.

 

[Korhan Ayhan]

Merhaba,

Toplu seçimlerde nasıl silinmesini istiyorsunuz. Diyelimki kullanıcı alttaki silinmemesi gereken satırlarıda seçti. Bu durumda silme işleminde bu satırlarda silinecek. Tehlikeli bir durum sözkonusu...

 

[mcetinkaya65]

A stunundan nekadar alttan fareyle seçersek ve delete tuşuna bastığımızda seçili olanların silinmesi.
Saygılarımla..