• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Düşeyara ve Koşullu Biçimlendirme ile Toplam

Arkadaşlar sorum ektedir,iyi çalışmalar.
Merhaba
Sorunuzu dosya için yapmanız güzel ama başlığınızıda yazmanız cevap verecekler açısında iyi olur. Sorunuzu görmek için dosyayı indirmek zorunda kalmazlar.
Kod:
H3 hücresine yazarak aşağı çekin
=EĞER(C3="";"";DÜŞEYARA(C3;DESİ!A:C;3;YANLIŞ))
Kod:
I3 Hücresine yazarak aşağı çekin
=EĞER(C3="";"";D3*H3)
Kod:
J3 Hücresine
=EĞER(C3="";"";DÜŞEYARA(C3;DESİ!A:D;4;YANLIŞ))
Boşlukları renklendirmek için koşullu biçimlendirmeyi kullanabilirsiniz.
 
Çok teşekkürler ama birkaç sorun var,mesala ürün kodu kısmına cetvel yazınca sağ tarafta #YOK ibaresi çıkıyor,bunun yerine o hücreyi boş ve renkli bir biçime getiremezmiyiz acaba?Emeğinize sağlık
 
Çok teşekkürler ama birkaç sorun var,mesala ürün kodu kısmına cetvel yazınca sağ tarafta #YOK ibaresi çıkıyor,bunun yerine o hücreyi boş ve renkli bir biçime getiremezmiyiz acaba?Emeğinize sağlık
Merhaba
H3 bunu yazarak deneyin
Kod:
=EĞER(EHATALIYSA(DÜŞEYARA(C3;DESİ!A:C;3;YANLIŞ));"";
DÜŞEYARA(C3;DESİ!A:C;3;YANLIŞ))
Kod:
I3 hücresine
=EĞER(EHATALIYSA(D3*H3);"";D3*H3)
Kod:
J3 Hücresine
=EĞER(EHATALIYSA(DÜŞEYARA(C3;DESİ!A:D;4;YANLIŞ));"";DÜŞEYARA(C3;
DESİ!A:D;4;YANLIŞ))
 
Son olarak toplam desi sütunua ve koli adedi sutununa da bir yeni formül yazabilirmiyiz,onlarda da #yok veya #değer yazıyor,birde renklendirme yapabilirsek eğer hücre boş ise süper olur,çok çok teşekkürler,çok iyisiniz.
 
Son olarak toplam desi sütunua ve koli adedi sutununa da bir yeni formül yazabilirmiyiz,onlarda da #yok veya #değer yazıyor,birde renklendirme yapabilirsek eğer hücre boş ise süper olur,çok çok teşekkürler,çok iyisiniz.
Üstteki mesajımda bahsettiğiniz hücreler için formül yazdım. inceleyin.
 
Hocam birde koli adedinin sağ tarafına bir başlık daha yazmak istiyorum,tutan koli adedi diye,ürün adedi varsa bunu koli adedine bölsün istiyorum,

yani ürün adedi 150
koli adedi 5
tutan koli adedi 30

olmalı,fakat koli adedi yoksa veya ürün adedi boş geçilmişse #DEĞER VEYA #YOK uyarısı vermesin,boş hücre
çıksın istiyorum,nasıl yapılabilir,teşekküler,iyi çalışmalar.
 
Hocam birde koli adedinin sağ tarafına bir başlık daha yazmak istiyorum,tutan koli adedi diye,ürün adedi varsa bunu koli adedine bölsün istiyorum,
yani ürün adedi 150
koli adedi 5
tutan koli adedi 30
olmalı,fakat koli adedi yoksa veya ürün adedi boş geçilmişse #DEĞER VEYA #YOK uyarısı vermesin,boş hücre
çıksın istiyorum,nasıl yapılabilir,teşekküler,iyi çalışmalar.
Merhaba
Dosyanın son halni yükleyin yarımcı olmaya çalışayım
 
Hocam birde koli adedinin sağ tarafına bir başlık daha yazmak istiyorum,tutan koli adedi diye,ürün adedi varsa bunu koli adedine bölsün istiyorum,

yani ürün adedi 150
koli adedi 5
tutan koli adedi 30

