Soru MAkro ile tabloda belli sütunlara alt çizgi çekmek

[nes432]

merhaba,

makro ile belli satırlar arasına çizgi çekmek istiyorum kopyala biçimleri yapıştır yaptığım zaman tablom bozuluyor mümkün mü bu durum?
detaylı açıklama tabloda yer almakta.

yardımcı olacak arkadaşlara teşekkür ediyorum

http://s7.dosya.tc/server15/qivvh7/deneme_-_Kopya.xlsx.html

 

[muygun]

Merhaba;
Tablonuzda birleştirilmiş hücrelerin devamına çekmek istediğiniz çizgiler için bişleştirme işleminde bazı hücreler 10 satır bazıları ise 11 satır. (verilerinizde bu şekilde farklılıklar olabileceğini düşünerek tablonuzda değişiklik yapmadan aynen kullandım)
Bunun için A sütununda veri varlığına bakarak çizgi oluşturdum.
Deneyin.
İyi çalışmalar.

Link:
https://dosya.co/7d1ymvfg7g9b/nes432-deneme_-_Kopya.rar.html

 

[nes432]

Merhaba;
Tablonuzda birleştirilmiş hücrelerin devamına çekmek istediğiniz çizgiler için bişleştirme işleminde bazı hücreler 10 satır bazıları ise 11 satır. (verilerinizde bu şekilde farklılıklar olabileceğini düşünerek tablonuzda değişiklik yapmadan aynen kullandım)
Bunun için A sütununda veri varlığına bakarak çizgi oluşturdum.
Deneyin.
İyi çalışmalar.

Link:
https://dosya.co/7d1ymvfg7g9b/nes432-deneme_-_Kopya.rar.html

teşekkür ederim emeğiniz için. 10 gibi görmüştüm tekrar baktım evet 11 satırlarda var. İndiremiyorum özel üye değilim. dosyada makro mu var yoksa oluşturup mu eklediniz makro ile çizgi çekilebiliyor mu?

 

[çıtır]

Alternatif olsun

Sub cızgı()
Dim i As Integer
Set s1 = Sheets("hgh")
For i = 8 To 22
s1.Range(Cells(2, i), Cells(3774, i)).Borders(xlEdgeRight).LineStyle = xlContinuous
Next i
For i = 2 To 3774
s1.Range(Cells(i, 8), Cells(i, 22)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Next i
End Sub

 

[nes432]

teşekkür ederim emeğinize sağlık ama sadece dış kenarlık çizilecek iç hücreler boş olacak. Onu nasıl ayarlayabiliriz. H3-W12 aralığındaki gibi sadece ana kenarlıklar olacak. çok sordum sanırım

 

[çıtır]

Sub cızgı()
Dim i As Integer
Set s2 = Sheets("hgh")
s2.Select
For i = 2 To 3774 Step 10
s2.Range(Cells(i, 8), Cells(i, 22)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Next i
End Sub

step 10 cizgi aralarına göre ayarlayınız.

 

[muygun]

Dosyayı verdiğim harici link ten indirebilirsiniz.
sayfanın kod bölümünde yazılan makroyu görebilirsiniz.

 

[nes432]

Dosyayı verdiğim harici link ten indirebilirsiniz.
sayfanın kod bölümünde yazılan makroyu görebilirsiniz.

farketmemişim onu teşekkür ediyorum

 

[nes432]

Sub cızgı()
Dim i As Integer
Set s2 = Sheets("hgh")

For i = 2 To 3774 Step 12
s2.Range(Cells(i, 8), Cells(i, 22)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Next i
End Sub

teşekkürler

 

[çıtır]

teşekkürler

Step 10 veya 11 cizgilerin arasına göre ayarlayınız.Dönüş yaptığınız için teşekkür ederim.

 

[nes432]

Step 10 veya 11 cizgilerin arasına göre ayarlayınız.Dönüş yaptığınız için teşekkür ederim.

Buldum zaten uğraşa uğraşa çok çaylağım ama böyle ara ara ufak ufak işin bana bırakılması da beni geliştiriyor teşekkür ediyorum tekrar.

Muygunun linki burdan indirmeme izin vermedi iş yerim engelli eve geçince onun çalışmasıyla da kıyaslayacağım inşallah