Makro ile Süz ve kopyala

**#1)** **cecen_baris** » 13 Oca 2021 22:54

Merhaba
Öncelikle başlığı yanlış seçmiş olabilirim. Kusura bakmayın

Bir konuda yardımınızı istiyorum. Ekteki dosyada "Barkod" sayfasındaki verilerden "ÇekiList" sayfasına Ürün kodlarını ve renkleri aktaracağım bir makro oluşturmak istedim ama yapamadım.

Barkod sayfasında ürün kodu 1 den çok var. Renk sütununda ise o ürün koduna ait renkler ve bedenler mevcut. İstediğim şey bedenleri dikkate almadan, çeki list sayfasında ürün koduna ait renklerin benzersiz (tek) olması. Sonrasında oluşan listede "ÇOKETOPLA" formülü ile ürün koduna ait rengin bedenlere göre adetini listeliyorum.

Şimdiden teşekkür ediyorum.

**#2)** **okutkan** » 13 Oca 2021 23:54

Barkod nuramaralarının ilk 6 hanesine göre işlem yapıyor. Farklı yöntemlerle daha kesin sonuç alınabilir.

**#3)** **okutkan** » 14 Oca 2021 00:04

if mid ....

Satırının hemen altına aşağıdaki kodu eklerseniz, kodun işleyişini görmeniz açısından kopyalanan hücreleri görmeniz kolaylaşır.

Kod: Tümünü seç: barkod.Cells(i, 4).Interior.Color = RGB(0, 176, 240)

**#4)** **cecen_baris** » 14 Oca 2021 14:06

Gönderdiğiniz dosyayı indirdim ama butona bastığımda kod çalışmıyor. Öncesinde benim yapmam gereken bir işlem mi var ?