Yılbaşı İçin Oturma Planı

[nonameozi]

Merhabalar yılbaşı için oturma planı yapmaya çalışıyorum bu konuda çok yeniyim daha bana yardımcı olabilir misiniz elimde bir excel dosyası var masa numaraları ve oturacak kişi sayısı belli ve bu kişi sayılıarından başka rezervasyon alınmaması gerekiyor basanın dolu olduğunu gösterecek şekilde ve maximum kişi sayısı olduğunu belirtecek bir şekilde yapmaya çalışıyorum bunu nasıl yapabilirim.

Şimdiden tüm yardım eden arkadaşlara teşekkür ederim...

 

[hamitcan]

Örnek bir dosya ekleyin, ne yapmak istediğinizi dosya içinde bir örnek ile açıklayın.

 

[nonameozi]

Merhabalar

Dosyayı biraz değiştirdim hocam örnek bir oturma planınından ilham aldım... yapmak istediğim liste kısmını doldurdukça plan kısmında bulunan masalar sarı renk boyanması ve çift tıklandığı zaman içeriğini görebilmek. Yani Liste de bulunan alanları doldurkça plan kısmının da dolması bu konuda yardımcı olabilirmisiniz. çok fazla anlamadığım için yardıma ihtiyaç duyuyorum.. şimdiden emeğinize ve yardımlarınız için çok teşekkür ederim.
Saygılarımla....

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 And Target.Column <> 6 Then Exit Sub
   Sheets("PLAN").Cells.Interior.Color = xlNone
    For i = 3 To Sheets("liste").[a65536].End(3).Row
        MasaGrubu = Sheets("liste").Cells(i, "e").Text
        MasaNo = Sheets("liste").Cells(i, "f").Text
        If MasaGrubu = Empty Or MasaNo = Empty Then GoTo 10
                    For Each hcr In Sheets("PLAN").[A1:BN59]
                        If MasaGrubu & "-" & MasaNo = hcr.Text Then
                            hcr.Interior.Color = vbYellow
                        End If
                    Next
10
    Next
End Sub

 

[nonameozi]

Teşekkür ederim ellerinize sağlık hocam...