ürün kodlarına göre ayıklamak

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
Merhaba.Ekteki örnekte problemi anlatmaya çalıştım.Sayfa1 deki ürünlerin miktarlarını kodlarına göre ayırmak istiyorum.Yardımcı olacak arkadaşlar teşekkür ederim.İyi çalışmalar.
 

Ekli dosyalar

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
güncel.
arkadaşlar özellikle uzman arkadaşlardan destek bekliyorum.iyi çalışmalar.
 

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
arkadaşlar

a1 hücresinde yazılı olan veriyi,mesala d1:d100 arasında arayarak ( kaç tane var ise) hemen yanındaki hücredeki değerle birlikte nasıl yazdırırız?



aslında çok basit gibi duruyor ama aslında kendi dosyamda olay çok karmaşık o yüzden baside indirgemeye çalıştım.
 

Ekli dosyalar

Katılım
28 Temmuz 2006
Mesajlar
22
Sn.tenikyapı

Uzman değilim ama ekteki pivot table bir çözüm olabilirmi.
saygılarımla,
 

Ekli dosyalar

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
sn s.erbay çalışmanız için teşekkür ederim ama maalesef aradığım bu değil.ürün adına göre kodları yerleştirmek,yani sanırım bu excelin yerleşik işlevleri ile değil makro ile çözülebilecek bir sorun gibi duruyor.
 
Katılım
28 Temmuz 2006
Mesajlar
22
Sn.teknikyapı
daha önce bu siteden temin ettiğim ekte bulunan sorgulama örneğini çalışmalarınıza yardımcı olacağını düşünüyorum.
saygılarımla,
 

Ekli dosyalar

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,759
Excel Vers. ve Dili
Excel 2019 Türkçe
Aşağıdaki kodu dener misiniz ?
Kod:
Sub urun_adina_gore_gruplandir()
    [h2:j50].Clear
    [i2:i8] = [a2:a8].Value
    [h2:h8] = [b2:b8].Value
    [j2:j8] = [c2:c8].Value
    [h2:j8].Sort key1:=[h2]
    For i = 8 To 2 Step -1
        If Cells(i, "h") = Cells(i + 1, "h") Then
            Cells(i + 1, "h") = ""
        ElseIf Cells(i, "h") <> "" Then
            Range("h" & i + 1 & ":" & "j" & i + 1).Insert
    End If
    Next
End Sub
 

teknikyapı

Altın Üye
Katılım
30 Nisan 2007
Mesajlar
396
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
13-01-2026
sn hamitcan ve s.erbay yardımlarınız teşekkür ederim.iyi çalışmalar.
 
Üst