olmalı,fakat koli adedi yoksa veya ürün adedi boş geçilmişse #DEĞER VEYA #YOK uyarısı vermesin,boş hücre
çıksın istiyorum,nasıl yapılabilir,teşekküler,iyi çalışmalar.

merhaba
dosyanızda bu kısımları göremedim
Yeni Ürün adedi A
Koli Adedi B olsun
C sütununa
Kod:
=EĞER(EHATALIYSA(A1/B1);"";A1/B1)
bunu yazın
toplam alacaksanız
Kod:
=EĞER(EHATALIYSA(A1/B1);0;A1/B1)
bunu yazın
 
İhsan bey ve Black Lord çok teşekkürler,emeğinize sağlık,süper oldu.
 
Merhabalar bir ricam daha olucak,yardım ederseniz sevinirim
ekteki listede hesaplama sayfasında
RAPORA EKLE diye bir tuş eklense ve butona basılınca TARİH RAPORU sayfasına
o günün TARİHİNİ,hesaplama sayfasındaki TOPLAM DESİ'yi ve TUTAN KOLİ miktarını aktarabilirmi acaba?Teşekkürler
 

Ekli dosyalar

Merhabalar bir ricam daha olucak,yardım ederseniz sevinirim
ekteki listede hesaplama sayfasında
RAPORA EKLE diye bir tuş eklense ve butona basılınca TARİH RAPORU sayfasına
o günün TARİHİNİ,hesaplama sayfasındaki TOPLAM DESİ'yi ve TUTAN KOLİ miktarını aktarabilirmi acaba?Teşekkürler
Aktarılacak satırlar I28 K28 mi?
 
Merhaba
Modüle ekleyerek deneyin
Kod:
Sub Aktar()
Set s1 = Sheets("TARİH RAPORU")
Set s2 = Sheets("HESAPLAMA")
Sat = s1.[A65536].End(3).Row + 1
s1.Cells(Sat, "a") = Date
s1.Cells(Sat, "b") = s2.[I28]
s1.Cells(Sat, "c") = s2.[K28]
MsgBox "Aktarma Tamamlandı.", vbInformation, "Black Lord"
End Sub
 
Merhaba
Modüle ekleyerek deneyin
Kod:
Sub Aktar()
Set s1 = Sheets("TARİH RAPORU")
Set s2 = Sheets("HESAPLAMA")
Sat = s1.[A65536].End(3).Row + 1
s1.Cells(Sat, "a") = Date
s1.Cells(Sat, "b") = s2.[I28]
s1.Cells(Sat, "c") = s2.[K28]
MsgBox "Aktarma Tamamlandı.", vbInformation, "Black Lord"
End Sub


Hocam denedim fakat ikinci yaptığım hesaplamayı atmadı,acaba ben mi yanlış bişi yaptım?
 

Ekli dosyalar

Hocam denedim fakat ikinci yaptığım hesaplamayı atmadı,acaba ben mi yanlış bişi yaptım?
İlk yolladığınız dosyada CommandButton yoktu :)
Kod:
Private Sub CommandButton1_Click()
Set s1 = Sheets("TARİH RAPORU")
Set s2 = Sheets("HESAPLAMA")
Sat = s1.[A65536].End(3).Row + 1
s1.Cells(Sat, "a") = Date
s1.Cells(Sat, "b") = s2.[I28]
s1.Cells(Sat, "c") = s2.[K28]
MsgBox "Aktarma Tamamlandı.", vbInformation, "Black Lord"
End Sub
 
İlk yolladığınız dosyada CommandButton yoktu :)
Kod:
Private Sub CommandButton1_Click()
Set s1 = Sheets("TARİH RAPORU")
Set s2 = Sheets("HESAPLAMA")
Sat = s1.[A65536].End(3).Row + 1
s1.Cells(Sat, "a") = Date
s1.Cells(Sat, "b") = s2.[I28]
s1.Cells(Sat, "c") = s2.[K28]
MsgBox "Aktarma Tamamlandı.", vbInformation, "Black Lord"
End Sub

:) doğrudur
yalnız yeni komutu yazınca da tarih raporu sayfasına ekleme yapmadı maalesef,acaba ben mi yanlış yapıyorum,pek bu tarz eklemeler yapmadım da.
 

Ekli dosyalar

Son düzenleme:
Geri
Üst