dolu hücreye göre otomatik değer atama

[incsoft]

Arkadaşlar ekteki dosyamda butona tıklatınca bir sayfa ayarlaması yapıyor ancak burda yaptırmak istediğim birşey daha var onu yaptıramadım maalesef. Buton kullanıldıktan sonra oluşan Üretim Süresi sütununda dolu olan tüm satırlara 445 yazmasını istemekteyim. Bu satır sayısı örnekteki gibi 6 ile sınırlı değildir. Bazen 6 , bazen 1 , bazende 100 adet olabiliyor.

Teşekkürler..

 

[Ömer BARAN]

Merhaba.
Daha kısa kod da olabilir sanırım ama sadece, kullandığınız kodlardaki gereksiz kısımları sildim ve 455 yazma kısmını ekledim.

Private Sub CommandButton1_Click()
    Columns("B:B").Insert
    Columns("E:E").Cut Destination:=Columns("B:B")
    Columns("E:E").Delete
    Columns("C:C").Insert
    Columns("E:E").Cut Destination:=Columns("C:C")
    Columns("D:D").Insert
    Columns("F:F").Delete
    Columns("E:E").Insert
    Range("A1") = "Malzeme No"
    Range("D1") = "Operasyon Tanımı"
    Columns("F:F").Insert
    Range("E1") = "Üretim Süresi"
    Range("F1") = "Üretim Miktarı"
    Range("E2:E" & Cells(Rows.Count, "A").End(3).Row) = "455"
End Sub