Gruba Göre Satır Atlatma

ÆSir

Altın Üye
Katılım
15 Ocak 2018
Mesajlar
182
Excel Vers. ve Dili
2015 TR
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?

225469

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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Görsele göre istediğiniz işlem için makro kullanmak daha uygun görünüyor.
 

ÆSir

Altın Üye
Katılım
15 Ocak 2018
Mesajlar
182
Excel Vers. ve Dili
2015 TR
Ş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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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

Altın Üye
Katılım
15 Ocak 2018
Mesajlar
182
Excel Vers. ve Dili
2015 TR
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.

225487

Şu an dosyada sadece şubat var fakat yarın mart, nisan aylarını açtığım zaman onlarda da geçerli olacak bu kural.
 
Moderatör tarafında düzenlendi:

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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

Altın Üye
Katılım
15 Ocak 2018
Mesajlar
182
Excel Vers. ve Dili
2015 TR
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?
 

ÆSir

Altın Üye
Katılım
15 Ocak 2018
Mesajlar
182
Excel Vers. ve Dili
2015 TR
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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.

C++:
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Foruma dosya eklerken kişisel bilgi içermemesine lütfen dikkat ediniz.

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

ÆSir

Altın Üye
Katılım
15 Ocak 2018
Mesajlar
182
Excel Vers. ve Dili
2015 TR
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.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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

Altın Üye
Katılım
15 Ocak 2018
Mesajlar
182
Excel Vers. ve Dili
2015 TR
@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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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.
 

Ekli dosyalar

Üst