Alınan verilerin aynı hizaya gelmesi

[1Al2Ver]

Merhaba,

Makro ile alınan verilerin aynı hizaya gelmesi için, kod'da gerekli düzenlemeyi rica ediyorum,

Teşekkür ederim.

 

[halit3]

SÜTUN = 7
kodunun aşağıdaki prosüdürden sonra başlaması için değiştiriniz.

For B = 4 To [C65536].End(3).Row
SÜTUN = 7

 

[1Al2Ver]

SÜTUN = 7
kodunun aşağıdaki prosüdürden sonra başlaması için değiştiriniz.

Merhaba sayın halit3,

Çözüm için teşekkür ederim,

Sıralama halloldu, silinme esnasında çizgiler de sabit kalabilir yada veri yenilendiğinde çizgi atılabilirse memnun olurum.

Teşekkür ederim.

 

[halit3]

Merhaba sayın halit3,

Çözüm için teşekkür ederim,

Sıralama halloldu, silinme esnasında çizgiler de sabit kalabilir yada veri yenilendiğinde çizgi atılabilirse memnun olurum.

Teşekkür ederim.

Cells(C, SÜTUN) = Cells(3, A)

bundan sonra

aşağıdaki kodları ilave ediniz.

Cells(C, SÜTUN).Borders(xlDiagonalDown).LineStyle = xlNone
Cells(C, SÜTUN).Borders(xlDiagonalUp).LineStyle = xlNone
Cells(C, SÜTUN).Borders(xlEdgeLeft).LineStyle = xlContinuous
Cells(C, SÜTUN).Borders(xlEdgeTop).LineStyle = xlContinuous
Cells(C, SÜTUN).Borders(xlEdgeBottom).LineStyle = xlContinuous
Cells(C, SÜTUN).Borders(xlEdgeRight).LineStyle = xlContinuous

 

[1Al2Ver]

Cells(C, SÜTUN) = Cells(3, A)

bundan sonra

aşağıdaki kodları ilave ediniz.

Cells(C, SÜTUN).Borders(xlDiagonalDown).LineStyle = xlNone
Cells(C, SÜTUN).Borders(xlDiagonalUp).LineStyle = xlNone
Cells(C, SÜTUN).Borders(xlEdgeLeft).LineStyle = xlContinuous
Cells(C, SÜTUN).Borders(xlEdgeTop).LineStyle = xlContinuous
Cells(C, SÜTUN).Borders(xlEdgeBottom).LineStyle = xlContinuous
Cells(C, SÜTUN).Borders(xlEdgeRight).LineStyle = xlContinuous

Sayın halit3 merhaba,

Çözüm ve zahmetleriniz için teşekkür ederim,

Saygılarımla.

 

[halit3]

İyi çalışmalar

 

[gedavet]

Halit bey benim konuya yardımcı olabilirmisiniz