• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro Kodu Kısaltma

H

hamza02

Katılım
24 Mart 2021
Mesajlar
37
Excel Vers. ve Dili
Türkçe
Değerli arkadaşlar bu kodu nasıl kısaltabilirim.


Private Sub CommandButton1_Click()

Sayfa7.Range("4:113").EntireRow.AutoFit

If Sayfa7.Range("B4").Value = "" Then Sayfa7.Rows("4").RowHeight = 0
If Sayfa7.Range("B5").Value = "" Then Sayfa7.Rows("5").RowHeight = 0
If Sayfa7.Range("B6").Value = "" Then Sayfa7.Rows("6").RowHeight = 0
If Sayfa7.Range("B7").Value = "" Then Sayfa7.Rows("7").RowHeight = 0
If Sayfa7.Range("B8").Value = "" Then Sayfa7.Rows("8").RowHeight = 0
If Sayfa7.Range("B9").Value = "" Then Sayfa7.Rows("9").RowHeight = 0

If Sayfa7.Range("B10").Value = "" Then Sayfa7.Rows("10").RowHeight = 0
If Sayfa7.Range("B11").Value = "" Then Sayfa7.Rows("11").RowHeight = 0
If Sayfa7.Range("B12").Value = "" Then Sayfa7.Rows("12").RowHeight = 0
If Sayfa7.Range("B13").Value = "" Then Sayfa7.Rows("13").RowHeight = 0
If Sayfa7.Range("B14").Value = "" Then Sayfa7.Rows("14").RowHeight = 0
If Sayfa7.Range("B15").Value = "" Then Sayfa7.Rows("15").RowHeight = 0
If Sayfa7.Range("B16").Value = "" Then Sayfa7.Rows("16").RowHeight = 0
If Sayfa7.Range("B17").Value = "" Then Sayfa7.Rows("17").RowHeight = 0
If Sayfa7.Range("B18").Value = "" Then Sayfa7.Rows("18").RowHeight = 0
If Sayfa7.Range("B19").Value = "" Then Sayfa7.Rows("19").RowHeight = 0

If Sayfa7.Range("B20").Value = "" Then Sayfa7.Rows("20").RowHeight = 0
If Sayfa7.Range("B21").Value = "" Then Sayfa7.Rows("21").RowHeight = 0
If Sayfa7.Range("B22").Value = "" Then Sayfa7.Rows("22").RowHeight = 0
If Sayfa7.Range("B23").Value = "" Then Sayfa7.Rows("23").RowHeight = 0
If Sayfa7.Range("B24").Value = "" Then Sayfa7.Rows("24").RowHeight = 0
If Sayfa7.Range("B25").Value = "" Then Sayfa7.Rows("25").RowHeight = 0
If Sayfa7.Range("B26").Value = "" Then Sayfa7.Rows("26").RowHeight = 0
If Sayfa7.Range("B27").Value = "" Then Sayfa7.Rows("27").RowHeight = 0
If Sayfa7.Range("B28").Value = "" Then Sayfa7.Rows("28").RowHeight = 0
If Sayfa7.Range("B29").Value = "" Then Sayfa7.Rows("29").RowHeight = 0

If Sayfa7.Range("B30").Value = "" Then Sayfa7.Rows("30").RowHeight = 0
If Sayfa7.Range("B31").Value = "" Then Sayfa7.Rows("31").RowHeight = 0
If Sayfa7.Range("B32").Value = "" Then Sayfa7.Rows("32").RowHeight = 0
If Sayfa7.Range("B33").Value = "" Then Sayfa7.Rows("33").RowHeight = 0
If Sayfa7.Range("B34").Value = "" Then Sayfa7.Rows("34").RowHeight = 0
If Sayfa7.Range("B35").Value = "" Then Sayfa7.Rows("35").RowHeight = 0
If Sayfa7.Range("B36").Value = "" Then Sayfa7.Rows("36").RowHeight = 0
If Sayfa7.Range("B37").Value = "" Then Sayfa7.Rows("37").RowHeight = 0
If Sayfa7.Range("B38").Value = "" Then Sayfa7.Rows("38").RowHeight = 0
If Sayfa7.Range("B39").Value = "" Then Sayfa7.Rows("39").RowHeight = 0

