Gruba Göre Satır Atlatma

ÆSir

Dora
Altın Üye
Katılım
15 Ocak 2018
Mesajlar
214
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Görsele göre istediğiniz işlem için makro kullanmak daha uygun görünüyor.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Satır ve sütun bakımından benzer örnek dosyanızı foruma ekleyiniz.
 

ÆSir

Dora
Altın Üye
Katılım
15 Ocak 2018
Mesajlar
214
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Dora
Altın Üye
Katılım
15 Ocak 2018
Mesajlar
214
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Dora
Altın Üye
Katılım
15 Ocak 2018
Mesajlar
214
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?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Renkleri elle mi uyguluyorsunuz?
 

ÆSir

Dora
Altın Üye
Katılım
15 Ocak 2018
Mesajlar
214
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Foruma dosya eklerken kişisel bilgi içermemesine lütfen dikkat ediniz.

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

ÆSir

Dora
Altın Üye
Katılım
15 Ocak 2018
Mesajlar
214
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Dora
Altın Üye
Katılım
15 Ocak 2018
Mesajlar
214
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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