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.
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.
Kod:
''''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