If Sayfa7.Range("B40").Value = "" Then Sayfa7.Rows("40").RowHeight = 0
If Sayfa7.Range("B41").Value = "" Then Sayfa7.Rows("41").RowHeight = 0
If Sayfa7.Range("B42").Value = "" Then Sayfa7.Rows("42").RowHeight = 0
If Sayfa7.Range("B43").Value = "" Then Sayfa7.Rows("43").RowHeight = 0
If Sayfa7.Range("B44").Value = "" Then Sayfa7.Rows("44").RowHeight = 0
If Sayfa7.Range("B45").Value = "" Then Sayfa7.Rows("45").RowHeight = 0
If Sayfa7.Range("B46").Value = "" Then Sayfa7.Rows("46").RowHeight = 0
If Sayfa7.Range("B47").Value = "" Then Sayfa7.Rows("47").RowHeight = 0
If Sayfa7.Range("B48").Value = "" Then Sayfa7.Rows("48").RowHeight = 0
If Sayfa7.Range("B49").Value = "" Then Sayfa7.Rows("49").RowHeight = 0

If Sayfa7.Range("B50").Value = "" Then Sayfa7.Rows("50").RowHeight = 0
If Sayfa7.Range("B51").Value = "" Then Sayfa7.Rows("51").RowHeight = 0
If Sayfa7.Range("B52").Value = "" Then Sayfa7.Rows("52").RowHeight = 0
If Sayfa7.Range("B53").Value = "" Then Sayfa7.Rows("53").RowHeight = 0
If Sayfa7.Range("B54").Value = "" Then Sayfa7.Rows("54").RowHeight = 0
If Sayfa7.Range("B55").Value = "" Then Sayfa7.Rows("55").RowHeight = 0
If Sayfa7.Range("B56").Value = "" Then Sayfa7.Rows("56").RowHeight = 0
If Sayfa7.Range("B57").Value = "" Then Sayfa7.Rows("57").RowHeight = 0
If Sayfa7.Range("B58").Value = "" Then Sayfa7.Rows("58").RowHeight = 0
If Sayfa7.Range("B59").Value = "" Then Sayfa7.Rows("59").RowHeight = 0

If Sayfa7.Range("B60").Value = "" Then Sayfa7.Rows("60").RowHeight = 0
If Sayfa7.Range("B61").Value = "" Then Sayfa7.Rows("61").RowHeight = 0
If Sayfa7.Range("B62").Value = "" Then Sayfa7.Rows("62").RowHeight = 0
If Sayfa7.Range("B63").Value = "" Then Sayfa7.Rows("63").RowHeight = 0
If Sayfa7.Range("B64").Value = "" Then Sayfa7.Rows("64").RowHeight = 0
If Sayfa7.Range("B65").Value = "" Then Sayfa7.Rows("65").RowHeight = 0
If Sayfa7.Range("B66").Value = "" Then Sayfa7.Rows("66").RowHeight = 0
If Sayfa7.Range("B67").Value = "" Then Sayfa7.Rows("67").RowHeight = 0
If Sayfa7.Range("B68").Value = "" Then Sayfa7.Rows("68").RowHeight = 0
If Sayfa7.Range("B69").Value = "" Then Sayfa7.Rows("69").RowHeight = 0

If Sayfa7.Range("B70").Value = "" Then Sayfa7.Rows("70").RowHeight = 0
If Sayfa7.Range("B71").Value = "" Then Sayfa7.Rows("71").RowHeight = 0
If Sayfa7.Range("B72").Value = "" Then Sayfa7.Rows("72").RowHeight = 0
If Sayfa7.Range("B73").Value = "" Then Sayfa7.Rows("73").RowHeight = 0
If Sayfa7.Range("B74").Value = "" Then Sayfa7.Rows("74").RowHeight = 0
If Sayfa7.Range("B75").Value = "" Then Sayfa7.Rows("75").RowHeight = 0
If Sayfa7.Range("B76").Value = "" Then Sayfa7.Rows("76").RowHeight = 0
If Sayfa7.Range("B77").Value = "" Then Sayfa7.Rows("77").RowHeight = 0
If Sayfa7.Range("B78").Value = "" Then Sayfa7.Rows("78").RowHeight = 0
If Sayfa7.Range("B79").Value = "" Then Sayfa7.Rows("79").RowHeight = 0

