İki Kitap Arası Veri Kontrolü.Bir türlü düzgün yapamadım.

[awesper]

İki Kitap Arası Veri Kontrolü.Bir türlü düzgün yapamadım.

Herkese İyi Çalışmalar.
Birçok dosyam var ama sadece iki tanesini örnek olarak gönderiyorum.

Çalıştığım yerde bu özellikle bu forum sayesinde çok şeyler yaptım.Emek veren herkese teşekkür ederim.Konuda ihtiyacı olan çok kişiyi siteye yönlendirdim.Bana diyorlar ki sen bu işi biliyorsun diyorum siz bu işi bilenleri bilmiyorsunuz.Çok istifadeli oluyor.Sitede baktım ama beceremedim.Hatalı oluyor.Ben de Foruma sorayım dedim. :-(
Neyse sorum şu;

Ekteki dosyalardan Düzeltilecek.xls de turuncu ile renklendirdiğim verilerin güncelleşmesini istiyorum.Zannedersem şöyle oluyor(Ancak Formüllerini bilmiyorum)

Öyle bir Makro yada formül olsun ki;
Düzeltilecek.xls'deki dolu olan her satırdaki "Ürün No" sutununa baksın sonra o satırdaki ürün numarasını Referans.xls dosyasındaki seçili olan (Aktif olan) sayfadaki "Ürün No" sutununda arasın eğer uyuşan değer bulursa ilgili satırdaki ürün no'yu düzeltilecek.xls deki Kullanıcı sutununa yazsın.Bu işlemi Düzeltilecek.xlsdeki dolu satırlar bitene kadar tekrar etsin.

Eğersay,vlookup,indis vs .ile yapılıyor galiba ama ben yapamadım işte.
Bu Kadar başka birşey istemiyorum.
Ama acil yardımınıza ihtiyacım var.
Herkese İyi çalışmalar dilerim.

 

[Levent Menteşoğlu]

Sorunuzu bir ürün noyu örnek vererek açıklarmısınız.

 

[awesper]

Sorunu çözdüm galiba

Sorunuzu bir ürün noyu örnek vererek açıklarmısınız.

Teşekkür ederim. Sayın Leventm.

Bu mesele yüzünden sabahladım ama buldum.Problem düşeyara fonksiyonunun soldaki veriyi çağırmamasından kaynaklanıyormuş.Bunu da yine forumdan öğrendim.

Ancak Bir sorum daha olabilir.Akşam Bir makro ile uğraştım ama fonksiyonun bir kısmı çalışmadı.Aslında tam bir döngü çorbasına döndü
---------------------------------------------------------------
Sub Yazı()
Dim a, b, i, z As Integer

a = 2000
For b = 5 To a
If Cells(b, 18).Value = "alacak" Then
Cells(b, 20).Value = "x"
If Cells(b, 20).Value = "x" Then
i = 4
For z = 1 To i
If Cells(b - i, 8).Value = Cells(b, 8).Value Then
Cells(b - i, 20).Value = "x"
i = i + 1
Else: End If
Next z
End If
End If
Next b
End Sub


Soruyu Düzeltilecek.xls için düşünebilirsiniz.
Benim burda yapmak istediğim ilgili sutunda Mesela (z sutunu) "alacak" yazıyorsa aynı ürün numarasını tüm sayfada arasın ve bulduğu değerin yanına (yine z sutununa) "alacak" yazsın.Bunu son kullanılan satıra kadar yapsın.
Kodlama konusunda yardımınızı alabilir miyim?
Ayrıca ürün numaralarıda "Ürün No" sutunu altındaki değerlerdir.