Değişken hücre sayısına göre sütun genişliği ayarlama

[onurdogan]

Merhaba,
Ekteki dosya ile sorum daha açıklayıcı olacaktır muhakkak. Değişken sayıdaki hücrelere göre, sondaki hücrelerin sütun genişliğini ayarlamak ile ilgili bir sorum var. Yardımlarınızı bekliyorum.

 

[Muzaffer Ali]

Aşağıdaki kod işinizi görür mü?

    Columns("W:Z").Select
    Selection.ColumnWidth = 5.5

Ya da

Columns("W:Z").ColumnWidth = 5.5

 

[onurdogan]

Maalesef görmez. Her zaman 1,22 'lik hücre 8 tane olsa görürdü. Ama 1,22'lik hücre sayısı değişken. Her zaman W-Z sütunlarına denk gelmeyecek. Bunu göz önünde bulundurarak bir makro bulmak lazım.

 

[onurdogan]

Arkadaşlar konu benim için önemli. Yüksek lisans bitirme tezimde kullanıcam ve bu hafta hocama göstermem gerekiyor. Yardımlarınızı bekliyorum.

 

[Muhammet Okumuş]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) Then
Target.ColumnWidth = 1.22
Else
Target.ColumnWidth = 5.5
End If
End Sub

Bu kodu deneyiniz.

 

[onurdogan]

Hocam,
1. Buradaki ifadeleri ayırt edilmesi kolay olsun diye sayı ve harflerden verdim. Aslında sütunların hepsi metinlerden oluşuyor. Isnumerik fonksiyonu olmaz galiba buraya.

2. Ayrıca buradaki Target.ColumnWidth = 1.22 satırında hata veriyor. object required hatası...