Aynı değeri bulup yazma

[cetnkaya]

Merhaba aynı değeri bulup yanına yazdırmak istiyorum ekte detaylı anlatımı var bir formul dosyada mevcut ben istediğime göre düzenleyemedim yardımlarınızı rica ediyorum teşekkür ederim.

 

[DoğanD]

Merhaba,

Düşeyara formülü de işinize yarayabilir. Makro ihtiyacınız yok diye anlıyorum. Veri sayfası B2 hücresine yazıp çoğaltabilirsiniz.

=EĞERHATA(DÜŞEYARA($A2;Ürün!$A:$B;2;0);"")

 

[cetnkaya]

düşeyara formulü olmaz üstadım ürün sayfasındaki lot no devamlı güncellenecek ve veri sayfasına aynı ürün adına sırasıyla yazılacak makro olması lazım mevcut makro tek hücreden arama yapıp yazıyor onu düzenlememiz lazım yinede cevabın için teşekkür ederim

 

[cetnkaya]

Yardımınızı rica ediyorum

 

[DoğanD]

Merhaba,

Ekli dosyayı dener misiniz? Anladığım kadarıyla kurguyu biraz değiştirdim. İşinizi bozacak bir durum varsa revize edebiliriz. Kurgu şöyle;

-Lot No'larda sadece değişenler Veri sayfasına aktarılıyor. Dolayısıyla 5 üründen 3'ünün lot değişmişse, yani 2 ürünün lot no daha önce aktarılmışsa tekrar aktarmıyor. Lot1 - 5 değerleri arasında tekrar etmiyor.
-Her seferinde kayıtlı olmayan ürün kontrolü yapıp, yeni eklenen ürün varsa veri sayfasına ekliyor.

 

[cetnkaya]

DoğanD Üstad eline sağlık sadece aynı değer olsa bile hep yana dogru yazdıracak şekilde düzenleye bilirmisin lot aynı değerde oluyor teşekkür ederim

 

[DoğanD]

Merhaba,

Aşağıdaki gibi dener misiniz?

Sub Lotyaz1()
Dim i, y, sutun, satir, verisat As Integer
satir = Sayfa1.Range("A" & Rows.Count).End(xlUp).Row
verisat = Sayfa2.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To satir
If Sayfa1.Cells(i, 2) = "" Then GoTo atla
If WorksheetFunction.CountIf(Sayfa2.Range("A:A"), Cells(i, 1)) = 0 Then
Sayfa2.Cells(verisat + 1, 1) = Sayfa1.Cells(i, 1)
verisat = verisat + 1
End If
veri = WorksheetFunction.Match(Sayfa1.Cells(i, 1), Sayfa2.Range("A:A"), 0)
lott = WorksheetFunction.CountA(Sayfa2.Rows(veri))
Sayfa2.Cells(veri, lott + 1) = Sayfa1.Cells(i, 2)
atla:
Next i
End Sub

 

[cetnkaya]

Teşekkür ederim sorunum çözüldü