Gruba Göre Satır Atlatma

[ÆSir]

Merhaba içinde fazla bilgi olduğu için görsel ile paylaşmak istedim. Toplam 4 gruptan oluşan tablom var. Burada dönemsel olarak grup değiştiren personeller için yada yeni giriş yapanlar için grubu hangisiyle ona yazdığımda ilgili bölümün en altına doğru renk skalasına geçebilir mi?



D grubunda olan Aşır B yazdığımda B grubunun en altına otomatik geçecek. İlgili satırın ileresindeki sütunlarda eğer formülleri ve koşullu biçimlendirme kuralları bulunmaktadır.

 

[Korhan Ayhan]

Görsele göre istediğiniz işlem için makro kullanmak daha uygun görünüyor.

 

[ÆSir]

Görsele göre istediğiniz işlem için makro kullanmak daha uygun görünüyor.

Dosyayı size özelden gönderebilir miyim?

 

[Korhan Ayhan]

Satır ve sütun bakımından benzer örnek dosyanızı foruma ekleyiniz.

 

[ÆSir]

Şu an 22 kişi var ve muhtemelen bu rakamın üzerine çıkmaz. Toplam net 4 ekip var. Ekip üyeleri değişebilir veya yenisi eklenebilir. Gözünüze çarpan hata varsa yine bilgi vermeniz benim için çok iyi olur. Teşekkürler.

 

[Korhan Ayhan]

Hangi hücre aralığına elle veri girişi yapacaksınız?

OCAK ayı sayfasında tablonuzun bitiminde alt tarafta başka tablolar var.

Diğer sayfalarda 56. satırda tablolarınız bitiyor.

 

[ÆSir]

Korhan Bey,

Örnek veriyorum;

9D'de olan Ali şu an A grubunda iken C grubuna alacağım o esnada bütün 9-10 satırındaki verilerin 9C hücresine A yerine C yazdığım için 35e inmesini istiyorum.



Şu an dosyada sadece şubat var fakat yarın mart, nisan aylarını açtığım zaman onlarda da geçerli olacak bu kural.

 

[Korhan Ayhan]

Ben yine sorumun cevabını alamadım.

Sanırım sorun bende.

Bugünlerde hangi üyemize soru sorarsam sorayım garip garip cevaplar alıyorum.

Bu gerçekten çok sıkıcı bir durum.. Bütün cevap verme isteğim kayboluyor.

 

[ÆSir]

Ben cevabı yeni tablo ile vermiştim. Ocak test tablosuydu asıl aktif kullandığım Şubat tablom. Yeni dosyamda sadece bu yer alıyor.
Toplamda 56 satırdan oluşuyor. 22 farklı personel olasılığını baz alıyor. Her personel 2 hücreye bağlı.
A- Yeşil
B- Kırmızı
C- Mavi
D- Sarı

Eğer A grubunda yeşil olan personeli vardiya ekibi değişikliğinde C grubuna almak istersen A grubunda bulunan personelin C grubu olan mavi grubun en alt satırına geçmesini istiyorum. Şubat ayında bunu yapacağım ama önümüzdeki ay Mart sayfasını açtığımda orada yine yapmam gerekecek.

Ve gönderdiğim bir raporum var, rica etsem işleme alır mısınız?

 

[Korhan Ayhan]

Renkleri elle mi uyguluyorsunuz?

 

[ÆSir]

Evet. Kurala bağlı yapmadım. Şu an kendim bir kişiyi bir gruba çekersem o gruba uygun renge boyuyorum. Tek otomatik olan renk sağ tarafta bulunan hücrelere X yaparsam siyah olması.

 

[Korhan Ayhan]

Deneyiniz.

Sayfanızın kod bölümüne uygulayınız.

C9:C250 hücre aralığına veri girişi yaptığınızda kod çalışacaktır. Eksikleri olabilir. Bildirirseniz revize etmeye çalışırım.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Long, Renk As Long, Sutun As Integer
    If Intersect(Target, Range("C9:C250")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target <> "" Then
        Select Case UCase(Target)
            Case "A": Renk = 3506772
            Case "B": Renk = 13311
            Case "C": Renk = 11892015
            Case "D": Renk = 65535
        End Select
        Bul = Evaluate("=MAX(IF(C9:C250=""" & Target.Value & """,IF(ROW(C9:C250)<ROW(" & Target.Address & "),ROW(C9:C250))))")
        If Bul > 0 Then
            If Bul + 2 <> Target.Row And Cells(Target.Row - 2, "C") <> Target Then
                Range("A" & Target.Row).Resize(2).EntireRow.Cut
                Cells(Bul + 2, "A").Insert Shift:=xlDown
            End If
            Range("B" & Bul + 2 & ":N" & Bul + 3).Interior.Color = Renk
            Sutun = Cells.Find("*", Cells(1, 1), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column
            Range("P" & Bul + 2).Resize(1, Sutun - 15).Interior.Color = Renk
        End If
    End If
End Sub

 

[Korhan Ayhan]

Foruma dosya eklerken kişisel bilgi içermemesine lütfen dikkat ediniz.

Dosya ekleri tarafımdan kaldırılmıştır.

 

[ÆSir]

Merhabalar,

Makro çalışıyor. Şu an fark ettiğim hala sadece yukarı yönde gidiyor. B'den A'ya yada D'den B'ye gidiyor fakat A'dan B veya A'dan C gibi aşağı yönde çalışmıyor.

 

[ÆSir]

@Korhan Ayhan hocam gözünüzden kaçtı sanırım.

 

[Korhan Ayhan]

Renkleri bir ton açsam sanırım sıkıntı olmaz.

Ek olarak diyelim ki C grubundan bir hücreye yeniden C yazdınız. Bu durumda bu satır C grubunun en altına gitsin mi yoksa olduğu yerde kalsın mı?

 

[ÆSir]

@Korhan Ayhan olduğu gibi kalabilir. A kendi yerinde kalabilirken B,C,D gidebilir. B kendi yerinde gelebilirken A çıkabilir veya C,D inebilir. Mümkün olursa birde X yapabilir miyiz? İşten çıkan personel olursa o ay puantajın en altına otomatik gidebilir böylece.

 

[Korhan Ayhan]

"X" ne renk olacak?

 

[ÆSir]

Gri veya diğerlerinden farklı soluk bir renk olabilir @Korhan Ayhan

 

[Korhan Ayhan]

Kod biraz uzun oldu. Bu sebeple foruma ekleyemedim.

Dosyadan Sheet1 isimli sayfanın kod bölümündeki kodu kendi dosyanıza uyarlayınız.