Satır Yüksekliğinin Otomatik Değişimi hk.

[Vhailor]

Arkadaşlar herkese hayırlı geceler.

Sorunum şu: Eğer A1 hücresi=0 ise, A sütununun satır yüksekliğinin 0,01 cm.ye düşmesini, eğer ki 0dan büyük hale dönerse, tekrar normal satır yüksekliğini almasını istiyorum.

Yardımcı olabilirseniz çok memnun olurum.

Hayırlı geceler.

 

[Vhailor]

Arkadaşlar konu hakkında bir fikri olan var mı?

Filtre kullanmaya çalıştım ama uygulamada aynı sayfa içerisinde alt alta 3 farklı tablo bulunmakta. Birine filtre uygulandığında her hangi bir problem yok fakat 2. tabloya da aynı filtreyi uygulamaya çalıştığımda 1.yi iptal ediyor.

Yardımcı olabilecek var mı?

 

[Korhan Ayhan]

Selamlar,

Sadece A1 hücresimi kontrol edilecek?

 

[Vhailor]

Hayır üstadım altta 1000lerce satır var.

 

[ynmcan]

Syn. Vhaılor;
Aşağıdaki makro işinize yararmı?

Sub yukseklık()

If Range("a1") = 1 Then
Range("a1").RowHeight = 0.01
Else
Range("a1").RowHeight = 15
End If

End Sub

 

[Vhailor]

Acaba formülle bir giriş yapabilir miyiz?

Bunu işyeri için hazırlıyorum, işyerinde makrolar devre dışı bırakılıyor nedense ve makroların güvenlik ayarlarına müdahale şansımız da olmuyor.

İlginize teşekkür ederim.

 

[Vhailor]

Ayrıca makroyu denedim ama başarılı olamadım. Acaba nerede hata yapıyorum?

İlginize teşekkürler.

 

[ynmcan]

Syn. Vhailor;
Bir örnek dosya ile tam olarak ne yapmak istediğinizi yazarsanız yardımcı olmaya çalışalım.

 

[Vhailor]

Dosya ektedir üstadım. YAPMAYA ÇALIŞTIĞIM İŞLEMDE, K3 hücresi G9 ile H9 arasına tekabül eden bir tarih değil ise, E9 hücresi 0 oluyor. Bu satır gibi altta 1000lerce satır var. Dolayısıyla maksadım, Yapılan formül neticesinde E sütunundaki değeri 0 olan satırların ya görünmez hale gelmesi, ya da 0,01 cm gibi çok küçük bir satır yüksekliğine ayarlanması. Yardımınız için teşekkürler.

 

[Seyit Tiken]

Kodu kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = 0 Then Rows("2:100").RowHeight = 5
If [a1] > 0 Then Rows("2:100").RowHeight = 10
End Sub

 

[ynmcan]

Syn. Vhaılor;
Dosyanız ekte, İnceleyin. Yalnız tarih girişlerini bu satırlardan giremezsiniz.

 

[Korhan Ayhan]

Selamlar,

Eğer makro kullanmanız problem yaratıyorsa bir yardımcı sütun oluşturup bu sütuna yazılacak formülle tablolarınızı filtreleyebilirsiniz. Fakat eklediğiniz örnek dosyada tek tablo var. Asıl dosyanızdaki yapıyla birebir eşleşen küçük bir örnek dosya eklerseniz formüller konusunda yardımcı olmaya çalışırız.

 

[levo26]

Merhaba,

Kod sayfasına aşağıdaki kodları yapıştırarak denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireColumn.AutoFit
End Sub

 

[Vhailor]

Merhaba

Foruma birkaç günden beri giremedim. Hemen örneği ekliyorum. C2 C4 ve C6 hücreleri boş olduğu için, 2. 4. 6. satırların satır yüksekliğinin 0 veya 0a yakın bir yüksekliğe çekilmesini istiyorum. C3 ve C5 hücreleri dolu olduğu için o satırların yüksekliğinde herhangi bir değişim olmasın istiyorum. Acaba mümkün müdür?

İlginize teşekkürler, iyi akşamlar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Kod 2007 ve sonraki versiyonlar için tasarlanmıştır. Daha önceki sürümleri kullanan arkadaşlarımız kod içindeki 1048576 değerini 65536 olarak değiştirip kullanabilirler.

Option Explicit
 
Sub KOŞULLU_SATIR_GİZLE()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    Cells.EntireRow.Hidden = False
    
    For X = 2 To Range("A1048576").End(3).Row
        If Cells(X, 3) = Empty Then
            Rows(X).Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub