Tarihi getirsin..!

[sensizsoldum]

Merhaba,
Değerli hocalarım, arkadaşlarım, yine bir konuda yardımlarınıza ihtiyacım var. Yardımcı olursanız çok daha memnun olacağım.
Rapor sayfası J3:J aralığında ürünlerin seri numaraları var. Bu ürünler zaman zaman gönderimlerini yapıyorum. Ve gönderi tarihini de kayıt altına alıyorum.
Sizden ricam bir buton yardımıyla, Raporda ki J3:J seri numarası, gönderilenler B3:B seri numarasında, varsa tarihini F3:F rapor sayfası O3:O sütuna seri numarasının karşısına yazması.
Umarım açıklayıcı olmuşumdur. Örnek çalışmam ektedir. Mutlu akşamlar dilerim.

 

[sensizsoldum]

Merhaba,
Bu konuya nasıl bir çözüm getirebiliriz arkadaşlar?

 

[sensizsoldum]

Merhaba,
Arkadaşlar bu konuyu nasıl çözüme götürebiliriz. Yardımcı olabilir misiniz.

 

[forever215]

Merhabalar;

Sayfanıza bir adet CommandButton ekleyin ve kod kısmına şunları yazın.

Private Sub CommandButton1_Click()
On Error Resume Next
For i = 3 To Sheets("RAPOR").Range("J65536").End(3).Row
For j = 3 To Sheets("GÖNDERİLENLER").Range("B65536").End(3).Row
If Sheets("RAPOR").Range("J" & i) = Sheets("GÖNDERİLENLER").Range("B" & j) Then
Sheets("RAPOR").Range("O" & i) = Sheets("GÖNDERİLENLER").Range("F" & j)
End If
Next j
Next i
End Sub