Follow along with the video below to see how to install our site as a web app on your home screen.
Not: This feature may not be available in some browsers.
DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
Sub Hesapla()
On Error Resume Next
Set syf = Sheets("STOKLAR")
ss = syf.Cells(Rows.Count, 6).End(xlUp).Row
If ss < 3 Then Exit Sub
syf.Range("T3:T").ClearContents
For i = 3 To ss
deger = syf.Cells(i, 6)
If deger = "İPLİK" Or deger = "ÖRME KUMAŞ" Or deger =...