Hesap kodlarının düzeltilmesi

[1903emre34@gmail.com]

Merhaba,

Hesap no altındaki 100.00,102.00 vs. onların altındaki alt kıvrımlarını sayfa2'deki gibi (istenen sayfa) gelmesi için nasıl kod oluşturabiliriz.

 

[askm]

Yapmak istediğinizi anlamadım. Ama aradaki fark sadece A sütunundaki biçimlendirmeden kaynaklı. A sütununu seçip sağ tıklayın metin olarak biçimlendirin. Sayfa2 deki gibi aradaki noktalar ve virgüller olmadan karşınıza gelecektir.

 

[YUSUF44]

İki sayfa arasında hücre biçimleri dışında içerik olarak bir fark göremedim. Ya da ben mi göremedim?

 

[igultekin2000]

açıklama

İki sayfa arasında hücre biçimleri dışında içerik olarak bir fark göremedim. Ya da ben mi göremedim?

arkadaş programdan döküm aldığında alt kıvrımlar #### şeklinde geliyor, onu olması gerektiği hale 102000010 vb gibi hale makro ile getirmek istiyor. sürekli yeni döküm aldıkça kopyala, metne çevir gibi işlemi daha basite indirmek istiyor.

 

[Asri]

Makro kaydet, hücre biçimlendirme ile kod oluşturulabilir
Aşağıdaki şekilde deneyiniz.

Sub Makro1()
    Columns("A:A").Select
    Selection.NumberFormat = "@"
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A3").Select
End Sub