sütun genişliği

[ckayaz]

saygıdeğer ustalarım eklemiş olduğum dosyada makro çaılışınca yeni sayfa açıldığında bilgiler atıldığı yeni sayfalarda sütun genişliklerini takrardan kendim ayarlamak zorunda kalıyorum bir türlü düzeltemedim.
2. bir konu ise eklenmiş olan sayfaların içindeki bilgileri 3 er defa atmasını istiyorum makroyu çalıştırınca 2. bir defa atmasını istemiyorum sayfa1 de yeni isim varsa bunu 3 defa atsın daha önceki attıklarını değil.
Bu konuda yardımlarınızı bekliyorum

 

[ckayaz]

herşeyden vazgeçtim yalnızca açılan sayfaların sütun genişiliği lazım

 

[asi_kral]

Merhaba
Bu kodu kendinize göre ayarlayın.

Sheets(Sayfa).Columns("A:A").ColumnWidth = Columns("A:A").ColumnWidth
Sheets(Sayfa).Columns("B:B").ColumnWidth = Columns("B:B").ColumnWidth
Sheets(Sayfa).Columns("C:C").ColumnWidth = Columns("C:C").ColumnWidth
Sheets(Sayfa).Columns("D:D").ColumnWidth = Columns("D:D").ColumnWidth
Sheets(Sayfa).Columns("E:E").ColumnWidth = Columns("E:E").ColumnWidth
Sheets(Sayfa).Columns("F:F").ColumnWidth = Columns("F:F").ColumnWidth
Sheets(Sayfa).Columns("G:G").ColumnWidth = Columns("G:G").ColumnWidth
Sheets(Sayfa).Columns("H:H").ColumnWidth = Columns("H:H").ColumnWidth
Sheets(Sayfa).Columns("I:I").ColumnWidth = Columns("I:I").ColumnWidth
Sheets(Sayfa).Columns("J:J").ColumnWidth = Columns("J:J").ColumnWidth
Sheets(Sayfa).Columns("K:K").ColumnWidth = Columns("K:K").ColumnWidth
Sheets(Sayfa).Columns("L:L").ColumnWidth = Columns("L:L").ColumnWidth

Not : Ekli dosyaya göre sütunları ayarladım.

 

[ckayaz]

çok teşekkür ederim ellerinize saglık

 

[asi_kral]

çok teşekkür ederim ellerinize saglık

Kolay Gelsin.