kod sayfada topluyor userformda toplamıyor

[uguristanbul]

degerli arkadaslar
asagıda ekledigim dosyadan veri sayfasındaki butona tıklayın acılan formdanda cari işlemler combosundan faturayı seçiniz checkboxlardan r olanı işaretleyin
form bu sekilde iken
ürün bilgilerini giriniz frameinden ürünlerini girin ve miktar yazıp cıktıgınızda
kod verileri fatura sayfasına aktarıyor(textbox4 in exit bolumunde)
aktardıktan sonra da gene aynı bolumde bulunan
Dim SUT, S As Integer
[A2100].Clear
S = 1
For SUT = 2 To Cells(65536, "N").End(3).Row
If Not WorksheetFunction.CountIf(Range("N1:N" & SUT), Cells(SUT, "N")) > 1 Then
S = S + 1
Cells(S, "A") = Cells(SUT, "N")
End If
Next
S = 1
For SUT = 2 To Cells(65536, "A").End(3).Row
S = S + 1
Cells(S, "B") = WorksheetFunction.SumIf(Range("N2:N65536"), Cells(SUT, "A"), Range("S2:S65536"))
Next
S = 1
For SUT = 2 To Cells(65536, "A").End(3).Row
S = S + 1
Cells(S, "C") = Cells(SUT, "A") * Cells(SUT, "B") / 100
Next
[D2] = WorksheetFunction.Sum(Range("C2:C65536"))bu kodda fatura sayfasında kdv hesaplayı usreform uzerindeki list box 1 de gosteriyor
ancak kdv oranlarını yazıyor fakat toplamları alıp hesaplama yapmıyor
fakat aynı kod sayfa icindeki bir command buton ile mukemmel calısıyor userformda nasıl düzeltebilirim?

 

[Recep İpek]

Eğer bu hesaplamaları Fatura sayfasında yapacaksa bu sayfayı tanımlamanız gerekmektedir.

Yani

Dim SUT, S As Integer
[A2:D100].Clear
S = 1
For SUT = 2 To Cells(65536, "N").End(3).Row
If Not WorksheetFunction.CountIf(Range("N1:N" & SUT), Cells(SUT, "N")) > 1 Then
S = S + 1
Cells(S, "A") = Cells(SUT, "N")
End If
Next

kodlarını

Dim SUT, S As Integer
[COLOR=blue]Set s1 = Sheets("fatura")[/COLOR]
[COLOR=blue]s1.[/COLOR][COLOR=black][[/COLOR]A2:D100].Clear
S = 1
For SUT = 2 To [COLOR=blue]s1[/COLOR].Cells(65536, "N").End(3).Row
If Not WorksheetFunction.CountIf([COLOR=blue]s1[/COLOR].Range("N1:N" & SUT),[COLOR=blue] s1[/COLOR].Cells(SUT, "N")) > 1 Then
S = S + 1
[COLOR=blue]s1[/COLOR].Cells(S, "A") =[COLOR=blue] s1[/COLOR].Cells(SUT, "N")
End If
Next
.....
.....

yapmanız gerekiyor.

 

[uguristanbul]

recep hocam gene hata veriyor

sayın recep hocam ekteki dosyada
userform icinde bulunan tum kodları ekleyerek gonderdim
tanımladıgınız s1 de hata verdi yardımlarınız icin teskkur eder
saygılar sunarım

 

[Recep İpek]

Ne tür bir hata veriyor?

 

[uguristanbul]

hata bu hocam

sayın recep hocam ekteki dosyada
userform icinde bulunan tum kodları ekleyerek gonderdim
tanımladıgınız s1 de hata verdi yardımlarınız icin teskkur eder
saygılar sunarım

 

[Recep İpek]

Kodlarınızın üst tarafında zaten fatura sayfasını seçtiğiniz için bu sayfayı tekrardan tanımlamanıza gerek kalmadı.Burayı atlamışım.

Dosyanız sanki bende doğru şekilde çalışıyor gibi.

Fatura'yı seçip 1 adet kayıt girdiğimde fatura sayfasında ekteki gibi bir sonuç çıktı.

 

[uguristanbul]

hyr hocam malesef olmuyor
soyle denermisiniz ltf
veri sayfasından formu ac deyip cıkan formun combosundan fatura diyelim onumuzu fatura formu cıkacak(vba da basliksiz) bu fatura formunda yukardaki checkboxlardan r checkboxsını işsretleyelim (yani resmi fatura olması icin zaten gr check box ı işaretli ise kdv hesaplamayacak)
bundan sonrada ürün bilgilerini giriniz diyelim ve combolarda kayıtlı bişeyler girin satış fiyatı ve miktar da girip enterlayalım listbox 1 de kdv lerin gozukmesi gerekirken
kdv oranı gorunuyor ancak hesaplama yapmıyor malesef
yardımlarınız icin tesekkur eder
saygılar sunarım