Üstteki Satırı Silip Altını Çizme

[desiqn-er]

Arkadaşlar yardımınıza ihtiyacım var. Şimdi elimde bi dosya yaklaşık 3-4 sayfa full veri zaten ekteki dosyada bir kısım örnek olarak verdim.

Yapmak istediğim şu bu sayfalarda ayrı ayrı ürünler var ve ürünün çeşitleri var asıl konu bunların arasında boşluklar var ben bu boşluğu silip altınız ince çizgi yani kesik çizgi ile çizeceğim bende makro var yazılı halde ama sorun veriyor yanlış yeri çiziyo yine ben o makroyuda buraya yazıyorum. Örneğe Bakınca ne demek istediğimi tam olarak anlayacaksınız şimdiden ilgileriniz çok tşk ederim.

Sub HUCRESİL()
Selection.Cells.EntireRow.Delete Shift:=xlUp
Call inceCiz
End Sub

Sub inceCiz()
sutunlar = Array("", "B", "C", "D", "E", "F")
adres = Split(Selection.Cells.Address, "$")(2)
For i = 1 To 5
Range(sutunlar(i) & adres).Borders(xlEdgeBottom).Weight = xlSolid
Next
End Sub

 

[hamitcan]

Sub sil()
son = [B65536].End(3).Row
For x = son To 1 Step -1
If IsEmpty(Cells(x, "b")) Then Rows(x).Delete
Next
End Sub

şeklinde deneyin.

 

[desiqn-er]

ilginiz için tşk ederim fakat ben her sadece seçtiğimde boşluk kalksın istiyorum yani sadece çalıştırdığımda son boşluklar gitsin istemiyorum bide altınız kesik çizgi ile çizmesi gerek ama :S tekrar yardımcı olursanız çok sevineceğim..

 

[hamitcan]

Biraz daha açık yazabilir misiniz ? Tam olarak anlayamadım. Yada bir örnek verin.

 

[desiqn-er]

eğer mümkünse excel dosyasına bi bakarsan oraya ekledim daha net anlarsın istediğimi şimdi şöyle örnek veriym aşağıdakini istiyorum.

A
1

B
2

C
3

şimdi böyle veriler var ben bi makro olsun istiyorumki boşluğu tuttuğumda boşluğu silicek ve hemen üstüne bi kesik çizgi atıcak bu kesik çizgileri B-C-D-E-F sütunlarında olacak A sütununda olmayacak yani son hali şu olacak

A
1
--------------------------------
B
2
--------------------------------
C
3

daha iyi anlatabildim umarım tekrar tşk

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub HUCRESİL()
Selection.Cells.EntireRow.Delete Shift:=xlUp
Call inceCiz
End Sub

Sub inceCiz()
Range("B" & ActiveCell.Row & ":F" & ActiveCell.Row).Borders(xlEdgeTop).Weight = xlSolid
End Sub

 

[desiqn-er]

yardımın için çok tşk ederim kardeş tam istediğim gibi oldu ellerine sağlık