Makro ile kolon genişliğini sabitlemek

[hakan439]

arkadasşlar, mdb dosyasında tutulan rapor niteligindeki tabloları bir excel dosyasından cagiriyorum. ancak excel de cagırdıgım zaman bazı kolonların genişliği oynuyor ve kaymalar yasıyorum. excel dosyamın her acılısta makro ile bazı kolonları benim istedigim genişlige ayarlamasını nasıl saglarım? (baska kod bulunmamakta excel dosyamda)

 

[zafer]

Merhaba

Dosyanızın Kod sayfasına yapıştırınız.

Sub Auto_open()
     Sheets(" sayfa İsmi").Select  ' dosya açıldığında seçilecek sayfa ismi
    Columns("A:A").ColumnWidth = 15.14 ' sadece A kolu için genişlik
 
    Columns("F:K").ColumnWidth = 14.71 ' F ve K kolonları dahil genişlik
End Sub

 

[Seyit Tiken]

Uygun olan örnek kodu kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
[e1].EntireColumn.AutoFit
End Sub

Sub Düğme1_Tıklat()
[f1].ColumnWidth = 20
End Sub

 

[hakan439]

Cook tesekkurler

 

[hakan439]

peki row ları nasıl sabitleriz, kodları row olcak sekilde dgistirdim ama dubug yaparken hata verdi. kodda baska degisikliklerde tyapmam gerek sanırım