Yazım Düzeni ile Kopyalama

[schlecht]

İyi akşamlar. Aşağıda kod ile kapalı dosyalardan veri kopyalıyorım. Kodu makro kaydet ile elde ettim. Bu koda yazım düzeni (ilk harfler büyük) ve metini sola hizla ekleme yapılabilirmi?

If copy_flag Then
s1.Range("a1:r500").Select

Excel_Uygulama.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Excel_Uygulama.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Excel_Uygulama.Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Excel_Uygulama.Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Excel_Uygulama.Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Excel_Uygulama.Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Excel_Uygulama.Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Excel_Uygulama.Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With

Son = s1.Range("C:C").Cells.SpecialCells(xlCellTypeConstants).Count

 

[Korhan Ayhan]

Bahsettiğiniz işlemleri de makro kaydet ile elde edebilirsiniz.

 

[schlecht]

Korhan Hocam metini sola hizlamayı dediğniz gibi makro kaydet ile çözdüm teşekkürler. Yazım düzenini makro kaydet ile nasıl yapabilirim.

 

[turist]

Makro kaydet ile yaptığınız işlem de makroyu durdurmadan önce

İyi akşamlar. Aşağıda kod ile kapalı dosyalardan veri kopyalıyorım. Kodu makro kaydet ile elde ettim. Bu koda yazım düzeni (ilk harfler büyük) ekleme yapılabilirmi?

Aşağıdaki kod parçasını , kendi kodunuzun son bölümlerinde uygun bir yere ekleyip deneyin.

Dim x As Range
Dim Alan As Range
On Error Resume Next
Set Alan = s1.Range("A1:R500")
For Each x In Alan
x.Value = Application.Proper(x.Value)
Next

Not:
s1.Range("A1:R500")
kısmını sayfanızın istediğiniz alan özelliğine göre değiştirebilirsiniz.

 

[schlecht]

Sayın turist cevabınız için teşekkür ederim. Çalışıyor fakat beklediğimi gibi performanslı olmadı işlem süresi bir hayli uzadı.

 

[turist]

Sayın turist cevabınız için teşekkür ederim. Çalışıyor fakat beklediğimi gibi performanslı olmadı işlem süresi bir hayli uzadı.

Sağolun, beğenmediğiniz, sorun yaratan önerileri(denemeleri) kullanmayabilirsiniz, bu tür öneriler denemeniz için.
Genel kod yapınız ve sadeleştirmeler , düzenlemeler olmadan sonuçları değerlendirmek pek doğru olmayabilir.

 

[Haluk]

Biraz hızlandırmak için, For-Next döngüsü kullanmadan yapmayı deneyin ....

Range("A1:R500") = Application.Proper(Range("A1:R500"))

.

 

[schlecht]

Hocam emeğinize sağlık, beğenmemek değil. Geri bildiğim olarak yazdım. Bu konuyu okuyan ve deneyecekler için yazıyorum genelde. Burda hemen hemen her soruma cevap buluyorum. Belirttiğim gibi kod çalışıyor ama benim dosyamda pek perfonmans alamadım. Kopyalanan veride bir hayli fazla kopyalama süresinin uzamasını bekliyordumda biraz fazla oldu. Yanlış anlaşıldıysam kusura bakmayın.

 

[turist]

Hocam emeğinize sağlık, beğenmemek değil. Geri bildiğim olarak yazdım. Bu konuyu okuyan ve deneyecekler için yazıyorum genelde. Burda hemen hemen her soruma cevap buluyorum. Belirttiğim gibi kod çalışıyor ama benim dosyamda pek perfonmans alamadım. Kopyalanan veride bir hayli fazla kopyalama süresinin uzamasını bekliyordumda biraz fazla oldu. Yanlış anlaşıldıysam kusura bakmayın.

Sağolun, tercih, takdir ve karar sizindir.
Yanlış anlaşılmadınız, nezaketiniz için teşekkür ederim.