[Yardım]  Başlangıç Bitiş Sayısından Seri Üretme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Başlangıç Bitiş Sayısından Seri Üretme

İleti#1)  S1R » 11 Oca 2019 10:09

Merhaba dostlar,

Excel bilgimin yetersiz kaldığı bir makro ihtiyacım var, üstadların yardımını rica ediyorum.


Şöyle ki, örnek olarak eklediğim tablodaki gibi, bir malzeme kodum, üretim tarihim, başlangıç ve bitiş numaralarım var.

Benim yapmak istediğim ise, bir makro yardımı ile, bunları ayrı bir sekmede;

malzeme kodu + 01(ay) + 19(yıl) + 00000(başlangıç no) (5 hane)
malzeme kodu + 01(ay) + 19(yıl) + 00001(başlangıç no+1)
malzeme kodu + 01(ay) + 19(yıl) + 00002(başlangıç no+2)
.
.
malzeme kodu + 01(ay) + 19(yıl) + 00001(bitiş no)

şeklinde türeterek liste halinde sıralamak.

Örnek dosya incelenirse daha net anlaşılacaktır diye tahmin ediyorum.

Öneri, yardım ve tavsiyelerinizi rica ediyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
S1R
 
Adı Soyadı:Soner UÇAR
Kayıt: 23 Oca 2014 17:09
Konum: İSTANBUL / KARTAL
Meslek: Lojistik
Yaş: 31
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İST / TUZLA

Cevap: Başlangıç Bitiş Sayısından Seri Üretme

İleti#2)  Erkan Akayay » 11 Oca 2019 15:09

Her malzeme başlangıcı 00000 mı olacak?
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 49
İleti: 4028
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Başlangıç Bitiş Sayısından Seri Üretme

İleti#3)  veyselemre » 11 Oca 2019 15:33

Kod: Tümünü seç
Sub seriOlustur()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    veri = s1.Range("B5:F" & s1.Cells(Rows.Count, 2).End(3).Row).Value
    sat = 3
    For i = 1 To UBound(veri)
        bas = veri(i, 1) & veri(i, 2) & veri(i, 3)
        For ii = veri(i, 4) To veri(i, 5)
            s2.Cells(sat, 1).NumberFormat = "@"
            s2.Cells(sat, 1) = bas & Format(ii, String(5, "0"))
            sat = sat + 1
        Next ii
    Next i
    Set s1 = Nothing
    Set s2 = Nothing
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 394
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Cevap: Başlangıç Bitiş Sayısından Seri Üretme

İleti#4)  S1R » 13 Oca 2019 10:15

veyselemre yazdı:
Kod: Tümünü seç
Sub seriOlustur()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    veri = s1.Range("B5:F" & s1.Cells(Rows.Count, 2).End(3).Row).Value
    sat = 3
    For i = 1 To UBound(veri)
        bas = veri(i, 1) & veri(i, 2) & veri(i, 3)
        For ii = veri(i, 4) To veri(i, 5)
            s2.Cells(sat, 1).NumberFormat = "@"
            s2.Cells(sat, 1) = bas & Format(ii, String(5, "0"))
            sat = sat + 1
        Next ii
    Next i
    Set s1 = Nothing
    Set s2 = Nothing
End Sub


Sayın veyselemre, nasıl teşekkür etsem bilemiyorum. Hayatımı kurtardın. :) Çok teşekkür ederim.
Kullanıcı avatarı
S1R
 
Adı Soyadı:Soner UÇAR
Kayıt: 23 Oca 2014 17:09
Konum: İSTANBUL / KARTAL
Meslek: Lojistik
Yaş: 31
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İST / TUZLA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Başlangıç Bitiş Sayısından Seri Üretme

İleti#5)  S1R » 13 Oca 2019 19:48

Sayın veyselemre;

Son bir sorum daha olacak mümkünse,

Ay ve Yıl sütunlarındaki veriyi, direkt olarak D2'deki tarihten alarak seriye ekleyebilir miydi kod?
Kullanıcı avatarı
S1R
 
Adı Soyadı:Soner UÇAR
Kayıt: 23 Oca 2014 17:09
Konum: İSTANBUL / KARTAL
Meslek: Lojistik
Yaş: 31
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İST / TUZLA

Cevap: Cevap: Başlangıç Bitiş Sayısından Seri Üretme

İleti#6)  veyselemre » 14 Oca 2019 09:52

S1R yazdı:Sayın veyselemre;

Son bir sorum daha olacak mümkünse,

Ay ve Yıl sütunlarındaki veriyi, direkt olarak D2'deki tarihten alarak seriye ekleyebilir miydi kod?


Kod: Tümünü seç
Sub seriOlustur()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    veri = s1.Range("B5:D" & s1.Cells(Rows.Count, 2).End(3).Row).Value
   
    '+  B    +   C     +    D    + SÜTUNLAR
    '+Malzeme+Seri Başı+Seri Sonu+

    sat = 3
    ay = Format(Range("D2"), "mm")
    yil = Format(Range("D2"), "yy")
   
    For i = 1 To UBound(veri)
        bas = veri(i, 1) & ay & yil
        For ii = veri(i, 2) To veri(i, 3)
            s2.Cells(sat, 1).NumberFormat = "@"
            s2.Cells(sat, 1) = bas & Format(ii, String(5, "0"))
            sat = sat + 1
        Next ii
    Next i
   
    Set s1 = Nothing
    Set s2 = Nothing
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 394
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe