değişken sütunlara bilgi aktarımı

[bamteli_27]

arkadaşlar merhabalar
örnek dosyanın içerisinde açıklama yaptım, sayfadan sayfaya personellerin isimleri karşısına bilgilerini değişken sütunlara aktarırken her zamanki gibi yardımlarınıza ihtiyacım var
şimdiden teşekkürler

 

[Muhammet Okumuş]

Merhaba,

Sub görev_ekle()
Application.ScreenUpdating = False
Set p = Sheets("PERSEÇ")

For i = 4 To 3 + Range("B1")
tc = Cells(i, 4)
x = WorksheetFunction.Match(tc, p.Range("G1:G10000"), 0)
y = WorksheetFunction.CountA(p.Range("M" & x & ":GG" & x)) + 13
p.Cells(x, y) = Cells(i, 8).Value
p.Cells(x, y + 1) = Cells(i, 9).Value
Next


End Sub

Kodu deneyiniz.

 

[bamteli_27]

sayın Muhammet bey ilgilendiğiniz için teşekkürler

perseç sayfasındaki en son görev ve tarih sütununa atması gerekirken izinli olan ancak tarih bulunmayan sütundan başlayarak yani boştaki hücreyi bularak atıyor
birde her kod çalıştığında ismin karşısına bilgileri aktararak devam ediyor, sadece bir defa atması gerek, yani en son görev ve tarih sütununa atması lazım ileri gitmemesi lazım
bir bakarmısınız
teşekkürler

 

[Muhammet Okumuş]

Sub görev_ekle()
Application.ScreenUpdating = False
Set p = Sheets("PERSEÇ")

For i = 4 To 3 + Range("B1")
tc = Cells(i, 4)

x = WorksheetFunction.Match(tc, p.Range("G1:G10000"), 0)
izin = WorksheetFunction.CountIf(p.Range("M" & x & ":GG" & x), "İZİNLİ")
y = WorksheetFunction.CountA(p.Range("M" & x & ":GG" & x)) + 13 + izin
p.Cells(x, y) = Cells(i, 8).Value
p.Cells(x, y + 1) = Cells(i, 9).Value
Next


End Sub

Kodu deneyiniz.

 

[bamteli_27]

muhammet bey mrb
sizide rahatsız ediyorum kusura bakmayınız
kod her çalıştığında ismin karşısına ekleme yapıyor
3. satırı boş olan sütunlara eklemeyi nasıl engelleyebilirz.

 

[Muhammet Okumuş]

Rica ederim. 3. satır derken ne demek istediniz? Hatalı dosya üzerinde anlatırsanız daha anlaşılır olur.

 

[Muhammet Okumuş]

....... yanlış mesaj

 

[bamteli_27]

mrb muhammet bey teşekkürler

örnek dosyayı ekliyorum içerisinde açıklama yaptım

 

[Muhammet Okumuş]

Sub görev12()
Application.ScreenUpdating = False
Set p = Sheets("PERSEÇ")
p.Range("H1") = p.Range("H1") + 1
For i = 4 To 3 + Range("B1")
tc = Cells(i, 4)

x = WorksheetFunction.Match(tc, p.Range("G1:G10000"), 0)

y = p.Range("H1") * 2 + 11
p.Cells(x, y) = Cells(i, 8).Value
p.Cells(x, y + 1) = Cells(i, 9).Value
Next


End Sub

Kodu deneyiniz. PERSEÇ sayfası H1 hücresine değer atadım. Bunu istediğiniz hücreye atayabilirsiniz.

Görevlendir kodunuzda hata var. Verilen sayı kadar görevlendirme yapmıyor. Neye göre görevlendiğinizi anlayabilirsem, O kod üzerinde düzenleme yapabilirim.

 

[bamteli_27]

sayın muhammed bey mrb, tekrar teşekkür ederim ilgi alakanızdan dolayı

dosyayı ekledim,
istenilen sayı kadar görevlendirme yapmamasının sebebi ise görevli bittiği zaman tekrar başa dönerek kodun tekrar çalışırılması gerek ve boş sütuna aktarım yapılması lazım, eklediğim dosya içerisinde açıklama yaptım ya anlatabildim mi bilmiyorum.

 

[Muhammet Okumuş]

Anladığım kadarıyla;
1- Personeller sırayla görevlendiriliyor.
2- Eğer personel izinli ise görev verilmiyor.
3- İzinli personel izin bittikten sonra eğer görev atlamışsa izinden sonra görevlendiriliyor.
4- Eşit dağılım olmak zorunda. Yani bir kişi görevlendirilmeden, başka bir kişiye 2. görev verilemez. Ve ya bir kişi 3 kez görevlendirilip başka bir kişi özürsüz olarak 1. görev sayısında kalamaz.

Eğer bu anlattıklarım haricinde başka istisna var ise belirtirsiniz. Yarın dosyaya bakarım. Son göndermiş olduğum kodda sorun var mı?

 

[Muhammet Okumuş]

Merhaba,
Dosyayı inceleyiniz.

 

[bamteli_27]

sayın okumuş mrb
emeğinize sağlık çok teşekkürler
inceliyorum .....
olumsuz bir durum olursa bilgi veririm..
tekrar teşekkürler