kayıtta boş hücreler 0 olsun

[igultekin2000]

iyi günler; kumaş alış ve imalatı yaptığım işlemde Envanter sayfasına aktarılan değerler olmadığı zaman boş oluyor, bu değerleri kullanarak stok rapor sayfasında da envanter değerlerine göre toplama yapıyorum. değerler boş olduğu için toplama hata veriyor. elle sıfır yazıyorum. bunu otomatik boş hücreleri sıfır yapma imkanı var mıdır.

 

[Emir Hüseyin Çoban]

.

Tabloda nerede, ne işlem yapıyorsunuz anlayamadım.

Sayfa ismi, hücre adresi vererek tablo kullanımını adımlandırın.

Doğru sonuç veren ve hatalı sonuç veren satırları belirtin.

.

 

[igultekin2000]

ek bilgi

.

Tabloda nerede, ne işlem yapıyorsunuz anlayamadım.

Sayfa ismi, hücre adresi vererek tablo kullanımını adımlandırın.

Doğru sonuç veren ve hatalı sonuç veren satırları belirtin.

.

örnek resim ekldemi, IMALAT sayfasından giriş yapılınca Envanter Sayfasına aktarılıyor. stok_rapor sayfasında da Envanter sayfasındaki değerlere göre formülle rakamları topluyor. Envanter sayfasında boş hücrelerde sıfır olmadığında stok_rapor sayfasındaki formüller HATA değeri veriyor

 

[Emir Hüseyin Çoban]

.

Mavi ile belirttiğim kodları ilave edin..

[B]Sub giris_cikis()[/B]
'
' giris_cikis Makro
'

'

[COLOR="Blue"]For Each alan In Range("A19:N19")
If alan = "" Then alan.Value = 0
Next[/COLOR]

    Range("A19:N19").Select
    Selection.copy
    Sheets("Envanter").Select
    Application.Goto Reference:="R9999C1"
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("IMALAT").Select
    Application.CutCopyMode = False
    Range("D3:I3").Select
    Range("I3").Activate
    Selection.ClearContents
    Range("A3").Select
    
[B]End Sub[/B]

.

 

[igultekin2000]

Sorunsuz çalışıyor

Teşekkürler, sorunsuz çalışıyor

 

[Emir Hüseyin Çoban]

.

IMALAT sayfası A19 hücresi formülü: =$B$3
19. satırda bu şekilde olan formüllerinize eğer şartı ekleyerekte yapabilirsiniz.
A19 için formül: =EĞER($B$3="";0;$B$3)
A20 için formül: =EĞER($C$3="";0;$C$3)

Not: İletilerinizde gereksiz alıntı yapmayınız. Üst mesajınızdaki alıntıyı düzeltmenizi rica ederim.

.

 

[igultekin2000]

uygulama yapıldı

Formülle de sorun çözüldü ama makro daha pratik geldi, teşekkürler