Otomatik satır yüksekliği

[mozuer]

YA1 sayfasında Gerekçesi (7.Satır) ve BİRİM FİYATA DAHİL OLAN MASRAFLAR (17.Satır) ların doldurulduktan sonra otomatik olarak satır yüksekliği ayarlanabilir mi?

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
YA1 sayfasının kod bölümüne aşağıdaki kodları yapıştırarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D7]) Is Nothing Then GoTo ff
Rows("7:7").EntireRow.AutoFit
ff:
If Not Intersect(Target, [A17]) Is Nothing Then
On Error Resume Next
If Target = "" Then Exit Sub
Rows("17:17").EntireRow.AutoFit
Else
End If
End Sub

. . .

 

[mozuer]

Sn.huseyincoban;
verdiğiniz kodu denedim, otomatik olarak satır yüksekliği değişmiyor.

 

[Emir Hüseyin Çoban]

Sn.huseyincoban;
verdiğiniz kodu denedim, otomatik olarak satır yüksekliği değişmiyor.

. . .

7. ve 17. satıra veri girişi yaptıktan sonra, bu satırların kendiliğinden veriye göre yüksekliğini ayarlamak mı istiyorsunuz ?

Eğer öyle ise yukarıda verdiğim kodlar bu işlemi yapar.

Kodları uyguladığınız örnek dosyanızı ekleyin, kontrol edelim.
Not: Makro güvenlik seviyesini düşük olarak ayarlayın.
Tablo uzantınızı .XLS ( makro çalıştıran uzantı) olarak değiştirin.

. . .

 

[mozuer]

sn.huseyincoban;
İlginize teşekkür ederim. Örneği gönderiyorum.

 

[mozuer]

Arkadaşlar yardımlarınızı bekliyorum.

 

[Emir Hüseyin Çoban]

Arkadaşlar yardımlarınızı bekliyorum.

. . .

Merhaba.
Satır sayısını en fazla ne kadar olabilir ?
Bülent Öztürk' ün bir çalışmasını tablonuza göre revize ettim.
6 satırlık metinler için uygun olarak çalışacaktır. İnceleyiniz.

. . .