• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

düğmeye basınca içeriği "1" olan hücreler değişsin

[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]
 
cevabın için teşekkürler. veyselemre

satırlar için döngüyü yapmıştım da sütunları nasıl ifade edeceğimi bilemedim
A dan Z ye gibi hep düşündüm sağol.
 
Geri
Üst