Buton ile saydırma yapılan verileri sayfaya aktarma..

[manly]

Ekte gönderdiğim dosya açıldığında "Atelyede Olanları Say" butonu ile W sütununa göre sayma işlemi yapılıyor.. Bu yapılan sayımlardaki verileri LİSTE sayfasına aktarmasını istiyorum...

 

[manly]

Yardımlarınızı bekliyorum...

 

[İhsan Tank]

Merhaba
Sorunuzu tam anlamadım biraz daha açıklama yapar mısınız_?

 

[manly]

Şöyle anlatayım..

Şart öncelikle Z sütununda * olanlar süzülüp yapılacak.
Sonra W sütunundaki veriler kendi aralarında sayılacak, mesela ONARIMDA 20 adet bu LİSTE sayfasında ilgili yere yazılacak HEK 280 adet o da LİSTE sayfasında ilgili yere yazılacak diğerleri de bu yolu takip edecek...

 

[İhsan Tank]

Şöyle anlatayım..

Şart öncelikle Z sütununda * olanlar süzülüp yapılacak.
Sonra W sütunundaki veriler kendi aralarında sayılacak, mesela ONARIMDA 20 adet bu LİSTE sayfasında ilgili yere yazılacak HEK 280 adet o da LİSTE sayfasında ilgili yere yazılacak diğerleri de bu yolu takip edecek...

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sipariş_say_61()
Dim ts, kaplan, trabzonspor, s1, s2, süre As Date
trabzonspor = MsgBox("Verileri Sayıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
süre = Time
Set s1 = Sheets("2011 SİPARİŞLER")
Set s2 = Sheets("LİSTE")
s2.Range("B2:B65536").ClearContents
For trabzonspor = 2 To s2.Cells(65536, "A").End(xlUp).Row
kaplan = 0
For ts = 2 To s1.Cells(65536, "B").End(xlUp).Row
If s1.Cells(ts, "W") = s2.Cells(trabzonspor, "A") And _
s1.Cells(ts, "Z") = "*" Then
kaplan = kaplan + 1
End If
Next
s2.Cells(trabzonspor, "B") = kaplan
Next
Application.ScreenUpdating = True
MsgBox Format(Time - süre, "hh:mm:ss") & " Sürede İşlem Tamam", _
vbInformation, "Bitiş"
End Sub

 

[manly]

Hocam değerler tutmuyor...

ONARIMDA 20
ATELYEDE SIRA BEKLİYOR 110
ATELYEDE TESLİME HAZIR 121
SON MUAYENE 135
HEK 345
HEK-İADE 345
SIRA BEKLİYOR 532
İADE EDİLDİ 608

 

[manly]

Normali böyle olması gerekiyor...


ONARIMDA 20
ATELYEDE SIRA BEKLİYOR 90
ATELYEDE TESLİME HAZIR 11
SON MUAYENE 14
HEK 210
HEK-İADE
SIRA BEKLİYOR 187
İADE EDİLDİ 76

sanki verileri birbirine aktararak toplamış

 

[İhsan Tank]

Normali böyle olması gerekiyor...


ONARIMDA 20
ATELYEDE SIRA BEKLİYOR 90
ATELYEDE TESLİME HAZIR 11
SON MUAYENE 14
HEK 210
HEK-İADE
SIRA BEKLİYOR 187
İADE EDİLDİ 76

sanki verileri birbirine aktararak toplamış

Üstteki kodu güncelledim

 

[manly]

Tamam hocam şimdi düzeldi...Çok teşekkür ederim...

 

[İhsan Tank]

Tamam hocam şimdi düzeldi...Çok teşekkür ederim...

Rica ederim
:keyif: