Makro ile Toplu Satır Boyama ve Satır Gizleme

[muhoa]

Arkadaşlar merhaba

Takip yaptığım sistemde iş emirleri sıralı olarak istasyonlardan geçerek tamamlanıyor. En son istasyonda bittikten sonra "Durum Bilgisi" bölümünde fonksiyon ile "TAMAMLANDI" yazısı çıkıyor. Bu yazı çıktığında Tamamlanma Zamanı sütununa tamamlanma zamanını Tarih, saat şeklinde gelmesini istiyorum.
Aynı zamanda tamamlanan iş emri satırını A sütunundan H sütununa kadar gri renkle olmasını istiyorum. Gri renkle boyanmış bu satırı da listeden gizlemek istiyorum.
Biraz araştırdım bunu daha önce işleyen örnekler buldum ama renk değiştirme işleminin yapılması için "TAMAMLANDI" yazan hücrenin fonksiyon içermemesi gereken örneklerle karşılaştım. Bana bu haliyle yardımcı olabilecek biri var mı?

 

[Emir Hüseyin Çoban]

. . .

Bu işlemi tabloya veri girdikçe mi yoksa belirli zamanlarda buton tıklayarak mı yapmak istiyorsunuz.

Buton ile yaparsak tamamlanma zamanı, tıklandığı andaki olur.

Griye boyama işlemi koşullu biçimlendirme ilede yapılabilir.

Öneri, formülünüze alternatif. (+ değeri sabitse eğersay daha uygun olur.)

=EĞER(BAĞ_DEĞ_DOLU_SAY(B2:F2)=5;"TAMAMLANDI";"")

. . .

 

[muhoa]

. . .

Bu işlemi tabloya veri girdikçe mi yoksa belirli zamanlarda buton tıklayarak mı yapmak istiyorsunuz.

Buton ile yaparsak tamamlanma zamanı, tıklandığı andaki olur.

Griye boyama işlemi koşullu biçimlendirme ilede yapılabilir.

Öneri, formülünüze alternatif. (+ değeri sabitse eğersay daha uygun olur.)

=EĞER(BAĞ_DEĞ_DOLU_SAY(B2:F2)=5;"TAMAMLANDI";"")

. . .

Tıklama zamanı sütununda veri girdikçe zamanın gelmesi gerekir. Ancak satir gizlemek için buton ile olması benim için yeterlidir.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Renklendirme koşullu biçimlendirme ile yapıldı.

Boş bir modüle yapıştırın.

Sub kod()
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, "G").End(3).Row
        If Cells(i, "G").Value = "TAMAMLANDI" Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Sayfanın kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    sonsat = Cells(Rows.Count, "G").End(3).Row
    If Intersect(Target, Range("B2:F" & sonsat)) Is Nothing Then Exit Sub
    
    If Cells(Target.Row, "G") = "TAMAMLANDI" Then
        Cells(Target.Row, "H") = Now
    Else
        Cells(Target.Row, "H") = ""
    End If
    
End Sub

. . .

 

[muhoa]

hocam tamamlanma zamanı için buton değil veri girildikçe oluşsun demiştim. şöyle bir formül kurdum

=EĞER(G2="";"";ŞİMDİ()) ve o sorunu çözdüm.

Şimdi eğer işemri satırı tamamlanmışsa tüm satırı gri renge nasıl otomatik olarak nasıl boyayabilirim. bu işlemi koşullu biçimlendirme ile yapmak istedim ama sadece "tamamlandı" yazan hücreyi renklendiriyor. ben tüm satırı renklendirsin istiyorum.

 

[muhoa]

hocam ben son mesajınızı görmeden mesaj yollamıştım ki söylediğim gibi tamamlanma zamanını da bir formulle oluşturmuştum ancak sizin komplike şekilde sorunun tamamını çözmüşsünüz. teşekkürler emeğiniz için..

 

[Emir Hüseyin Çoban]

hocam tamamlanma zamanı için buton değil veri girildikçe oluşsun demiştim. şöyle bir formül kurdum

=EĞER(G2="";"";ŞİMDİ()) ve o sorunu çözdüm.

Şimdi eğer işemri satırı tamamlanmışsa tüm satırı gri renge nasıl otomatik olarak nasıl boyayabilirim. bu işlemi koşullu biçimlendirme ile yapmak istedim ama sadece "tamamlandı" yazan hücreyi renklendiriyor. ben tüm satırı renklendirsin istiyorum.

. . .

Formül ile atılan tarih, dosyayı her açtığınızda güncellenecektir.
Yani doğru tamamlanma zamanını göstermez.

. . .