metni kaydırma ile diğer sutunların yükseklikleri sabit kalması

[AHMETMANAV]

merhaba
5000 satırdan oluşan tabloda satırların yüksekliği 30.00 dır.E sutununa eksikler yazılmaktadır. Bu eksiklikler uzun olduğunda metni kaydırmak gerekmektedir. Sadece eksikliklerin yazıldığı satırlara metni kaydır nasıl uygulana bilir?


(Aşağıdaki makroda istediğim oluyor fakat eksiklik yazılmayan satırların yüksekliği standart olan 15.00 olmasını engelleyemedim.?)

Sub Makro2()
Range("E2079:E2759").Select
Selection.RowHeight = 30

Range("E2079:E2759").Select

With Selection
.WrapText = True
End With
Rows("E2079:E2759").EntireRow.AutoFit
End Sub

 

[Emir Hüseyin Çoban]

. . .

Örnek dosya olsa daha net bir çözüm olurdu ama, aşağıdaki kodları deneyiniz.

Sub Makro2()
    Range("E2079:E2759").Select
    Selection.RowHeight = 30

    Range("E2079:E2759").SpecialCells(xlCellTypeConstants, 23).Select
    With Selection
        .WrapText = True
    End With

    Rows("E2079:E2759").EntireRow.AutoFit
End Sub

. . .

 

[AHMETMANAV]

Merhaba
Hüseyin bey cevabınız için teşekkür ederim.
Range("E2079:E2759").SpecialCells(xlCellTypeConstants, 23).Select satırının anlamı nedir?

 

[Emir Hüseyin Çoban]

. . .

E2079:E2759 hücre aralığında dolu olanları seç.

. . .

 

[AHMETMANAV]

teşekkürler

 

[Murat OSMA]

Daha detaylı bilgi için bu konuya bakılabilir; http://www.excel.web.tr/f48/specialcells-konusu-t88850/sayfa2.html

 

[AHMETMANAV]

merhaba
Hüseyin bey kodları bugün uyguladım. Metni kaydır gerçekleiyor.Gewrçekleştikten sonra autofit yapılınca eksiği olmayan diğer satırlarda satır yüksekliği istenilen yükseklikte kalmıyor.(istenilen 30.00 fakat standart 15.00 oluyor)
ilgili dosya

https://www.dropbox.com/s/713cwv1l18nuz4r/ONAYDAN GELEN ABONE OLACAK DOSYALAR.xlsm

şifre ahmet

Murat bey ilgili linkinizi inceledim.İçlerinde yabancı kaynaklarda vardı. Değişik bir konu.

 

[Emir Hüseyin Çoban]

. . .

VBA penceresi parola korumalı olduğu sürece yapabilecek birşey yok.

. . .

 

[AHMETMANAV]

VBA penceresi parola korumalı olduğu sürece yapabilecek birşey yok.
şifresi ahmet
7 nolu mesajımda şifreyi hangi şifre olduğunu belirtmemişim.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Range("E2079:E2759").RowHeight = 30

    For i = 2079 To 2759
        If Cells(i, "E") = "" Then
        Else
            Cells(i, "E").WrapText = True
            Cells(i, "E").EntireRow.AutoFit
            If Cells(i, "E").RowHeight < 30 Then
                Cells(i, "E").RowHeight = 30
            Else
            End If
        End If
    Next i

    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

. . .

 

[AHMETMANAV]

Emeğine sağlık çok teşekkür ederim