Sütunda bulunan tarihlerin satırda bulunan kodları yan yana listeleme konusunda yardım.

[ozgur7545]

Merhaba elimde bulunan excel listesinde satırlarda 9 farklı kod var. sütunlarda ise 1 ayın günleri var. ve bu günler altında kodlara karşılık gelen adetler var. ben istiyorum ki
A sütunu aşağı doğru ürün kodları olsun. B sütunun da adı olsun kodun karşısında adet olsun. C sütununda adet olsun. D sütununda teslim tarihi olsun.
Yalnız teslim tarihi aşağı doğru gittiği için A sütununda ki ürün kodunun aynısından o ay kaç gün ise o kadar olsun.

Şimdiden çok teşekkür ederim.

 

[Necdet]

Merhaba,
Foruma hoş geldiniz.
Forum kurallarını okumadığınızı düşünüyorum.

Soru başlığınız sorunun özetini anlatacak şekilde olmalı.
Sorunuzu da örnek bir dosyayı paylaşım sitelerinden birine yükleyerek ve olması gerekeni de belirtirseniz çözüme ulaşmanız daha hızlı olacaktır.

Büyük Dosyalar Gönderme - Dosya Paylaşımı - TransferNow

Transfer başına 250 GB'a kadar büyük dosyaları göndermek ve paylaşmak için en kolay, en hızlı ve en güvenli ücretsiz dosya aktarım çözümü. Kayıt gerekmez.

www.transfernow.net

Dosya Upload - Dosya Yükle indir

Ücretsiz olarak dosya upload edebileceğiniz dosya yükleme sitesi. Hızlı dosya yükle ve paylaş.

www.dosyaupload.com

Send Large Files - Any Size - Up To 5 GB Free - Filemail

Send large files of any size fast. Share files up to 5 GB free with no account required. Trusted on all platforms for secure file transfers and sharing.

www.filemail.com

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[ozgur7545]

Merhaba,
Foruma hoş geldiniz.
Forum kurallarını okumadığınızı düşünüyorum.

Soru başlığınız sorunun özetini anlatacak şekilde olmalı.
Sorunuzu da örnek bir dosyayı paylaşım sitelerinden birine yükleyerek ve olması gerekeni de belirtirseniz çözüme ulaşmanız daha hızlı olacaktır.

Büyük Dosyalar Gönderme - Dosya Paylaşımı - TransferNow

Transfer başına 250 GB'a kadar büyük dosyaları göndermek ve paylaşmak için en kolay, en hızlı ve en güvenli ücretsiz dosya aktarım çözümü. Kayıt gerekmez.

www.transfernow.net

Dosya Upload - Dosya Yükle indir

Ücretsiz olarak dosya upload edebileceğiniz dosya yükleme sitesi. Hızlı dosya yükle ve paylaş.

www.dosyaupload.com

Send Large Files - Any Size - Up To 5 GB Free - Filemail

Send large files of any size fast. Share files up to 5 GB free with no account required. Trusted on all platforms for secure file transfers and sharing.

www.filemail.com

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Çok teşekkür ederim yönlendirmeniz için

kanban.xls dosyasını indir - download

kanban.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

linki yukarıda veriyorum

 

[veyselemre]

Sub test()
    Dim veri, satSay, sutSay, say, i, ii

    veri = Sheets("Sayfa1").Range("A1").CurrentRegion
    satSay = UBound(veri)
    sutSay = UBound(veri, 2)
    ReDim liste(1 To (satSay) * (sutSay - 2), 1 To 5)
    say = 1
    liste(1, 1) = "Malzeme"
    liste(1, 2) = "Malzeme tanim"
    liste(1, 3) = "Bakiye"
    liste(1, 4) = "Ölçü Brm"
    liste(1, 5) = "Tsl.tarihi"

    For i = 2 To satSay
        For ii = 3 To sutSay
            say = say + 1
            liste(say, 1) = veri(i, 1)
            liste(say, 2) = veri(i, 2)
            liste(say, 3) = veri(i, ii)
            liste(say, 4) = "ADET"
            liste(say, 5) = veri(1, ii)
        Next ii
    Next i
    
    With Sheets("OLMASINI İSTEDİĞİM")
        .Cells.ClearContents
        .Range("A1").Resize(say, 5).Value = liste
    End With
End Sub

 

[ozgur7545]

Sub test()
    Dim veri, satSay, sutSay, say, i, ii

    veri = Sheets("Sayfa1").Range("A1").CurrentRegion
    satSay = UBound(veri)
    sutSay = UBound(veri, 2)
    ReDim liste(1 To (satSay) * (sutSay - 2), 1 To 5)
    say = 1
    liste(1, 1) = "Malzeme"
    liste(1, 2) = "Malzeme tanim"
    liste(1, 3) = "Bakiye"
    liste(1, 4) = "Ölçü Brm"
    liste(1, 5) = "Tsl.tarihi"

    For i = 2 To satSay
        For ii = 3 To sutSay
            say = say + 1
            liste(say, 1) = veri(i, 1)
            liste(say, 2) = veri(i, 2)
            liste(say, 3) = veri(i, ii)
            liste(say, 4) = "ADET"
            liste(say, 5) = veri(1, ii)
        Next ii
    Next i
   
    With Sheets("OLMASINI İSTEDİĞİM")
        .Cells.ClearContents
        .Range("A1").Resize(say, 5).Value = liste
    End With
End Sub

ilginiz ve yardımlarınız için çok teşekkür ederim. hemen denemesini yapacağım.
iyiki varsınız.
saygılarımla

 

[ozgur7545]

Sub test()
    Dim veri, satSay, sutSay, say, i, ii

    veri = Sheets("Sayfa1").Range("A1").CurrentRegion
    satSay = UBound(veri)
    sutSay = UBound(veri, 2)
    ReDim liste(1 To (satSay) * (sutSay - 2), 1 To 5)
    say = 1
    liste(1, 1) = "Malzeme"
    liste(1, 2) = "Malzeme tanim"
    liste(1, 3) = "Bakiye"
    liste(1, 4) = "Ölçü Brm"
    liste(1, 5) = "Tsl.tarihi"

    For i = 2 To satSay
        For ii = 3 To sutSay
            say = say + 1
            liste(say, 1) = veri(i, 1)
            liste(say, 2) = veri(i, 2)
            liste(say, 3) = veri(i, ii)
            liste(say, 4) = "ADET"
            liste(say, 5) = veri(1, ii)
        Next ii
    Next i
   
    With Sheets("OLMASINI İSTEDİĞİM")
        .Cells.ClearContents
        .Range("A1").Resize(say, 5).Value = liste
    End With
End Sub

Sorunsuz bir şekilde sonuca ulaşmamı sağlayan sizlere sonsuz saygı ve hürmetimi sunuyorum.