Çeki List - Koli Hazırlama Programı.

[ismail-34]

Sayın hocalarım merhaba ..

Tekstil Sektörünü sarsıcak bir koli hazırlama programı rica ediyorum .aslında ufak çaptaki yerler için çok yararlı olcaktır diye düşünüyorum.çünkü ufak tipte firmalarda bir mal anca 2 farklı kolide olabiliyor.

fatura ekranında göreceğiniz üzere bir mal sadece 2 farklı kolide (hangi Kolide sütunu) olabilir.

örneğin bir elbiseden 5 tane var 1 tanesi 1. kolide 4. tanesi 3. kolide gibi..

kısaca fatura ekranındaki bilgileri koli ekranındaki ayrıştırılmasını istiyorum.

Böyle bişi olursa çok işime yarar.

örnek dosya ektedir.

sağlıcakla..

 

[veyselemre]

Sub test()
    Dim ver, i&, sut%
  
    With Sheets("fatura")
        ver = .Range("H2:M" & .Cells(Rows.Count, "H").End(3).Row)
    End With
  
    With Sheets("koli")
        .Range("B2:Y" & Rows.Count).ClearContents
        For i = 1 To UBound(ver)
            If ver(i, 3) <> "" Then
                sut = 3
                GoSub islem
            End If
            If ver(i, 5) <> "" Then
                sut = 5
                GoSub islem
            End If
        Next i
        Exit Sub
islem:
        With .Cells(Rows.Count, ver(i, sut) * 2).End(3).Offset(1)
            .Value = ver(i, 1)
            .Offset(, 1).Value = ver(i, sut + 1)
        End With
        Return
    End With
    
End Sub

 

[ismail-34]

Harikasınız Veysel hocam çok sağolun.Bu kadar kısa kodla bu karışık durumu çözmüşsünüz.Fonksiyon bölümünede yazmıştım ama Cevaplayan olmamıştı.demekki makro ile oluyormuş.dilerseniz bu linkede cevap yazabilirsiniz.

Koli Hazırlama Programı

Sayın hocalarım merhaba .. Tekstil Sektörünü sarsıcak bir koli hazırlama programı rica ediyorum :)) .aslında ufak çaptaki yerler için çok yararlı olcaktır diye düşünüyorum. 1 mal sadece 2 farklı kolide olabilir. örneğin bir elbiseden 5 tane var 1 tanesi 1. kolide 4. tanesi 3. kolide gibi...

www.excel.web.tr

Bende ekte yararlanmaları için dosyayı paylaşıyorum..

excel web tr camiasına çok teşekkür ederim.

Herkese İyi Günler.