Excel'de 12.75 satır yüksekliğe sahip satırları 18.75 yapma

Question

Merhaba. Satır içerisinde 18.75, 19.30, 29, 35 olanlar da var. Bu yüzden sadece 12.75 olanları nasıl tek tıkla 18.75 olarak ayarlarım. ChatGPT'ye yazdırdığım VBA scripti maalesef çalışmıyor. Lütfen oraya yazdırıp buraya kopyalamayın. Bunu Ben de biliyorum. Yoksa yaptırırdım ona.

McArea · Answer

CTRL tuşunu basılı bir şekilde yüksekliğini değiştirmek istediğin satırları tk tek seç sonra Giriş > Biçim > Satır Yüksekliğinden istediğiniz rakamı yazarak değiştirebilirsiniz.

rufiqcavadov · Answer

McArea adlı üyeden alıntı: mesajı görüntüle

CTRL tuşunu basılı bir şekilde yüksekliğini değiştirmek istediğin satırları tk tek seç sonra Giriş > Biçim > Satır Yüksekliğinden istediğiniz rakamı yazarak değiştirebilirsiniz.

Hocam rica etsem gösterebilir misiniz?

Tüm satırları seçmesini istemiyorum. Dediğim gibi sadece ve sadece 12.75 yüksekliğe sahip. Hocam 5738 satır. Resmen işgence olur öyle.

Tüm satırları seçmesini istemiyorum. Dediğim gibi sadece ve sadece 12.75 yüksekliğe sahip. Hocam 5738 satır. Resmen işgence olur öyle.

McArea · Answer

Mesajını tam okumamışım bir fikrim olursa yazarım tekrar. evet yöntem bu ama dediğiniz gibi satır sayısı fazla tek tek zaman alır.

hikmettufekci · Answer

rufiqcavadov adlı üyeden alıntı:						mesajı görüntüle									Merhaba. Satır içerisinde 18.75, 19.30, 29, 35 olanlar da var. Bu yüzden sadece 12.75 olanları nasıl tek tıkla 18.75 olarak ayarlarım. ChatGPT'ye yazdırdığım VBA scripti maalesef çalışmıyor. Lütfen oraya yazdırıp buraya kopyalamayın. Bunu Ben de biliyorum. Yoksa yaptırırdım ona. 		Kodu denedim çalışıyor.

alt + f11 yaparak vba'yı aç.
insert >module sekmesini aç. aşağıdaki kodları yapıştır. sadece sayfa adını değiştir. ben sayfa1 yaptım sen onu değiştirirsin. f5'e bas biraz uzun sürer ama çalışıyor. takıldığın yer olursa bağlanabilirim.

Sub SatirYuksekliginiDegistir()
    Dim ws As Worksheet
    Dim satir As Range
    Dim mevcutYukseklik As Double
    Dim yeniYukseklik As Double

Set ws = ThisWorkbook.Sheets("Sayfa1")

mevcutYukseklik = 12.75
    yeniYukseklik = 18.75

For Each satir In ws.Rows
        If satir.RowHeight = mevcutYukseklik Then
            satir.RowHeight = yeniYukseklik
        End If
    Next satir
End Sub

rufiqcavadov · Answer

hikmettufekci adlı üyeden alıntı:						mesajı görüntüle									Kodu denedim çalışıyor.

alt + f11 yaparak vba'yı aç.
insert >module sekmesini aç. aşağıdaki kodları yapıştır. sadece sayfa adını değiştir. ben sayfa1 yaptım sen onu değiştirirsin. f5'e bas biraz uzun sürer ama çalışıyor. takıldığın yer olursa bağlanabilirim.

Sub SatirYuksekliginiDegistir()
    Dim ws As Worksheet
    Dim satir As Range
    Dim mevcutYukseklik As Double
    Dim yeniYukseklik As Double

Set ws = ThisWorkbook.Sheets("Sayfa1")

mevcutYukseklik = 12.75
    yeniYukseklik = 18.75

For Each satir In ws.Rows
        If satir.RowHeight = mevcutYukseklik Then
            satir.RowHeight = yeniYukseklik
        End If
    Next satir
End Sub 		Hocam teşekkür ederim. Hall ettim aslında gemini'ye yazdırıp ama yine de teşekkür ederim. Anlaşılan bu makroları da öğrenmek zorunda kalacağım çok lazım oluyor.