2nci syfdaki tblda bulunan bir veriyi bulunduğu satırla birlikte 1nci syfy kopyalamak

[MAD_QUEEN]

Ekdeki dosyada yapmak istediğimi tam olarak anlattım.Bunu formül yazarak beceremedim. Sanırım makroyla yapılabilecek bir uygulama.Yardımcı olursanız sevinirim. :yardim:

 

[MAD_QUEEN]

Yaaaa niye kimse binimle ilgilenmiyoooo....

 

[Recep İpek]

Ekteki dosyanızı inceleyiniz.

Gecenin bu saatinde ilgilenecek fazla kişi bulamazsınız

Not:Bilgisayarımdaki hatadan dolayı şu anda örnek dosyayı ekleyemiyorum.

Kodları aşağıda bulabilirsiniz.H2 hücresine Stok Kodunu yazıp bu makroyu
çalıştırırsanız sanırım istediğiniz olacaktır.

Sub Listele()
Set s1 = Sheets("ana sayfa")
Set s2 = Sheets("liste")
Range("a6:z5000").ClearContents
For Each alan In s2.Range("f2:z5000")
s = 0
If alan = s1.Range("h2").Value And alan.Row = k Then
s = s1.Cells(65536, 1).End(3).Row + 1
Range(s1.Cells(s, 1), s1.Cells(s, 27)).Value = Range(s2.Cells(alan.Row, 1), s2.Cells(alan.Row, 27)).Value
End If
k = alan.Row
Next
Set s1 = Nothing
Set s2 = Nothing
MsgBox "Bitti"
[h2].Select
End Sub

 

[MAD_QUEEN]

teşekkür ederim

Öncelikle ilginizden dolayı teşekkür ederim. Ama sanırım ben anlatamadım. H2 hücresine stok numarası değil set numarası girdiğim zaman 2nci sayfada bulup 1nci sayfaya listeleyecek. :???:

 

[MAD_QUEEN]

makro hatası

makroyu yazmaya çalıştım ama ne kadar doğru oldu bilmiyorum. Çünkü ilk defa bir makro oluşturdum. Ama bana bi hata mesajı verdi. Bunu nasıl düzelteceğim. EK'i incelerseniz daha iyi anlarsınız.

 

[Orion1]

Merhaba.
En üstteki sub ile başlayan satırı ve en alttaki end sub yazan satırı siliniz.

 

[MAD_QUEEN]

olmuyorrrrr. Yapamıyorum.

 

[Recep İpek]

Dosyanız ektedir.

 

[MAD_QUEEN]

Süpersiniz

Teşekkür ediyorum. Ellerinize ve emeğinize sağlık. Tam istediğim şey olmuş. :hihoho: