• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sevkiyat Çizelgesi

  • Konbuyu başlatan Konbuyu başlatan Krios
  • Başlangıç tarihi Başlangıç tarihi
Katılım
15 Eylül 2017
Mesajlar
2
Excel Vers. ve Dili
Excel 2016
Türkçe
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.
 

Ekli dosyalar

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.

Kod:
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
 
Merhaba;
Soru çözümlenmiş ama daha esnek çalışma alternatif olsun.
İnceleyin.
İyi çalışmalar.
 

Ekli dosyalar

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
 
Bu dosyayı benimle paylaşabilecek birisi var mı ?

Teşekkürler.
 
Linkten indirebilirsiniz.

 
Geri
Üst