Soru Başka bir sayfadan veri ile beraber biçimlendirmeleri de aktarma

[mustafa]

Merhabalar,

Basketbol sayfasında bir takımı seçip TAKIM SEÇ butonuna tıkladığımda o satırdaki takımlar Ana Sayfa E2 ve F2 hücrelerine aktarılıyor. Sonra Ana Sayfada MAÇLARI GETİR butonuna tıkladığımda E2 ve F2 hücrelerindeki takımların son oynadıkları maçlar aktarılıyor. Buraya kadar sorun yok, ben maçlar aktarılırken Basketbol sayfasındaki biçimlendirmelerin de aktarılmasını istiyorum.

Yardımcı olacak ustalara şimdiden teşekkür ederim.

İnternete baktım fakat bu anlamda bir soru ve çözüm göremedim.

Eğer bu mümkün değilse Basketbol sayfasındaki aşağıdaki kod renklendirme (biçimlendirme) yapıyor. Bu kodu Ana Sayfaya uygulanmasını istiyorum.

''''Renklendirmeler sıfırlanıyor
                    Cells(sat, 10).Interior.ColorIndex = xlNo
                    Range("K" & sat & ":R" & sat).Interior.ColorIndex = 19
                    Range("S" & sat & ":T" & sat).Interior.ColorIndex = xlNo
                    Cells(sat, 21).Interior.ColorIndex = 6
                    Cells(sat, 26).Interior.ColorIndex = 28
                    
                    Cells(sat, 27).Interior.ColorIndex = 6
                    Cells(sat, 29).Interior.ColorIndex = 28
                    
                    Cells(sat, 30).Interior.ColorIndex = 6
                    Cells(sat, 35).Interior.ColorIndex = 28
                    
                    Cells(sat, 36).Interior.ColorIndex = 6
                    Cells(sat, 41).Interior.ColorIndex = 28
                    
                    Range("V" & sat & ":Y" & sat).Interior.ColorIndex = xlNo
                    Range("AB" & sat & ":AC" & sat).Interior.ColorIndex = xlNo
                    Range("AE" & sat & ":AH" & sat).Interior.ColorIndex = xlNo
                    Range("AK" & sat & ":AN" & sat).Interior.ColorIndex = xlNo
                    
            ''''Renlendirmeler sütun bazında tekrar hesaplanıyor
                If Cells(sat, 10) <> Empty Then
                    If Cells(sat, 10) <= Cells(sat, 9) Then
                        Cells(sat, 10).Interior.ColorIndex = 23
                        Else
                        Cells(sat, 10).Interior.ColorIndex = 3
                    End If
                End If
                If Cells(sat, 8) < 0 Then
                    For i = 11 To 17 Step 2
                        If Cells(sat, i) < Cells(sat, i + 1) Then
                            Cells(sat, i).Resize(, 2).Interior.ColorIndex = 24
                            ElseIf Cells(sat, i) > Cells(sat, i + 1) Then
                            Cells(sat, i).Resize(, 2).Interior.ColorIndex = 44
                        End If
                    Next i
                    ElseIf Cells(sat, 8) > 0 Then
                    For i = 11 To 17 Step 2
                        If Cells(sat, i) < Cells(sat, i + 1) Then
                            Cells(sat, i).Resize(, 2).Interior.ColorIndex = 44
                            ElseIf Cells(sat, i) > Cells(sat, i + 1) Then
                            Cells(sat, i).Resize(, 2).Interior.ColorIndex = 24
                        End If
                    Next i
                End If
                If Cells(sat, 19) > 0 Then
                    If Cells(sat, 19) <= Cells(sat, 20) Then
                        Cells(sat, 19).Interior.ColorIndex = 23
                        Else
                        Cells(sat, 19).Interior.ColorIndex = 3
                    End If
                End If
                
                If Cells(sat, 20) > 0 Then
                    If Cells(sat, 20) <= Cells(sat, 19) Then
                        Cells(sat, 20).Interior.ColorIndex = 23
                        Else
                        Cells(sat, 20).Interior.ColorIndex = 3
                    End If
                End If
                
                If Cells(sat, 28) > 0 Then
                    If Cells(sat, 28) <= Cells(sat, 27) Then
                        Cells(sat, 28).Interior.ColorIndex = 23
                        Else
                        Cells(sat, 28).Interior.ColorIndex = 3
                    End If
                End If
                If Cells(sat, 29) > 0 Then
                    If Cells(sat, 29) > Cells(sat, 27) Then
                        Cells(sat, 29).Interior.ColorIndex = 3
                        Else
                        Cells(sat, 29).Interior.ColorIndex = 23
                    End If
                End If
                
                For n = 22 To 25
                    If Cells(sat, n) > 0 Then
                        If Cells(sat, n) < Cells(sat, 21) Then
                            Cells(sat, n).Interior.ColorIndex = 23
                            Else
                            Cells(sat, n).Interior.ColorIndex = 3
                        End If
                    End If
                Next n
                For n = 31 To 34
                    If Cells(sat, n) > 0 Then
                        If Cells(sat, n) < Cells(sat, 30) Then
                            Cells(sat, n).Interior.ColorIndex = 23
                            Else
                            Cells(sat, n).Interior.ColorIndex = 3
                        End If
                    End If
                Next n
                For n = 37 To 40
                    If Cells(sat, n) > 0 Then
                        If Cells(sat, n) < Cells(sat, 36) Then
                            Cells(sat, n).Interior.ColorIndex = 23
                            Else
                            Cells(sat, n).Interior.ColorIndex = 3
                        End If
                    End If
                Next n

 

[muhasebeciyiz]

denermisiniz

 

[muhasebeciyiz]

her iki dosyayıda deneyip geri dönüş yapınız

 

[mustafa]

her iki dosyayıda deneyip geri dönüş yapınız, eline sağlık

Üstat öncelikle elinize sağlık, teşekkür ederim.

İkinci dosyada kodlar değişmiş, daha mı iyi olmuş tam emin olamadım fakat size güvenerek bu dosya ile devam etmek istiyorum.

Birinci olarak, Ana Sayfada V24-Y39 hücreleri üstteki (V6-Y21) hücrelerle aynı renk olması lazım



İkinci olarak da yine Ana Sayfada satırlardaki veriyi silince bazı bölümlerde biçimlendirme gitmiyor, diğer satırlarda olduğu gibi buralarda da veri silinince biçimlendirmenin de silinmesi gerekiyor.



Bu iki sorunu da hallederseniz çok memnun olurum. Dosyayı ekledim.

 

[muhasebeciyiz]

mustafa 1.dosya işini görüyormu onu söyleyiniz

 

[mustafa]

mustafa 1.dosya işini görüyormu onu söyleyiniz

Üstat, onda da aynı sıkıntı var.

 

[muhasebeciyiz]

deneyin bakalım

 

[mustafa]

Eyvallah üstat, elinize sağlık, çok teşekkür ederim.