Soru Sütun Genişliğini sabitleme

[dengeceteris]

Arkadaşlar herkese günaydın.. bir sorum olacaktı;

Dosyamda bazı sayfaları başka dosyalardan çekiyorum veya bazı sütunlarda işlem yapıyorum. Ama bu makro her çalıştığın da sütun genişliğini sütunun başında ki tanımın uzunluğuna göre ayarlıyor. Ben buraları düzenlerken Metni kaydır ve ortala şeklinde ayarlıyorum ama sonuçta başlık uzunsa tekrar değiştiriyor. Bu şekilde 52 sütun var bunu sabitlemenin yolu nedir acaba ?

 

[YUSUF44]

Hangi makro ve hangi dosya?

 

[bmutlu966]

Makronuzun içerisinde aşağıda örneğini verdiğim gibi bir kod bu işlemi yapıyordur. Bu codu bulup kaldırın. Sonra da kolonlarınızı kendi isteğinize göre formatlayın.

Columns("A:AX").EntireColumn.AutoFit

 

[dengeceteris]

Yusuf hocam dosya fazlaca büyük bir protipini ayrıca kaydetmemiştim. birde özel bilgiler mevcuttu temizlemeye kalksam çok vakit alacak. Onun için yüklemedim. Ama aşağıdaki kodların çalıştığı sayfalarda yapıları bozuyor. (bu şekilde 6 sayfam var) sayın bmutlu966 yazdığınız kodu bulamadım. Bulsam bile bir yeri etkiler mi bilmiyorum.

Sub Anakod_Aktar()
Dim Dosya As String, Baglanti As Object, Sorgu As String
Dim Kayit_Seti As Object, Sayfa As Worksheet, Zaman As Double
Dim Hedef_Sayfalar As Variant, Kaynak_Sayfalar As Variant, x As Byte


Zaman = Timer

Set Baglanti = CreateObject("AdoDb.Connection")

Dosya = ThisWorkbook.Path & Application.PathSeparator & "MİZANLAR.xlsm"

Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _
Dosya & ";Extended Properties=""Excel 12.0;Hdr=Yes"""

Hedef_Sayfalar = Array("ANAKOD")
Kaynak_Sayfalar = Array("DETAYMİZAN")

For x = 0 To UBound(Hedef_Sayfalar)
Set Sayfa = Sheets(CStr(Hedef_Sayfalar(x)))
Sayfa.Range("A2:AI" & Rows.Count).ClearContents

Sorgu = "Select [HESAP KODU],[HESAP İSMİ],[ANA HESAP], null,[MÜNFERİT 1 BORÇ],[MÜNFERİT 1 ALACAK],[BAKİYE 1], null,[MÜNFERİT 2 BORÇ] , [MÜNFERİT 2 ALACAK], [BAKİYE 2],null, [MÜNFERİT 3 BORÇ], [MÜNFERİT 3 ALACAK],[BAKİYE 3], null,[KONSOLİDE 1 BORÇ],[KONSOLİDE 1 ALACAK],[BAKİYE 4],null,[KONSOLİDE 2 BORÇ],[KONSOLİDE 2 ALACAK],[BAKİYE 5],null,[KONSOLİDE 3 BORÇ],[KONSOLİDE 3 ALACAK],[BAKİYE 6],null From [" & Kaynak_Sayfalar(x) & "$]"

Set Kayit_Seti = Baglanti.Execute(Sorgu)

Sayfa.Range("A2").CopyFromRecordset Kayit_Seti

Sayfa.Columns.AutoFit
Next

Kayit_Seti.Close
Baglanti.Close

Set Kayit_Seti = Nothing
Set Baglanti = Nothing
End sub

 

[YUSUF44]

Şu satır:

Sayfa.Columns.AutoFit

 

[dengeceteris]

Bütün sayfalardan bunu silmem mi lazım

 

[YUSUF44]

Bu satır o an işlem yapılan sayfadaki sütunları otomatik genişletiyor. Her sayfa için ayrı makronuz yok anladığım kadarıyla, bu makroyla tüm sayfalarda işlem yapıyorsunuz. Dolayısıyla makrodaki bu satırı silmeniz yeterlidir.

Aynı işlemi yapan başka makrolarınız varsa ve onlarda da iptal etmek istiyorsanız edebilirsiniz.

 

[dengeceteris]

Tşk ederim üstadlar uyguladım..