Kırılımlı ürün kodu açılımı

[HALILİBRAHIM]

Merhaba Hocalar;

Ekte bulunan listede Barkotlu ve stok kodlu ürün listesi kod kırılımlı yani renkli bedenli olarak programdan çekilmiştir.

Benim istediğim bu listenin içinden göreceksiniz yukarıda " I " sütununa yazdığım stok kodlarının açılımını yani kırılımlı olarak bu listeden çekmesini ve "sayfa2" 'ye aynı format 'ta sıralatabileceğimiz A'dan G'ye kadar olan bütün sütunları alacak şekilde bir makro yapabilir miyiz Hocalarım.
Eğer bu mümkünse çok iyi olacak.

Çünkü Hergün bununla uğraşıyoruz hocalar pratik bir yol varsa sizden çok rica ediyorum umarım anlatabilmişimdir.

 

[dEdE]

Merhaba,
Konuyu siz bildiğiniz için size basit gelebilir ama ben açıklamanızı anlamadım. Örneğin;"...kod kırılımlı yani renkli bedenli olarak ..." ifadesi bana bir anlam ifade etmiyor.
Dosyanızı incelediğimde, I sütununa yazdığınız verileri içeren(B sütununda) satırların Sayfa2'ye aktarılmasını istediğinizi algıladım. Eğer isteğiniz bu ise aşağıdaki kodu kullanabilirsiniz.

Sub Listele()
Set s1 = Sheets("ESENYURT İNTERNET(D005)")
Set s2 = Sheets("Sayfa2")
For i = 2 To s1.Range("I" & Rows.Count).End(3).Row

    Set Aranan = s1.Range("B:B").Find(s1.Cells(i, "I").Value, , xlValues, xlPart)
    If Not Aranan Is Nothing Then
        adres = Aranan.Address
        Do
            ss = s2.Range("A" & Rows.Count).End(3).Row + 1
            s2.Range("A" & ss & ":G" & ss).Value = s1.Range("A" & Aranan.Row & ":G" & Aranan.Row).Value
            Set Aranan = s1.Range("B:B").FindNext(Aranan)
        Loop While Not Aranan Is Nothing And Aranan.Address <> adres
    End If
Next i
MsgBox "Sayfa2'ye Listeleme Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[HALILİBRAHIM]

Merhaba,
Konuyu siz bildiğiniz için size basit gelebilir ama ben açıklamanızı anlamadım. Örneğin;"...kod kırılımlı yani renkli bedenli olarak ..." ifadesi bana bir anlam ifade etmiyor.
Dosyanızı incelediğimde, I sütununa yazdığınız verileri içeren(B sütununda) satırların Sayfa2'ye aktarılmasını istediğinizi algıladım. Eğer isteğiniz bu ise aşağıdaki kodu kullanabilirsiniz.

Sub Listele()
Set s1 = Sheets("ESENYURT İNTERNET(D005)")
Set s2 = Sheets("Sayfa2")
For i = 2 To s1.Range("I" & Rows.Count).End(3).Row

    Set Aranan = s1.Range("B:B").Find(s1.Cells(i, "I").Value, , xlValues, xlPart)
    If Not Aranan Is Nothing Then
        adres = Aranan.Address
        Do
            ss = s2.Range("A" & Rows.Count).End(3).Row + 1
            s2.Range("A" & ss & ":G" & ss).Value = s1.Range("A" & Aranan.Row & ":G" & Aranan.Row).Value
            Set Aranan = s1.Range("B:B").FindNext(Aranan)
        Loop While Not Aranan Is Nothing And Aranan.Address <> adres
    End If
Next i
MsgBox "Sayfa2'ye Listeleme Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

Hocam öncelikle tam istediğimi yaptığınız için ve aslında çokta doğru anladığınız için Allah razı olsun çok teşekkür ederim bende beceremesem de en özet şeklinde anlatmaya çalışmıştım fakat aklınızın biraz karışması normal çünkü özel ifadeler renk ve beden vs.. karıştırabilir hocam.

Hocam bi kez daha anlatıp kıymetli vaktinizi alarak makronun tam çalışma prensibini doğru anlamış mıyım diye bikere daha soru sormak istiyorum müsaadenizle;
Aslında bakarsanız nasıl anlatacağımı bilemedim gördüğünüz gibi bir liste var up uzun ve kodlar kırılımları var hocam bende bu listeye stok kodu sütununa bir filtre göstererek ve işte "I" sütunu demiştim hocam buraya istediğim ana kodlarımı yazarak alt kırılımlarıyla beraber "A sütunudan H'ye kadar olan kısmı" Sayfa 2'ye bana versin istedim
Örnek olarak göstereceksem
A0001-RB
A0001-RB 338 28
A0001-RB 339 29

böyle veriyor bu mantıkla çalışıyor bu makro değilmi hocam?

 

[dEdE]

...makronun tam çalışma prensibini doğru anlamış mıyım diye bikere daha soru sormak istiyorum ... "I" sütunu demiştim hocam buraya istediğim ana kodlarımı yazarak alt kırılımlarıyla beraber "A sütunudan H'ye kadar olan kısmı" Sayfa 2'ye bana versin istedim
Örnek olarak göstereceksem
A0001-RB
A0001-RB 338 28
A0001-RB 339 29
böyle veriyor bu mantıkla çalışıyor bu makro değilmi hocam?

Merhaba,
Evet dediğiniz mantıkla çalışıyor.
Kod I sütununa yazdığınız verileri B sütununda arar ve bulduğu satırın A-G sütunları arasını Sayfa2'ye aktarır. Ancak ilk mesajınızda ve örnek dosyanızda "A'dan G'ye" derken bir üstteki mesajınızda "A sütunudan H'ye kadar olan kısmı" diyorsunuz. Eğer H sütununu da aktarmasını istiyorsanız Koddaki tırnak içinde olan "G" harflerini "H" ile değiştirmelisiniz.
Hoşçakalın.

 

[HALILİBRAHIM]

Merhaba,
Evet dediğiniz mantıkla çalışıyor.
Kod I sütununa yazdığınız verileri B sütununda arar ve bulduğu satırın A-G sütunları arasını Sayfa2'ye aktarır. Ancak ilk mesajınızda ve örnek dosyanızda "A'dan G'ye" derken bir üstteki mesajınızda "A sütunudan H'ye kadar olan kısmı" diyorsunuz. Eğer H sütununu da aktarmasını istiyorsanız Koddaki tırnak içinde olan "G" harflerini "H" ile değiştirmelisiniz.
Hoşçakalın.

Merhaba hocam;
Haklısınız hocam yanlışlık olmuş heyecandan "A ile G" arasıdır hocam
Başarılarınızın devamını dilerim çok teşekkür ederim Hoşçakalın esen kalın..