Hangi malı hangi araca vereceğimi aşağıdaki gibi nasıl sıralatabilirim?

[abufkes]

100 ayrı referansı günde 3 araca yüklemem gerekiyor. Bazı mallar sadece sabah yada akşam arabsıyla gittiği gibi bazılarından da her araca veriyorum.İsteğim Hangi malı hangi araca vereceğimi gösteren sevkiyat programı yapmak, yardımcı olursanız sevinirim.
Saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Hson = [H65536].End(3).Row

Jsıra = 17
Nsıra = 17
Rsıra = 17

Range("J17:S1000").ClearContents

For i = 17 To Hson
If Cells(i, "H") <> "" Then

If Cells(i, "H") = CDate("09:00") Then
Cells(Jsıra, "J") = Cells(i, "F")
Cells(Jsıra, "K") = Cells(i, "G")
Jsıra = Jsıra + 1
Else: End If

If Cells(i, "H") = CDate("15:00") Then
Cells(Nsıra, "N") = Cells(i, "F")
Cells(Nsıra, "O") = Cells(i, "G")
Nsıra = Nsıra + 1
Else: End If

If Cells(i, "H") = CDate("23:00") Then
Cells(Rsıra, "R") = Cells(i, "F")
Cells(Rsıra, "S") = Cells(i, "G")
Rsıra = Rsıra + 1
Else: End If
Else: End If

Next i
End Sub

. . .

 

[abufkes]

HIZLI CAVABINIZ için çok teşekkür edrim lakin kodu çalıştıramadım FORMÜLLE YAPAMAZ MIYIZ ACABA?

 

[Emir Hüseyin Çoban]

. . .

Formül ile istediğiniz sistemi kuramam.
Formül konusunda bilgisi olan arkadaşlar yardımcı olacaktır.

. . .

 

[Merhum İdris SERDAR]

. . .

Formül ile istediğiniz sistemi kuramam.
Formül konusunda bilgisi olan arkadaşlar yardımcı olacaktır.

. . .

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f122/formulle-suzme-uygulamalary-t86938.html

.

 

[Merhum İdris SERDAR]

100 ayrı referansı günde 3 araca yüklemem gerekiyor. Bazı mallar sadece sabah yada akşam arabsıyla gittiği gibi bazılarından da her araca veriyorum.İsteğim Hangi malı hangi araca vereceğimi gösteren sevkiyat programı yapmak, yardımcı olursanız sevinirim.
Saygılarımla

.

Bu da Pivot Table ile çözüm.


.

 

[Erdem Akdemir]

cevabınız ekte,

 

[abufkes]

hepinize çok teşekkür ederim ben "birleştir" komutu ve düşeyara kullanarak yapmaya çalışmıştım amatörce ama sizin çözümleriniz beni oldukça geliştirecek.Tekrar teşkkür ederim