Raf seç sil

[ADER_34]

Merhaba hayırlı geceler arkadaşlar makro ile "ARA" sayfasında "A" sütununda şeçili Kodu sütununu "RAF" sayfası "A" sütununda süz "ARA" sayfasında seçili rafını sil yani amaç 1 kod birden fazla rafı var ben ürünü aldığım rafı excel listemde azaltmak istiyorum örnek dosyam ekte yardımcı olurmusunuz? teşekkürler
http://www.dosya.tc/server12/4ypytc/SEC_SIL.xlsx.html

 

[ADER_34]

Merhaba arkadaşlar yardımcı olurmusunuz? teşekkürler.

 

[ADER_34]

Merhaba arkadaşlar yardımcı olurmusunuz? teşekkürler.

 

[Ömer BARAN]

Merhaba.

Yanlış tahmin etmiyorsam (tahmin diyorum çünkü bence soru net açıklanmamış)
sayfadaki DÜĞME ile aşağıdaki kod'u ilişkilendirip çalıştırırsanız istediğiniz sonucu alırsınız.
.

[B]Sub GRUPLANDIR()[/B]
Set ara = Sheets("ARA"): Set raf = Sheets("RAF")
ara.Cells.Clear
ara.[A1] = "PART_NO": ara.[B1] = "PART_NAME": ara.[C1] = "GRUP": ara.[D1] = "RAF 1"
For sat = 2 To raf.Cells(Rows.Count, 1).End(3).Row
    If WorksheetFunction.CountIf(raf.Range("A2:A" & sat), raf.Cells(sat, 1)) = 1 Then
        asat = ara.Cells(Rows.Count, 1).End(3).Row + 1
        asut = 1
        ara.Cells(asat, asut) = raf.Cells(sat, 1)
        ara.Cells(asat, asut + 2) = raf.Cells(sat, 4)
        ara.Cells(asat, asut + 3) = raf.Cells(sat, 3)
    Else
        asat = WorksheetFunction.Match(raf.Cells(sat, 1), ara.[A:A], 0)
        asut = ara.Cells(asat, Columns.Count).End(xlToLeft).Column + 1
        ara.Cells(1, asut) = "RAF " & asut - 3
        ara.Cells(asat, asut) = raf.Cells(sat, 3)
    End If
Next
asonsut = ara.Cells(1, Columns.Count).End(xlToLeft).Column
ara.Range(ara.Cells(1, 1), ara.Cells(1, asonsut)).Interior.ColorIndex = 15
ara.Range(ara.Cells(1, 1), ara.Cells(1, asonsut)).Font.Bold = True
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
[B]End Sub[/B]

 

[ADER_34]

Merhaba Ömer Bey kodalrınızı denedim tabi bizler ne yapmamız gerektiğini bildiğimiz için bize göre kolay aslında durum şu örnek: "90NB0AN0-R00010" bu ürünü ben bir rafa koydum "raf A1" Başka bir rafa daha koydum "A2" diğer raf "A3" ve bu ürünü A1 den aldım ve bu ürün için tekrar bu rafa gitmemem için bu ürünü A1 rafından silmem gerek fakat bunu excelde yapmam için "ARA" sayfaında o ürünü hangi raftan aldıysan o hücreyi seçip bunu süzve seçtiğim rafı sil demem gerek örnek dosyamı tekrar yüklüyorum, yardmcı olurmusunuz çok teşekkür ederim kolay gelsin..

http://s7.dosya.tc/server3/9l5bue/SEC_SIL.rar.html