UserForm da % hesapları

[Erhan Üstünel]

selam arkadaşlar, ekdeki örnekde user formumda kdv tutarından KDV matrahını buluyorum ama bu formül tüm sutunlara uygulanıyor,

ben bunu belli aralıklara bölecek olsam nasıl bi işlem gerekir,


örnek
j5 ile j15 arasını % 1
j18 ile j28 arasını % 8
j5 ile j15 arasını % 18 den hesaplatmak istersem ?

sonuçlar K sutununda olacak..

yardımcı olabilecek varmı acaba?

 

[Erhan Üstünel]

konuyu yarın takip edicem artık herkese iyi akşamlar

 

[Zeki Gürsoy]

Sorunuzla ekli dosyanızın alakası yok.

 

[Erhan Üstünel]

Hocam şöyle açıklama yapayım user formu 3 e böldüm,

1 kısım tüm hücrelere hesaplamayı yapıyor, ( bu şekilde kullanıyorum)

2 kısımda hazırladığım şekilde hesaplama yapabilirmiyim diye oluşturdum,
3 kısımda RefEdit nesnesini ekledim açıkcası ne işe yaradığını bilmiyorum, hücre aralıklarını seçme konusunda işimize yararmı bi fikrim yok, fikir verme açısından ekledim

anlaşılmayan yer varsa daha ayrıntılı anlatabilirim.

 

[Zeki Gürsoy]

Bence "RefEdit" kullanın. Kullanışlı olur. Ekli dosyanıza 6 Label daha ekledim.

RefEdit lerin üçünü de seçim yapmanız şart.

Düzenlenmiş hali ektedir.

Private Sub CommandButton2_Click()
[COLOR=DarkGreen]'Refedit hesaplama butonu[/COLOR]
Dim t As Double, b As Byte, arr()

arr = Array(0.01, 0.08, 0.18)

For b = 1 To 3
    t = WorksheetFunction.Sum(Range(Controls("RefEdit" & b)))
    Me.Controls("label" & b + 21) = FormatNumber(t, 2)
    Me.Controls("label" & b + 24) = FormatNumber(WorksheetFunction.Round(t / arr(b - 1), 2), 2)
Next

End Sub

 

[Erhan Üstünel]

Hocam teşekkür ediyorum, hesaplamalar süper
fakat sonuçları label lerde değilde, commadbutton1 in çalışma stili gibi J sutununda görebilirmiyiz, yani Refedit ile seçilen aralığın soluna (J sutunu) % 1 veya 8 veya 18 matrahlarını yazdırcak

 

[Zeki Gürsoy]

"CommandButton2" yi aşağıdaki ile değiştirin.

Hesaplanmasını istmediğiniz RefEdit ler boş kalabilir. Ör: %18 için yalnızca Ref3 ile seçim yapmanız yeterli.

Private Sub CommandButton2_Click()
Dim b As Byte, r As Range, arr()

arr = Array(0.01, 0.08, 0.18)

For b = 1 To 3

   If Me.Controls("RefEdit" & b) <> "" Then
   
        For Each r In Range(Me.Controls("RefEdit" & b))
        
            Cells(r.Row, "J") = FormatNumber( _
                WorksheetFunction.Round(r / arr(b - 1), 2), 2)
            
        Next
        
   End If
   
Next

End Sub

 

[Erhan Üstünel]

Hocam sabah ilk isim kontrol etmek olucak, simdi telden baktigim icin kontrol edemiyorum, cevabiniz icin cok tesekkur ediyorum, iyi geceler.

 

[Erhan Üstünel]

Zeki hocam çok teşekkür ediyorum, süper oldu..

Dosyanın son şeklini ekliyorum kullanacak arkadaşlar olursa diye,
içinde birkaç ufak not lar aldım,
Kısaca :
çif tıklamayla satır renklendirme,
otomatik anımsama
listboxdan firma adı seçerek hücrelere kayıt yapma
KDV matrah hesaplama
mükerrer kayıtları hücrede belirtme gibi formüllerden yararlanılabilir.
Hazırlama aşamasında yardımları geçen arkadaşlara ve Zeki hocama tekrar çok teşekkür ediyorum..

 

[Erhan Üstünel]

Hocam bu konu hakkındaki son sorum hesaplamayı yaptırdığımız J sutununa sayısal olarak atamasını nasıl yaptırabiliriz, yani toplam alamıyorum

 

[Zeki Gürsoy]

J sütununa yazılan değerler "sayı" olarak görünüyor ve toplanabiliyor da.

 

[Erhan Üstünel]

Hocam en sonki revize sonrası hesaplama yaptıktan sonra J sutununa numerik olarak algılamıyor, dolayısıyla toplam alamıyorum bende.