sütunda bölme işlemi

[k0081]

Merhaba arkadaşlar;

F4:F63 aralığında cm olarak girilmiş değerler var. Command buton ile bu değerleri 100 e nasıl böldürebilirim?

* F4:F63 her zaman dolu olmuyor.. yani her zaman F4 başlıyor ., F45 kadar veri oluyor bazen.. bunun içinde X değişkeni işe yarayabilir..

Cells(X, 4) = "1" bu kod ile 4. sütuna 1 sayısını yazdırıyorum.. buradaki X değişkenini kullanabilirsiniz.

yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi olabilir.
Sayfa adına dikkat edip, gerekli düzeltmeyi yaparsınız.
İlgili hücre BOŞ veya METİN içeriyorsa o hücrede işlem yapılmaz.
.

[B]Private Sub CommandButton1_Click()[/B]

For sat = 4 To 63
    If Sheets("[COLOR="red"]Sayfa1[/COLOR]").Cells(sat, "F") <> "" And IsNumeric(Sheets("[COLOR="red"]Sayfa1[/COLOR]").Cells(sat, "F")) = True Then _
    Sheets("[COLOR="red"]Sayfa1[/COLOR]").Cells(sat, "F") = Sheets("[COLOR="Red"]Sayfa1[/COLOR]").Cells(sat, "F") / 100
Next

[B]End Sub[/B]

 

[k0081]

Ömer BARAN

Hocam çok teşekkür ediyorum, Tamamdır.. Elinize sağlık.