[vb:1:e2de1484e5]Sub degistir()
For sut = 2 To 6
For sat = 3 To 30
If Cells(sat, sut) = 1 Then Cells(sat, sut) = Cells(1, sut)
Next sat
Next sut
End Sub[/vb:1:e2de1484e5]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.