makroda aynı metni tekrarlama

[fatih4128]

bnm iki sorum olacak
1- sayfa 1de oem no ve parça no araması ile çıkan parça bilgilerinin eğer aynı oem no ile başlayan varsa aynı anda parçaların alt alta sıralanmasını istiyorum

2- parça bilgilerinin olduğu kısımdaki oem no parça no araç tipi yeri gibi bilgiler var ben bunlara bi kaç başlık eklemek veya cıkarmak istediğimde ne yapmam gerekiyor.

 

[hamitcan]

Sorularınız tam olarak anlaşılmıyor. Birer örnekle dosya içinde açıklayın.

 

[fatih4128]

gerekli açıklamayı dosya içinde güncelleyerek anlattım.

 

[fatih4128]

Hamit bey yapmak istediklerim iilk gönderdiğim istediğim dosyadakiler fakat amacıma uygun olarak kullanmak istediğim şimdi gönderdiğim dosyadır.sizin ilk dosya üzerinde yapacağınız kodları ben ikinci gönderdiğim dosyaya uygulayabilirmiyim kopyala yapıştır şeklinde tabi hücre numaralarını uyacak şekilde düzelterek.

 

[hamitcan]

Sub OemNoIleArama()
    i = 7
    Range("A2:n50").clearcontents
    For Each hcr In Sheets("STOK").Range("A2:A" & Sheets("STOK").[A65536].End(3).Row)
        If [f2] = hcr.Value Then
            i = i + 1
            Range("b" & i) = Sheets("STOK").Range("a" & hcr.Row).Value
            Range("d" & i) = Sheets("STOK").Range("b" & hcr.Row).Value
            Range("f" & i) = Sheets("STOK").Range("c" & hcr.Row).Value
            Range("g" & i) = Sheets("STOK").Range("d" & hcr.Row).Value
            Range("k" & i & ":" & "n" & i) = Sheets("STOK").Range("e" & hcr.Row & ":" & "i" & hcr.Row).Value
        End If
    Next
End Sub
Sub ParcaNoIleArama()
    i = 7
    Range("A2:n50").clearcontents
    For Each hcr In Sheets("STOK").Range("b2:b" & Sheets("STOK").[b65536].End(3).Row)
        If [f4] = hcr.Value Then
            i = i + 1
            Range("b" & i) = Sheets("STOK").Range("a" & hcr.Row).Value
            Range("d" & i) = Sheets("STOK").Range("b" & hcr.Row).Value
            Range("f" & i) = Sheets("STOK").Range("c" & hcr.Row).Value
            Range("g" & i) = Sheets("STOK").Range("d" & hcr.Row).Value
            Range("k" & i & ":" & "n" & i) = Sheets("STOK").Range("e" & hcr.Row & ":" & "i" & hcr.Row).Value
        End If
    Next
End Sub