Halı saha isim belirleme programı

[cumaliyagtu]

Halı saha için isim belirletme

ekte hazıladığım örnekte halı saha için yeni takım isim listesi belirlemek istiyorum acaba yardımcı olabilecek birisi var mı. Şimdiden teşekkür ederim..

 

[cumaliyagtu]

henüz cevap veren olmamış

 

[raaroka]

henüz cevap veren olmamış

dosya bozuk açılamıyor diye hata alıyorum eklenen dosyada.

 

[cumaliyagtu]

yeniden yükledim şimdi denermisiniz, kusura bakmayın biraz acemiyimde

 

[efe34]

Şu an itibariyle de aynı hata mesajını veriyor..."Dosya bozuk açılamıyor".
Dosyanın önce kendi pcnizde sorunsuz açıldığından emin olun, sonra yapmanız gereken tek şey dosyayı upload etmek..

 

[cumaliyagtu]

ilginize teşekür ederim arkadaşlar, bu sefer hem .rar hem .xls uzantılı olarak ekledim birde şimdi denermisiniz

 

[Muhammet Okumuş]

Merhaba,

Sub HalıSaha()
sat = 12
For a = 1 To 10
x = a * 11 - 10
y = x + 9
For i = 1 To 17
c = 1
For j = x To y
sut = WorksheetFunction.CountA(Range("T" & sat & ":AT" & sat)) + 20
If Cells(j, i).Interior.ColorIndex = 4 Then Cells(sat, sut) = Cells(c, i + 19)
c = c + 1
Next
Next
sat = sat + 1
Next
End Sub

Dosyayı inceleyiniz.

 

[cumaliyagtu]

Muhammet Hocam teşekür ederim, elinize sağlık tam istediğim gibi olmuş