Makro-VBA

[Üstünsoy]

Yaptığım bir programda A1 hücresine değer girdiğimde B1, C1, D1 hücresine bu değerlerin yansıması eğer A1 hücresindeki değerin aynı kalıp B1, C1, D1 hücresinde değişmesini istersem manuel yazarak farklı bir değer girebilmeliyim.
Ek'te görebileceğiniz dosyada A11 hücresine kepenk rengini 9006 olarak yazdığımda sağındaki B11, C11, D11..... H11 hücrelerinde 9006 görünmeli fakat B11 hücresinin rengi farklı ise mesela o hücreye 2004 yazabilmeliyim.
Bu konuda yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Merhaba,

Sayfa ismi üzerinde sağ klik yapın. Kod görüntüle seçeneğini seçin.

Açılan beyaz pencereye aşağıdaki kodu uygulayın.

A sütununa veri girdiğinizde diğer sütunlara otomatik olarak aynı veri yazılır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    Target.Offset(0, 1).Resize(1, 3).ClearContents
    Target.Resize(1, 4).FillRight
End Sub