veri doğrulamada boşluk silme

[mersilen]

veri doğrulamada boşluk silme kodunu çalıştırabilir miyiz?
Uzman arkadaşların bu konuda ki fikirleri önemli !!! uzun süreli bu konuyu araştırıyorum ve bu konuda yazı bulamadım.
En azından fikir belirtirlerse belki yapabiliriz.Bir çok uygulamada kullanılabilir.

sayfa 2 de
1--- a1:j1 seçip ; giriş/bul ve seç/özel git/boşluklar/tamam deyip boşlukları komple seçince sağ tuş/ sil /sola sürükle deyince boşlukarı siliyor ve dolu hücreleri yanyana yapıyor
ama yine sayfa 2 - a4:j4 de aynısını yaptığımda boş hücreleri seçemiyor (hücrelerde formül var, metin yok; bundan kaynaklanıyor olabilir) bu hücreleri seçip,metin olmayıp formül olan hücreleri seçmeyi başarırsam , veri doğrulamada hücreyi tıklattığımızda listede arada boşluklar olmayacak ve liste yukarıdan aşağı sürekli olanları gösterecek.
2--- her veri doğrulamalı hücreye listeden birde atama yaptığımızda macronun bu kısmı tekrar çalışırsa , geriye dönük
listede oluşan boşluğu sileceğinden liste tekrar olanlarla dolu kalır


sayfa 1 de macro kaydetmekle oluşan boşluk silme kodu aşağıdaki gibi çıkmakta


range("A5:J5").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft

her bilgi girişinde bu kod otomatik çalışırsa olacak gibi!!

 

[mersilen]

sezar beye teşekkür ediyorum

Sayfa1'de sayfa sekmesine sağ tıklayın.
Kodu görüntüleyi seçin
çıkan modüle aşağıdaki kodları yapıştırın.Sonra vbe yi kapatın.Dosyayı kaydedin.
7nci stırdan seçtiğiniz değeri 4ncü satırdan siliyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim hcr As Range
If Intersect(Target, [A7:J7]) Is Nothing Then Exit Sub
For k = 10 To 1 Step -1
If Cells(4, k).Value = "" Then Cells(4, k).Delete xlToLeft
Next
End Sub


vba kodu düzenli çalışıyor