Kapalı dosyalarda satır/sütun genişlik yükseklik ayarı.

[Bora K]

Merhabalar.
D/klasör/klasör/excel.xls.Bora sayfası
D/klasör/excel.xls.Bora sayfası

Şeklinde dosyalarım var. Ben bu dosyalar kapalı iken sütun ve satırlarında
yükseklik ve genişlik ayarlamalarını yapmak istiyorum.

Bununla ilgili webde kod bulamadım maalesef.
Yardımlarınızı bekliyorum.

 

[asi_kral]

Merhaba
Bu iki dosya tamamen kapalı iken mi yapılacak bu işlem_?
Satır ve sütun ayarlarını siz elle mi gireceksiniz_?

 

[Bora K]

Merhaba Asi Kral.

Satır ve sütun ayarlarını siz makroda belirteceksiniz.
..... sütunu ..... değerinde
..... sütunu ..... değerinde
..... satırı ..... değerinde
..... satırı ..... değerinde
diye bende isteğim değerleri vereceğim.
Miktarı artırıp çoğaltabileceğim. Opsiyonel olacak yani.

Dosya sayısı ise 2 tane değil.
Makro sadece "Bora" sayfasında çalışacak.
Bora sayfasanıın adresini belirtmek için yazdım bu yolu.
D/klasör/klasör/excel.xls.Bora sayfası
D/klasör/excel.xls.Bora sayfası

excel.xls ler ise
her klasörde ortalama 50 60 adet.

umarım anlaşılmıştır.

Edit: Dosyalar gizli açılıp değiştirilip kapatılabilir.
sorun değil.

 

[asi_kral]

Örnek olarak gönderebilir misiniz_?
Ayrıca bu ölçüleri siz nereden alacaksınız yoksa ben Inputbox mu yapayım_? ( Inputbox = Makro çalışırken veri girişi yapmanızı sağlayan bir formdur. )

 

[Bora K]

Mehmet Bey.
Boş bir excel sayfası açıp yazdığınız kodu
modüle yapıştıracağım.

Kod benim D sürücüsündeki Klasör alt klasör ne kadar
xls. dosya varsa tarayacak. "Bora" sayfası olan dosyaları açacak
aşağıdaki değişiklikleri yapıp tekrar kapatacak.

"A" sütunu genişliğini "10" yap
"B" sütunu genişliğini "15" yap
"c" sütunu genişliğini "20" yap
"12" satır yüksekliğin "11" yap
"50" satır yüksekliğin "22" yap
"100" satır yüksekliğin "33" yap

 

[asi_kral]

İyide bu ölçüler değiştiğinde her seferinde kodla mı oynayacaksınız ben onu sormak istiyorum.

 

[Bora K]

Alakanız için teşekkür ederim üstad.
Üstteki kriterler dahilinde yazılacak kod fazlası ile işimi görecektir.
Inputbox a gerek yok.

 

[asi_kral]

Alakanız için teşekkür ederim üstad.
Üstteki kriterler dahilinde yazılacak kod fazlası ile işimi görecektir.
Inputbox a gerek yok.

Kaç farklı klasör var bunların yollarını bildirir misiniz_?

 

[Bora K]

Kapalı dosyalarda satır ve sütun ebatlarına müdahale.

Merhaba Asi Kral.
Klasör sayısı fazla. Yukarıda da yazdığım gibi
D/klasör/klasör/excel.xls
D/klasör/excel.xls şeklinde bulunuyorlar. Klasörlerin konumu bu şekilde. xls lerin içinde "Bora"
sayfası olanları bulacağız ve bahsettiğim değişiklikleri yapacağız. Eğer yanlış anladığım birşey
var ise özür dilerim. Bilgim dahilinde size yanıt verebiliyorum.

 

[asi_kral]

Merhaba Asi Kral.
Klasör sayısı fazla. Yukarıda da yazdığım gibi
D/klasör/klasör/excel.xls
D/klasör/excel.xls şeklinde bulunuyorlar. Klasörlerin konumu bu şekilde. xls lerin içinde "Bora"
sayfası olanları bulacağız ve bahsettiğim değişiklikleri yapacağız. Eğer yanlış anladığım birşey
var ise özür dilerim. Bilgim dahilinde size yanıt verebiliyorum.

Ben şundan bahsediyorum
D:\klasör\Klasör\
D:\klasör\Klasör\Klasör\
D:\klasör\Klasör\Klasör\Klasör

Şeklinde kaç farklı yol var. Bu yolları koda tanıtmam gerekli ki o klasördeki dosyalara baksın

 

[Bora K]

Merhaba Asi Kral
2 tür
D:\klasör\Klasör\
D:\klasör\
şeklinde.

 

[asi_kral]

Merhaba Asi Kral
2 tür
D:\klasör\Klasör\
D:\klasör\
şeklinde.

Merhaba
Boş bir module ekleyip dener misiniz_?

Option Explicit
Sub ayarlama()
Dim YOL As String, DSY As String, SY As Long, S1 As Worksheet, HT As Variant
Dim XCL As Application, KTP As Workbook
Set XCL = CreateObject("Excel.Application")
XCL.Visible = False
On Error Resume Next
Application.ScreenUpdating = False
For SY = 1 To 2
If SY = 1 Then
YOL = "D:\klasör\klasör\"
Else
YOL = "D:\klasör\"
End If
DSY = Dir(YOL & "*.xls?")
Do While DSY <> Empty
Set KTP = XCL.Workbooks.Open(YOL & DSY)
Set S1 = KTP.Sheets("Bora")
S1.Columns("A:A").ColumnWidth = 10: S1.Columns("B:B").ColumnWidth = 15
S1.Columns("C:C").ColumnWidth = 20: S1.Rows("12:12").RowHeight = 11
S1.Rows("50:50").RowHeight = 22: S1.Rows("100:100").RowHeight = 33
KTP.Save: KTP.Close: XCL.Quit
DSY = Dir
Loop
Next
Application.ScreenUpdating = True
End Sub

 

[Bora K]

Çok teşekkür ederim.
Sayın Asi Kral
Ellerinize sağlık.

 

[asi_kral]

Çok teşekkür ederim.
Sayın Asi Kral
Ellerinize sağlık.

Kolay Gelsin.