DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
MerhabaArkadaşlar sorum ektedir,iyi çalışmalar.
H3 hücresine yazarak aşağı çekin
=EĞER(C3="";"";DÜŞEYARA(C3;DESİ!A:C;3;YANLIŞ))
I3 Hücresine yazarak aşağı çekin
=EĞER(C3="";"";D3*H3)
J3 Hücresine
=EĞER(C3="";"";DÜŞEYARA(C3;DESİ!A:D;4;YANLIŞ))
MerhabaÇ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
=EĞER(EHATALIYSA(DÜŞEYARA(C3;DESİ!A:C;3;YANLIŞ));"";
DÜŞEYARA(C3;DESİ!A:C;3;YANLIŞ))
I3 hücresine
=EĞER(EHATALIYSA(D3*H3);"";D3*H3)
J3 Hücresine
=EĞER(EHATALIYSA(DÜŞEYARA(C3;DESİ!A:D;4;YANLIŞ));"";DÜŞEYARA(C3;
DESİ!A:D;4;YANLIŞ))
Üstteki mesajımda bahsettiğiniz hücreler için formül yazdım. inceleyin.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.
MerhabaHocam 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.
=EĞER(EHATALIYSA(A1/B1);"";A1/B1)
=EĞER(EHATALIYSA(A1/B1);0;A1/B1)
İhsan bey ve Black Lord çok teşekkürler,emeğinize sağlık,süper oldu.
Katkımız olduysa ne mutluİhsan bey ve Black Lord çok teşekkürler,emeğinize sağlık,süper oldu.
Aktarılacak satırlar I28 K28 mi?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?
Merhabaevet,ı28 ve k28
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
İlk yolladığınız dosyada CommandButton yoktuHocam denedim fakat ikinci yaptığım hesaplamayı atmadı,acaba ben mi yanlış bişi yaptım?
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
Eki inceleyindoğ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.