Sütun sil

[Ahmet Sami]

Arkadaşlar elimde aşağıdaki gibi bir kod var bu kodu uyguladığım zaman tüm satırı siliyor. Sizden istediğim yardım. VERİLER sayfasında A, B, C, D, E, sütunlarında da verilerim var benim istediğim ANASAYFA E10 da yer alan bilgilin VERİLER sayfasındaki sadece A sütundaki verinin silinmesi ve silinen hücrenin yukarıya birleşmesi yani arada boşluk kalmaması. Yalnız diğer sütunlardaki verilerim aynı kalacak silme işlemi yapılmayacak.


Sub satırsil() 'e10 na göre silecektir'
Dim k As Range, sh As Worksheet, deg As Variant
Set sh = Sheets("VERİLER")
Sheets("ANASAYFA").Select
Set k = sh.Range("A2:A" & Rows.Count).Find(Range("E10").Value, , xlValues, xlWhole) 'A sütununa göre silinecek'
If Not k Is Nothing Then
deg = k.Value
If MsgBox(k.Value & vbLf & "Silinsinmi?", vbYesNo, "SATIR SİL") = vbNo Then
MsgBox "[ " & k.Value & " ] Silinmedi!", vbCritical, "UYARI"
Else
k.EntireRow.Delete
MsgBox "[ " & deg & " ] Silindi.", vbOKOnly, "SİLİNDİ"
End If
Else
MsgBox "[ " & Range("E10").Value & " ] bulunmadı!!", vbCritical, "UYARI"
End If
End Sub

 

[Ömer]

Merhaba,

k.EntireRow.Delete

yerine;

k.Delete Shift:=xlUp

yazarak deneyiniz.

 

[Ahmet Sami]

Ömer bey çok teşekkür ederim sağolun.