sütun ve satırların ölçülerinin değiştirilmesi

[zırzır]

Arkadaşlar excel sayfamdaki verileri aktarırken bazı sütun ve satırların ölçülerini
değiştirmem gerekiyor.Aşağıdaki formülde sayfanın bütün satır ve sütunlarını
değiştirebiliyorum.Benim istediğim (a1:a30) aralığını ayrı, (b1:ed100) aralığını
ayrı satır ve sütun ölçülerini değiştirebilmem.

With Sheets("AS")
.Range("b36:ak78") = Empty
.Cells.ColumnWidth = 3.85
.Cells.RowHeight = 12.75
End With

Bu formülü nasıl düzeltebilirim.

 

[Orion1]

With Sheets("AS")
    .Range("b36:ak78") = Empty
    .Range("A:A,B:ED").EntireColumn.ColumnWidth = 3.85
    .Range("A1:A30").EntireRow.RowHeight = 12.75
    .Range("B1:ED100").EntireRow.RowHeight = 12.75
End With

 

[zırzır]

Sayın üstadım, yukarıdaki formülde A:ED aralığının sütun genişliği
3.85 olmuş.A1:A30 yani A sütununun genişliği ile B1:ED100 aralığını ise farklı
ayarlayabilmeliyim.

 

[Orion1]

Sayın üstadım, yukarıdaki formülde A:ED aralığının sütun genişliği
3.85 olmuş.A1:A30 yani A sütununun genişliği ile B1:ED100 aralığını ise farklı
ayarlayabilmeliyim.

With Sheets("AS")
    .Range("b36:ak78") = Empty
    .Range("A:A").EntireColumn.ColumnWidth = 3.85
    .Range("B:ED").EntireColumn.ColumnWidth = 15
    .Range("A1:A30").EntireRow.RowHeight = 12.75
    .Range("B1:ED100").EntireRow.RowHeight = 12.75
End With

 

[zırzır]

Sayın üstadım.ellerinize sağlık istediğim gibi olmuş.Teşekkürler.

 

[Orion1]

Sayın üstadım.ellerinize sağlık istediğim gibi olmuş.Teşekkürler.

Rica ederim.
İyi çalışmalar.