Veri Karşılaştırma

[programer]

Arkadaşlar forumda arama yaptım ama istediğim gibi bişey bulamadım. Bulduklarım oldu ama forumun taşınması sırasında dosyalar silinmiş. Çalıştığım şirette ürünlari barkodlayarak stoğa alıyoruz ve çıkışlarını yapıyoruz. Benim yapmak istediğim elimde kalan barkodları bulmak. Sayfa1'de giren barkodlar Sayfa2'de çıkan barkodlar var. Sayfa1'ki barkodu sayfa2 de arayacak eğer barkod varsa karşısına kopyalacak. Ben boş hücreleri gizlemekle ilgili kodu forumda buldum boş olanları gizlediğimde elimde kalan barkodları bulmuş olucam.

 

[talatcd]

Açıklamayı sayfa üzerine yazdım. Sayfa1 (Giriş), Sayfa2 (çıkış) sayfası, Sayfa1 de olan barkod, sayfa2 de çıkmış ise Sayfa2 deki barkodun B sütununu renklendiriyor.

Umarım işinize yarar.

 

[AS3434]

Sayın programer

Neyi nereye yazacağımı bilemedim. İşlemi sayfa1 de yaptım.
Dosyayı inceleyin.

 

[arol11]

Selamlar,
Sayın talatcd ,fakat boş hücre olduğunda karşılaştırma sonucunu renklendirmiyor.Bu çalışmanızı tekrar gözden geçirebilirmisiniz?
İyi çalışmalar dilerim.

 

[programer]

Sayın programer

Neyi nereye yazacağımı bilemedim. İşlemi sayfa1 de yaptım.
Dosyayı inceleyin.

Sayın AS3434

Yardımınız için teşekkür ederim. gayet güzel çalışıyor ama bunu formül kullanmadan sadece makro ile yapabilirmiyiz. Eğer mümkünse Çıkan sayfasındaki barkodları girendekilerle karşılaştıracak eşleşme varsa çıkan barkodları girenin karşısına yazacak

 

[AS3434]

Sayın programer

Dosya zaten makro ile çalışıyor. Ben D sütunundaki formülü kontrol etmek için yazmıştım.

Eğer mümkünse Çıkan sayfasındaki barkodları girendekilerle karşılaştıracak eşleşme varsa çıkan barkodları girenin karşısına yazacak

Ama sorunuzu anlamakta hala zorluk çekiyorum. İşlemin Giren sayfasında yapılmasını ve Giren sayfasında B sütununa Barkot No yazılmasını istemiyormusunuz? Makronun yaptığı işlem zaten bu.

Sub Bossil()
Dim son As Long, say As Long, i As Long
basla = Time
Set s1 = Sheets("Giren")
Set s2 = Sheets("Çıkan")
s1.[b:b].ClearContents
son = s2.[a65536].End(3).Row
For i = 2 To [a65536].End(3).Row
say = WorksheetFunction.CountIf(s2.Range("a2:a" & son), Cells(i, "a"))
If say >= 1 Then
Cells(i, "b") = [COLOR=red]"Çıkış Var"[/COLOR]
End If
Next
bitis = Time
MsgBox "Sorgulama Süresi: " & Format(bitis - basla, "hh:mm:ss")
End Sub

Koddaki Kırmızı yeri

Cells(i, "a")

Olarak değiştirirseniz Barkod nosunu yazar.

 

[programer]

Sayın programer

Dosya zaten makro ile çalışıyor. Ben D sütunundaki formülü kontrol etmek için yazmıştım.



Ama sorunuzu anlamakta hala zorluk çekiyorum. İşlemin Giren sayfasında yapılmasını ve Giren sayfasında B sütununa Barkot No yazılmasını istemiyormusunuz? Makronun yaptığı işlem zaten bu.

Sub Bossil()
Dim son As Long, say As Long, i As Long
basla = Time
Set s1 = Sheets("Giren")
Set s2 = Sheets("Çıkan")
s1.[b:b].ClearContents
son = s2.[a65536].End(3).Row
For i = 2 To [a65536].End(3).Row
say = WorksheetFunction.CountIf(s2.Range("a2:a" & son), Cells(i, "a"))
If say >= 1 Then
Cells(i, "b") = [COLOR=red]"Çıkış Var"[/COLOR]
End If
Next
bitis = Time
MsgBox "Sorgulama Süresi: " & Format(bitis - basla, "hh:mm:ss")
End Sub

Koddaki Kırmızı yeri

Cells(i, "a")

Olarak değiştirirseniz Barkod nosunu yazar.

Sayın AS3434

Macro bilgim çok yok onun için kusura bakmayın kodu tam olarak anlayamadım.

İstediğim tam olarak buydu yardımlarınız için çok teşekkür ederim.

 

[veyselemre]

Çalışmanızda rapor sayfası düzenledim. Giren/Çıkan stokları daha iyi izleyebilirsiniz.

 

[talatcd]

arol11 boş hücre diyince anlamadım, boş hücreyi renklendirmesine ne gerek var ki. boş hücreyi işaretlerse veri olmayan bütün hücreleri işaretlemesi lazım. Olmayacak bir şey gibime geliyor yoksa ben mi anlamadım soruyu.

 

[arol11]

İyi günler,
çoktandır bu soru için cevap beklemiştim.ekli dosyada ,eklediğim bir sayı için(19.satırda) işaretlemeyi yapmıyorr.Fakat ardından diğer satırlara (19.satırsonrasına)ekleme yaptığımda renklendirme yapıyor.Açıkçası güvenli göremediğimi söylemeliyim.
Kolay gelsin,iyi çalışmalar dilerim.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Koşullu biçimlendirme yapıldı.
19ncu satırıdaki değeride biçimlendiriyor.

 

[arol11]

Teşekkürler sayın orion2,
fakat aynı durum devam ediyor.üstelik sayfa 2 de şekildeki gibi barkod karşısında biçimlendirmede yapmıyor.Bence üzerinde durmasak daha iyi olacak kanaatindeyim.Ne dersiniz?

 

[Orion1]

Teşekkürler sayın orion2,
fakat aynı durum devam ediyor.üstelik sayfa 2 de şekildeki gibi barkod karşısında biçimlendirmede yapmıyor.Bence üzerinde durmasak daha iyi olacak kanaatindeyim.Ne dersiniz?

Merhaba.
Ekli dosyayı inceleyiniz.:cool

 

[arol11]

Selamlar sayın orion2,
Dediğim gibi ,bu dosya ve kodları güvenli değil,yada eksik.Ekli dosyaya tekrar bi gözatın,Konuyu devam ettirmeye gerek yok bence,başka bir mantıkla çözmek gerekir diye düşünüyorum.

 

[Orion1]

Selamlar sayın orion2,
Dediğim gibi ,bu dosya ve kodları güvenli değil,yada eksik.Ekli dosyaya tekrar bi gözatın,Konuyu devam ettirmeye gerek yok bence,başka bir mantıkla çözmek gerekir diye düşünüyorum.

İşlem tamamdır.
Ekli dosyayı inceleyiniz.

 

[arol11]

Evvet işte bu.
Süpersiniz sayın orion2 .
Çok teşekkür ederim.Lütfen kabul edin.
Hoşçakalın.

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[vivacious]

Arkadaşlar yukarıdaki dosyaları indiremiyoum arşivden kaldırılmış benim böyle bir şeye ihtiyacım var yardımcı olabilirmisiniz