Hücreye girdiğim bir yazıyla diğer satırdaki hücrelerin rengi değişsin

[mesbay]

Hücreye girdiğim bir yazıyla diğer satırdaki hücrelerin rengi değişsin

Merhaba excellde fazla bilgim yok burada tücrebeli arkadaşların anlattıklarıyla bir şeyler yapıyorum..Arkadaşlar ekte gönderdiğim dosya benim işyerinde kullandığım malzeme sipariş formudur..Sizden ricam bu forumda g sütünunda sipariş verilecek yazısını yazdığımda b,c,d,e,f,g satırlarının renginin değişmesi.Ayrıca sipriş verildi ve malzeme geldi yazısını yazdığımda yine rengin değişmesini istiyorum bu yapılabilirmi yapılırsa nasıl olur yardımcı olursanız sevinirim....

 

[Ali]

Sipariş sayfanızdaki kodları silip aşağıdaki gibi değiştirin.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim Aralik As Range, ilk As Range
      Set Aralik = Range("B3:B1000")
    Application.EnableEvents = False
    For Each ilk In Range(Target.Address)
        If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, 4) = Date
    Next ilk
    Application.EnableEvents = True
    Set Aralik = Nothing
 If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
satirlar = "B" & Target.Row & ":G" & Target.Row
Select Case Target
Case "MALZEME GELDİ": Range(satirlar).Interior.ColorIndex = 6
Case "SİPARİŞ VERİLDİ": Range(satirlar).Interior.ColorIndex = 6
Case "": Range(satirlar).Interior.ColorIndex = xlNone
End Select
End Sub

 

[mehmett]

Koşullu biçimlendirme ile;

 

[mesbay]

çok teşekkür ederim sağolun

 

[melihseber]

Sn mesbay,
bu combobox gibi şeyleri nasıl çıkartıyorsunuz. (şipariş verildi, malzeme geldi gibi seçenekleri çıkartan kutuyu)

 

[zafer]

Merhaba

Veri / Doğrulama ile yapılıyor.
Arama motoruna Doğrulama yazıp aratınız bir çok örnek bulacaksınız.

 

[melihseber]

Çok sağolun, iyi çalışmalar

 

[mesbay]

Sn mesbay,
bu combobox gibi şeyleri nasıl çıkartıyorsunuz. (şipariş verildi, malzeme geldi gibi seçenekleri çıkartan kutuyu)

b sütünuna sipariş yazıldığında istediğin sütüne sipariş verilecek yazısını yazdırabilirsin bunuda aşağıda şekilde o istediğin hücreye yapıştırarak yapabilirsin geri kalanlar veri doğrulamayla yaptım
=EĞER(EBOŞSA(B4);" ";"SİPARİŞ VERİLECEK")

 

[melihseber]

sayın mesbay,
çok işime yaradı, sağolun
iyi çalışmalar