Silinen hücreyi doldurma

[msinan987]

Arkadaşlar benim yapmak istediğim örnek dosyadada belirttiğim gibi il isimlerinin bulunduğu bir listem var. Ben bu listeden herhangi bir ilin ismini sildiğimde il isimleri bir hücre kayarak boş olan hücreyi doldursun.yalız Hücre silerek değilde, hücrenin içindeki veriyi silerek yapmasını istiyorum.Böyel bir şey nasıl yapabilirim. Bu konuda yardımcı olursanız sevinirim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?
Doğru anlayıp anlamadığımdan emin değilim. Delete tuşuna basınca siliyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target = "" And Target.Offset(1, 0) <> "" Then Target.Delete Shift:=xlUp
End Sub

 

[msinan987]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?
Doğru anlayıp anlamadığımdan emin değilim. Delete tuşuna basınca siliyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target = "" And Target.Offset(1, 0) <> "" Then Target.Delete Shift:=xlUp
End Sub

Çok teşekkür ediyorum arkadaşım. Sorunuma hemen çözüm buldunuz.Emeğinize yüreğinize sağlık.Ayrıca Birşey daha sormak istiyorum. Bu işlemi formül ile de yapma imkanımız varmı.

 

[ünal karadavut]

sayın Necdet_Yesertener
tüm saktırı ya da B sütunundan H sütununa kadar silmek istediğimizde nasıl bir makro yazılmalı.

 

[Necdet]

Bu işlemi formül ile de yapma imkanımız varmı.

Satır-Sütun(hücre) silme gibi işlemler malesef fonksiyonlarla olmuyor.

Sayın Ünal Karadavut,

Aşağıdaki kodları deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B][COLOR=red][B:H])[/COLOR][/B] Is Nothing Then Exit Sub
If Target = "" And Target.Offset(1, 0) <> "" Then
    [COLOR=red][B]Range("A" & Target.Row & ":H" & Target.Row)[/B][/COLOR].Delete Shift:=xlUp
End If
Son:
End Sub

 

[msinan987]

Çok teşekkür ettim bilgilendirdiğiniz için.İyi çalışmalar diliyorum.

 

[Necdet]

Merhaba,

Kırmızı yazılan sütun kodlarını ayarlarsanız hangi sütunlarda çalışacağını belirtmiş olursunuz.

Tüm satırı silmek için :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B][COLOR=red][B:B][/COLOR][/B]) Is Nothing Then Exit Sub
If Target = "" Then Rows(Target.Row).Delete
Son:
End Sub

 

[msinan987]

Teşekürler. Eline yüreğine sağlık. Kolay gelsin.