If Sayfa7.Range("B80").Value = "" Then Sayfa7.Rows("80").RowHeight = 0
If Sayfa7.Range("B81").Value = "" Then Sayfa7.Rows("81").RowHeight = 0
If Sayfa7.Range("B82").Value = "" Then Sayfa7.Rows("82").RowHeight = 0
If Sayfa7.Range("B83").Value = "" Then Sayfa7.Rows("83").RowHeight = 0
If Sayfa7.Range("B84").Value = "" Then Sayfa7.Rows("84").RowHeight = 0
If Sayfa7.Range("B85").Value = "" Then Sayfa7.Rows("85").RowHeight = 0
If Sayfa7.Range("B86").Value = "" Then Sayfa7.Rows("86").RowHeight = 0
If Sayfa7.Range("B87").Value = "" Then Sayfa7.Rows("87").RowHeight = 0
If Sayfa7.Range("B88").Value = "" Then Sayfa7.Rows("88").RowHeight = 0
If Sayfa7.Range("B89").Value = "" Then Sayfa7.Rows("89").RowHeight = 0

If Sayfa7.Range("B90").Value = "" Then Sayfa7.Rows("90").RowHeight = 0
If Sayfa7.Range("B91").Value = "" Then Sayfa7.Rows("91").RowHeight = 0
If Sayfa7.Range("B92").Value = "" Then Sayfa7.Rows("92").RowHeight = 0
If Sayfa7.Range("B93").Value = "" Then Sayfa7.Rows("93").RowHeight = 0
If Sayfa7.Range("B94").Value = "" Then Sayfa7.Rows("94").RowHeight = 0
If Sayfa7.Range("B95").Value = "" Then Sayfa7.Rows("95").RowHeight = 0
If Sayfa7.Range("B96").Value = "" Then Sayfa7.Rows("96").RowHeight = 0
If Sayfa7.Range("B97").Value = "" Then Sayfa7.Rows("97").RowHeight = 0
If Sayfa7.Range("B98").Value = "" Then Sayfa7.Rows("98").RowHeight = 0
If Sayfa7.Range("B99").Value = "" Then Sayfa7.Rows("99").RowHeight = 0

If Sayfa7.Range("B100").Value = "" Then Sayfa7.Rows("100").RowHeight = 0
If Sayfa7.Range("B101").Value = "" Then Sayfa7.Rows("101").RowHeight = 0
If Sayfa7.Range("B102").Value = "" Then Sayfa7.Rows("102").RowHeight = 0
If Sayfa7.Range("B103").Value = "" Then Sayfa7.Rows("103").RowHeight = 0
If Sayfa7.Range("B104").Value = "" Then Sayfa7.Rows("104").RowHeight = 0
If Sayfa7.Range("B105").Value = "" Then Sayfa7.Rows("105").RowHeight = 0
If Sayfa7.Range("B106").Value = "" Then Sayfa7.Rows("106").RowHeight = 0
If Sayfa7.Range("B107").Value = "" Then Sayfa7.Rows("107").RowHeight = 0
If Sayfa7.Range("B108").Value = "" Then Sayfa7.Rows("108").RowHeight = 0
If Sayfa7.Range("B109").Value = "" Then Sayfa7.Rows("109").RowHeight = 0

If Sayfa7.Range("B110").Value = "" Then Sayfa7.Rows("110").RowHeight = 0
If Sayfa7.Range("B111").Value = "" Then Sayfa7.Rows("111").RowHeight = 0
If Sayfa7.Range("B112").Value = "" Then Sayfa7.Rows("112").RowHeight = 0
If Sayfa7.Range("B113").Value = "" Then Sayfa7.Rows("113").RowHeight = 0

Sayfa7.Range("H1").Select
End Sub
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,824
Excel Vers. ve Dili
2021 Türkçe
Merhaba.
Aşağıdaki kod deneyiniz.
Kod: 
Private Sub CommandButton1_Click()
    Dim Bak As Long
    sayfa7.Range("4:113").EntireRow.AutoFit
    For Bak = 4 To 113
        If sayfa7.Cells(Bak, "B").Value = "" Then
            sayfa7.Rows(Bak).RowHeight = 0
        End If
    Next
    sayfa7.Range("H1").Select
End Sub
 
H

hamza02

Katılım
24 Mart 2021
Mesajlar
37
Excel Vers. ve Dili
Türkçe
Sayın Muzaffer Ali bey,
Kodu denedim güzel sorunsuz çalışıyor.
Elinize emeğinize sağlık, çok teşekkür ederim. Allah razı olsun.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst