Belirlenen alanda boş olan hücrelere değer girilmesi

[kelkitli]

Merhaba Değerli dostlar,
Ekte sunduğum dosyada belirli olan alan içindeki boş hücrelere bir değeri standart olarak (mesela E1 hücresine yazılı bir değeri buton yardımıyla girmek istiyorum. Nasıl bir kod yazmak gerekir.

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz..

Private Sub CommandButton1_Click()
Range("E1").Value = "DENEME"
End Sub

 

[kelkitli]

Sn Sezar cevap için teşekkür konu yanlış anlaşıldı. Benim dediğim şu: E1 hücresine herhangi bir değer girince A1 : D33 alanındaki sadece boş olan hücrelerin hepsi yazılan değer ile doldurulsun istiyorum

 

[Ali]

Dosyanızı incelemedim ama aşağı kodu bir denermisiniz.

Sub Makro1()
    Range("A1:D33").SpecialCells(xlCellTypeBlanks).Value = Range("E1")
End Sub

 

[Orion1]

Merhaba.
Sayfa1'in kod sayfasına Aşağıdaki kodları yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim hucre As Range
On Error GoTo hata
If Intersect(Target, [E1]) Is Nothing Then Exit Sub
For Each hucre In [A1:D33]
    If hucre = "" Then
        hucre = Target.Value
    End If
Next
hata:
End Sub

 

[kelkitli]

Arkadaşlar çok çok teşekkürler ederim. Sn Ali işlem doğrudur sağolun varolun.

 

[Orion1]

Merhaba.
Benim Yazdığım 2nci koduda denedinizmi?

 

[kelkitli]

Sn Sezar ben cevap yazarken sizin cevabınızı farketmemişim. Özür dilerim. Cevabınız güzel olmuş tekrar teşekkürlerimi iletirim.