Soru Otomatik dolgu yapmak

[k0081]

Merhaba arkadaşlar;

Aşağıda vermiş olduğum tabloda;


B sütunundaki en son veriye göre ( burada B14 dür. ) command buton kullanarak dolguyu kaldırıp, düzenlemeler yaptıktan sonra satır ekleme gibi,,,

dolguyu tekrar aynı renkte daha doğrusu 19 nolu rennkte birer atlamalı şekilde nasıl yapabilirim ?

Aralık : satır = A1-Z1

yani command buton tek olacak, ama iki görevi olacak. dolgu kaldır./ yap.

dolguKaldir-Yap.xlsx dosyasını indir - download

dolguKaldir-Yap.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[k0081]

Private Sub CommandButton7_Click()
Range("B5:BY105").Select
      With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("D5").Select
End Sub

Dolguyu bu şekilde kaldırdım. Ama otomatik bir satır atlamalı dolgu nasıl yapabilirim ? ( yeni aralık = B5:BY105 )

 

[YUSUF44]

Bu tür işlemlerde Excel'in Tablo olarak biçimlendirme özelliğini kullanmak daha uygun olur diye düşünüyorum.

Yine de kodla yapmak isterseniz aşağıdaki kodları düğmeye ekleyip deneyin:

If [b5].Interior.Color <> 16777215 Then
    Range("B5:BY105").Interior.Color = 16777215
Else
    For i = 5 To 105 Step 2
        Range("B" & i & ":Y" & i).Interior.Color = 13434879
    Next
End If

 

[k0081]

@YUSUF44


Evet aynen bu şekilde. Çok Teşekkür ediyorum. Tamamdır... elinize sağlık.