makro ile bölme işlemi

[OZCANLOK]

Ekteki tabloda açıklamaya çalıştım

yardımlarınız için teşekkürler

 

[OZCANLOK]

pardon tabloyu eklemi yi unutmuşum

 

[veyselemre]

Kodları ilgili sayfanın kod sayfasına yerleştirin.
Yeniden koli miktarı girmek için önce hücreyi silip daha sonra yeni miktarı girmeniz gerekecek.

Private Sub Worksheet_Change(ByVal Target As Range)

    sat = Target.Row
    If sat < 17 Then Exit Sub
    sut = Target.Column
    If sut < 12 Or sut > 44 Or sut Mod 4 <> 0 Then Exit Sub

    If Cells(sat, 7) = "" Then Exit Sub

    If Target.Value = "" Then
        Target.Comment.Delete
        Exit Sub
    End If

    If Target.Comment Is Nothing Then
        md = Cells(sat, 7)
        Target.AddComment Target.Text
        Target.Comment.Visible = False
        Target.Value = Val(Target.Value) / Val(md)
    End If

End Sub

 

[OZCANLOK]

Sn veysel bey kodlar çok güzel çalışyor bunlarada çözüm bulabilirsek
çok sevinirimm

1-kolonda birkaç hücre seçip delete dediğimizde hata mesajı veriyor bunu nasıl
giderebiliriz.
2-hücreyi silmeden direk üzerinde değişiklik yaptığımızdada hücre değişebilirmi
3-comment iptal edebilirmiyiz.

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sn. veyselemre beyin size önerdiği kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Satır = Target.Row
    Sütun = Target.Column
    If Target.Count <> 1 Or Sat&#305;r < 17 Or S&#252;tun < 12 Or S&#252;tun > 44 Or S&#252;tun Mod 4 <> 0 Then Exit Sub
    If Target <> "" Then
    Application.EnableEvents = False
    Target = Target / Cells(Sat&#305;r, 7)
    Application.EnableEvents = True
    End If
End Sub

 

[canlaracan]

slm öncelikle teşekür ederim
ben aslında normal bir bölme işlemi arıyorum
excelde bölme işlemi var ama o da tam sayıları bölüyor. tam sayıdan sonrası ondalıkları göstermiyor.benim aradıığım söyle bir şey:
örneğin bir sayıyı başka bir sayıya böldüğümde çıkan sonuç virgüllü ise ;
virgülden sonra en az iki basamak gösteren bir bölme işlemi ni yapacak bir formül var mı ? varsa yazarsanız sevinim
şimdiden teşekkürler

 

[OZCANLOK]

sn cost control yazmış olduğu kod

hücre biçimlendirmeden 2 digit şecerseniz probleminiz çözülür

teşekkürler