[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 12: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 19: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 17:09

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

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

İleti#3)  veyselemre » 11 Oca 2019 17: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 17:53
Meslek: SERBEST
Yaş: 104
İleti: 280
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

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

İleti#4)  S1R » 13 Oca 2019 12: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 19: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 21: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 19: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 11: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 17:53
Meslek: SERBEST
Yaş: 104
İleti: 280
 
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: Google Adsense [Bot], hamidgf ve 3 misafir

Bumerang - Yazarkafe