Koşullu Biçimlendirme, Düşey Ara Komutları ile ilgili yardım

[tamer26]

Gerekli açıklamaları ekteki tabloda yaptım. Kısaca farklı çalışma sayfalarındaki malzemeleri bir icmalde listeleyerek birim fiyatları çalışma sayfalarına dağıtacak ve toplamları hesaplayacak. Ben ön çalışmasını yaptım. Yardımlarınızı rica ediyorum. Şimdiden teşekkürler.

NOT : EXCEL 2007 kullanıyorum.

 

[mustafaine1]

cins ve aciklama bolumleri ne sekilde doldurulacak; kriteri nedir. Her sayfadaki mukerrer olmayanlar mu konulacak..

 

[tamer26]

İcmalde Cins, Açıklama ve Birim Kolonları diğer çalışma sayfalarından (Sepet 1,2, ve 3 den )gelecek. Cins kısmında mükerrer olmayacak.

 

[mustafaine1]

Kusura bakmayin araya baska bir is girdi.. Dosyayi bir inceleyin eksiklerini ve diger bolumlerinin nasil olmasi gerektigini soyleyin, kolay gelsin..

 

[tamer26]

İlginiz için teşekkürler. İcmal sayfasında Açıklama ve Birim Kolonlarına (Örneğin yeşil elma sütununa Amasya ve kg ) ilgili değerin gelmesi lazım. Diğer çalışma sayfalarında da (1.2. ve 3 sepetlerde ) B. fiyat kısmına ilgili fiyatlar gelmeli. ( Örneğin 1. sepette Yeşil Elma 5.00 TL gibi )

 

[mustafaine1]

ekteki dosyayi tekrar inceleyerek, isteginiz varsa yaziniz..

 

[tamer26]

Tam istediğim gibi oldu. Çok teşekkür ederim.

 

[tamer26]

Bir hata varmış Şimdi farkettim. İcmalde Miktar kısmında hata var. Mesela 3. sepette soğan 10 kg olmasına rağmen İcmalde 1,5 kg görünüyor

 

[mustafaine1]

evet dikkatimden kacmis ilk sayfadan almisim tum verileri, yeni dosyada duzenledim.. yine bolundum bu arada

 

[tamer26]

Evet ben de bulup düzeltmiştim. Teşekkürler. Bu arada benim size gönderdiğim küçük bir örnekti. Bunun gibi 100 lerce satırdan oluşan tablolar var. Sizin yaptığınız bu düzenlemeyi o tablolara uyarlıyorum. Ancak formülü kopyalayıp yapıştırdıktan sonra macro çalışınca exceli bayağı bir kasıyor ve dakikalarca çalışıyor. Çözüm yolu var mıdır ?

 

[mustafaine1]

macro dediginiz =Mukerrer_Olmayan(Cins!A:A) seklindeki KTF`mi yoksa baska bir macro mu var dosyanizda..

 

[tamer26]

Evet o. Bir de aşağıdaki macro var. (Sayıyı yazıyla paraya çeviriyor. )

Public Function ParaCevir(Para)
Dim ParaStr As String
Dim TL As String, Kurus As String

If Not IsNumeric(Para) Then GoTo SayiDegil

ParaStr = Format(Abs(Para), "0.00")

TL = Left(ParaStr, Len(ParaStr) - 3)
Kurus = Right(ParaStr, 2)

ParaCevir = IIf(Para < 0, "Eksi ", "") & Cevir(TL) & " TL " & Cevir(Kurus) & " KURUŞ"

Exit Function

SayiDegil:
ParaCevir = "GİRİLEN DEĞER SAYI DEĞİL!"
End Function

Private Function Cevir(SayiStr As String) As String
Dim Rakam(15)
Dim c(3), Sonuc, e

Birler = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
Onlar = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
Binler = Array("trilyon", "milyar", "milyon", "bin", "")

SayiStr = String(15 - Len(SayiStr), "0") + SayiStr

For i = 1 To 15
Rakam(i) = Val(Mid$(SayiStr, i, 1))
Next i

Sonuc = ""
For i = 0 To 4
c(1) = Rakam(i * 3 + 1)
c(2) = Rakam(i * 3 + 2)
c(3) = Rakam(i * 3 + 3)
If c(1) = 0 Then
e = ""
ElseIf c(1) = 1 Then
e = "yüz"
Else
e = Birler(c(1)) + "yüz"
End If
e = e + Onlar(c(2)) + Birler(c(3))
If e <> "" Then e = e + Binler(i)
If (i = 3) And (e = "birbin") Then e = "bin"
Sonuc = Sonuc + e
Next i

If Sonuc = "" Then Sonuc = "00"

Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function

 

[mustafaine1]

bunlarin hepsin KTF bu durumda bunlarin yaptigi yavaslatma adina yardimci olamicam ama dosyanizda bence tek icmal sayfasinin olmasi ve bu icmal sayfasina sepet sayilarini girerek rapor almaniz daha kolay olacaktir..