sütunları alt alta getirme

[sorucu]

Merhaba,
elimde yaklaşık 2000 satırlı bir reçete matrisi var. Örnek ektedir.
Buradaki örnek dosyada matrisin ham hali ve
P kolonunda olmasını istediğim hali var.
İstediğim şey şu;

*A kolonundaki mamul kodunun altına

*F den N kolonundaki dolu olan değerlerin (yok demek boş demek)
opno larına göre büyükten küçüğe doğru olacak şekilde gelmesi.

*En alt satıra da, eğer varsa
E kolonundaki değerin gelmesi;

daha sonra yeni mamul koduna geçip aynı işlemleri yapması.
İnşallah yapılabilir bir şeydir.
yardımlarınızı rica ederim.

 

[Necdet]

Merhaba,
Doğru mu anladım, bilemiyorum, aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Public Sub Listele()

Dim arV As Variant
Dim arL As Variant
Dim col As Integer
Dim i   As Long
Dim j   As Long

arV = Range("A1").CurrentRegion.Value

ReDim arL(1 To UBound(arV, 1) * UBound(arV, 2))

arL(1) = "Liste"
j = 1

For i = 2 To UBound(arV, 1)
    For col = 1 To UBound(arV, 2)
        If Not col > 1 Or Not col < 5 Then
            If Not arV(i, col) = "yok-" Then
                j = j + 1
                arL(j) = arV(i, col)
            End If
        End If
    Next col
Next i

Columns("P:P").ClearContents
Range("P1").Resize(j, 1) = Application.WorksheetFunction.Transpose(arL)

End Sub

 

[mühendisberke]

YAP butonu 100 satıra kadar düzenler p'ye yazar.
kontrol için sizin sütununuzu p'nin yanına taşıdım.
Öbür buton p sütununu siler a1'e döner.

 

[sorucu]

Hayırlı geceler,
Necdet bey elinize sağlık. Ancak kodların sıralaması en sağdan sola doğru olup hammadde en aşağıda olacak.
Mühendisberke bey sizin de elinize sağlık. Tam istediğim gibi olmuş. Veri doldurma işlemi tam olarak bitince deneyeceğim.
Şimdilik olmuş.
Teşekkürler.

 

[Necdet]

Hayırlı geceler,
Necdet bey elinize sağlık. Ancak kodların sıralaması en sağdan sola doğru olup hammadde en aşağıda olacak.
Mühendisberke bey sizin de elinize sağlık. Tam istediğim gibi olmuş. Veri doldurma işlemi tam olarak bitince deneyeceğim.
Şimdilik olmuş.
Teşekkürler.

Döngüyü tersine çevirirseniz sorun ortadan kalkar.

    For col = 1 To UBound(arV, 2)

döngüsünü aşağıdaki gibi

    For col = UBound(arV, 2) to 1 step -1

kullanırsanız sorun çözülür.