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