Sevkiyat Çizelgesi

[Krios]

Arkadaşlar merhaba,

Forumda yeniyim bir lojistik firmasında çalışıyorum.

Ekteki tabloda her sürücünün haftalık olarak 4 sefer atması gerekiyor. Tabloya manuel olarak ekledim. Ancak iş formül yazmaya gelince toparlayamadım. Desteğinizi rica ederim.

 

[Asri]

Satır ve kolon sayısı değişken olabilir.

"her sürücünün haftalık olarak 4 sefer atması gerekiyor. " olarak sorulmuş ancak,
her hafta 4 sürücü olması gerekiyor diye düzeltildi.
Yada ben yanlış anlamışımdır.

Sub hatfa_dagit()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   sonsutun = Cells(4, Columns.Count).End(xlToLeft).Column + 1
   Range(Cells(5, 4), Cells(sonsatir, sonsutun - 1)).ClearContents
   say = 0
   kolon = 4
   satir = 4
   While 1 < 2
     say = say + 1
     satir = satir + 1
     Cells(satir, kolon).Value = 1
     If say Mod 4 = 0 Then kolon = kolon + 1
     If kolon = sonsutun Then GoTo son
     If satir = sonsatir Then
        adet = 4 - (say Mod 4)
        satir = 4
     End If
   Wend
son:
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub

 

[muygun]

Merhaba;
Soru çözümlenmiş ama daha esnek çalışma alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[Krios]

Arkadaşlar teşekkür ederim. Her gönderdiğiniz şekilde de dosyaları çalıştırdım. Ben mod ve eğer formüllerini kullanarak yapmaya çalışmıştım ama beceremedim elinize sağlık

 

[autotr]

asdasd

 

[erkanzgl]

Bu dosyayı benimle paylaşabilecek birisi var mı ?

Teşekkürler.

 

[Korhan Ayhan]

Linkten indirebilirsiniz.

Bilgi

Bilgi

dosyam.org