verileri değeri kadar tabloya uyarlamak

[mersilen]

herkese selam
excelde bir nöbet listesi hazırlıyorum ve her ay uğraştırıyordu
sayenizde bayağı bir ilerleme sağladım
yinede doldurma kısmı bile uzun zaman alıyor
daha önce evren bey doldurma kısmına makro yazmıştı ancak bunu tam olarak adapte edemedim, avatar isimli dosya bunu içeriyor

Sub avatar()
Dim tarih As Date, sat As Long, i As Long, sat2 As Long
Dim j As Byte, k As Long, sut As Byte
Application.ScreenUpdating = False
Range("G6:J65536").ClearContents
sat2 = Cells(65536, "A").End(xlUp).Row
For j = 2 To 4
sut = j + 6
sat = 6
tarih = DateSerial(2009, 1, 1)
For i = 6 To sat2
If Cells(i, j).Value > 0 Then
tekrar = 0
Do While tekrar < Cells(i, j).Value
If WorksheetFunction.CountIf(Range(Cells(sat, "H"), _
Cells(sat, sut)), Cells(i, "A").Value) = 0 Then
Cells(sat, sut).Value = Cells(i, "A").Value
tekrar = tekrar + 1
End If
Cells(sat, "G").Value = tarih
tarih = tarih + 1
sat = sat + 1
Loop
End If
Next i
Next j
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır." & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, "E V R E N"
End Sub

http://excel.web.tr/showthread.php?t=83693

benim istediğim tablo 3.2 deki isimler kullanılarak
tablo 4 deki septik/usg/doğum salonu/yrg/obs ameliyat sütunlarını
tablo 6 daki tekrarlanma sayıları kadar doldurulmasını sağlamak
isimler tablo 4 de her sırada bir defa olacak, mükerrer olmayacak

bunu her sütun için ayrı bir makro ile yapmakta olabilir, formüllede olabilir (kullanıcı tanımlı fonksiyon tercih edilir)
aslında her sütunu bağımsız yapmak daha kullanışlı gibi


bu kısım tamamen dolduktan sonra tablo 3.2 de kalan isimleri
pol 1-2-3-4-5-6 7-8 e yazacak bir formülede ihtiyaç var (diğer işlem bittikten sonra kontrolü yapılıp tetiklenecek-makro daha iyi gibi)

sayfa2 de yapılmış hali var


tüm yardımlara şimdiden teşekkür

 

[mersilen]

arkadaşlar yardımlarınızı bekliyorum

tabloda sadece doğum salonunu

If Intersect(Target, [p894]) Is Nothing Then Exit Sub
subdoldur makrosu ile p895 : p925 doldurursa
yan sütunlarıda teker teker aynı yolla doldurabiliriz