Eger ile Satir Yukseklinin Belirlenmesi Hk.

[falkan]

Arkadaslar Merhaba,

Satir yuksekligini yapan bi kod buldum Site. Kod asagidadir. Kod calisiyor. Ancak ben burada belli bir satir yuksekliginin disindakileri icin bu kodun calismasini istiyorum. Ornegin satir yuksekligi 25 den kucuk olanlar icin calissin bu kod buyukler icin calismasin. Yardimlariniz icin cok tesekkur ederim.

KOD

Public Sub XlBuiltInDialog()
Range("a1:a999").Select
Application.Dialogs(xlDialogRowHeight).Show
End Sub

Selamlar

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub satır_yükseklik()
For i = 1 To Cells(65536, 1).End(3).Row
If Cells(i, 1).RowHeight < 25 Then
Cells(i, 1).RowHeight = 10
    Rem yüksekliği seçmek isterseniz
'Application.Dialogs(xlDialogRowHeight).Show
End If
Next
End Sub

 

[falkan]

tesekkurler

 

[falkan]

Merhaba,
Kusura bakmayin yardiminiza ihtiyacim var yine. Yardimci olurmusunuz.

Burada satir yuksekligi 25 den kucukleri acilan kutuya yazdigimiz yukseklik kadar yukseltilecek, satir yuksekligi 25 den buyuk olanlar degismeyecek oldugu gibi kalacak.

Selamlar

 

[uzmanamele]

Merhaba,
Kusura bakmayin yardiminiza ihtiyacim var yine. Yardimci olurmusunuz.

Burada satir yuksekligi 25 den kucukleri acilan kutuya yazdigimiz yukseklik kadar yukseltilecek, satir yuksekligi 25 den buyuk olanlar degismeyecek oldugu gibi kalacak.

Selamlar

merhaba

aşağıdaki satırı değiştiriniz

If Cells(i, 1).RowHeight > 25 Then

 

[falkan]

Bu defa da butun satir yuksekliklerini belirledigimiz yukseklige getiriyor 25 den buyukleride degistiriyor.
25 den buyukler degismemesi gerekiyor aynen kalmasi gereken satir yukseklikleri

Selamlar

 

[uzmanamele]

Bu defa da butun satir yuksekliklerini belirledigimiz yukseklige getiriyor 25 den buyukleride degistiriyor.
25 den buyukler degismemesi gerekiyor aynen kalmasi gereken satir yukseklikleri

Selamlar

merhaba

ne yapmak istiyorsanız aşağıdaki satırda >, <, =, >=, <= işaretleriyle deneme-yanılma yaparak sonuca ulaşmaya çalışın.

If Cells(i, 1).RowHeight [COLOR="Red"]<[/COLOR] 25 Then

 

[uzmanamele]

merhaba

Sub satır_yükseklik()
For i = 1 To Cells(65536, 1).End(3).Row
If Cells(i, 1).RowHeight < 25 Then
[COLOR="Red"]Cells(i, 1).RowHeight = 10[/COLOR]
[COLOR="SeaGreen"]Rem yüksekliği seçmek isterseniz
'Application.Dialogs(xlDialogRowHeight).Show[/COLOR]
End If
Next
End Sub

bu kod işinizi görmesi gerekir. sanırım siz kodu yorumlayamadınız.
bu şekilde kullanırsanız satır yüksekliği 25 den büyük olanları 10 yapıyor.

    [COLOR="SeaGreen"]Rem yüksekliği seçmek isterseniz
'Application.Dialogs(xlDialogRowHeight).Show[/COLOR]

kod içersindeki yeşil renkli satır opsiyonel. siz satır yüksekliğini el ile gireyim diyorsanız ' (tek tırnak) işaretini kaldırın ve aşağıdaki satırı ya silin ya da önüne ' (rek tırnak) koyun.

Cells(i, 1).RowHeight = 10