İstenen kritere göre satır yüksekliği otomatik artsın

[misilak_42]

Merhaba hocalarım. Ekteki dosyada görüleceği üzere A sütununda sıra numarası 1 olan satırların yüksekliği 20 olsun istiyorum. İlginize teşekkür ederim.

http://www.dosya.tc/server35/OikiLl/Otomatiksat_ry_ksekli_i.rar.html

 

[ynmcan]

Sayın. Misilak_42;
Aşağıdaki kod işinizi görürmü?
Ekteki Örnek dosyayı inceleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

For i = 1 To Range("a65536").End(3).Row
For Each yukseklik In Cells(i, 1)

    If yukseklik.Value = 1 Then
        yukseklik.RowHeight = 20
    Else
        yukseklik.RowHeight = 15
    End If
    
Next yukseklik
Next i

End Sub

İş yerindeki bilgisayar internetten veri indirmeye kapalı olduğundan dosyanızı inceleyemedim.

 

[misilak_42]

ynmcan hocam teşekkür ederim. Oldu