Bebek doğum fişi hazırla

[omeryılmaz]

Arkadaşlar;
Ayrıntılı olarak Userfom ile hazırladığım Bebek Takip formunda, "İlgili Ay içersinde doğan bebekler " otomotik bazı bilgileri süz ile sayfaya aktarılmaktadır.
Benim isteğim bu sayfaya aktarılan bebeklere, diğer sayfada mevcut Doğum fişilerini Makro ile hazırlatıp sadece dolu olanların çıktısını almak... Tasarruf olsun diye A4 kağıdına iki doğum fişi olacak şekilde dizayn ettim..

Şimdiden yardım ve önerileriniz için şükranlarımı sunuyorum....

 

[Orion1]

Sorunuzu ben anlamadım.
SUZ sayfasında yazılı olan bebeklermi alınıp karşısına Doğum fişeleri sayfasından diğer bilgiler yazılacak,yoksa Doğum fişleri sayfasında tüm dolu tablolardaki bilgilermi bu sayfaya aktarılacak.Ayrıca dolu olup olmadığı neye göre karar verilecek.Doğm tarihleri diye sorduğunuz hücrenin karşısındaki hücre dolu ise o tablonun dolu olduğu varsayılabilirmi?
Ayrıca bu işlemler yapılırken SUZ sayfasındaki veriler tümden (Başlıklar hariç) silinip yenidenmi yazılacak yoksa en alttaki dolu satırdan devammı edilecek.Görmüş olduğunuz gibi bir sürü eksik konular var.Bunlar açıklanırsa en azından cevap vermek isteyen arkadaşlar cevabını verebilirler.Aksi takdirde sorunuza bakıp geçerler bir yanıt alamayabilirsiniz Ömer bey.Kolay gelsin.

 

[fedeal]

Bende anlayabildigim kadar yaptım.İnceleyin,

Sub Makro1()
Dim SUZ, DOG As Worksheet
Dim P, K, F As Integer
Set SUZ = Sheets("SUZ")
Set DOG = Sheets("DOĞUM FİŞLERİ")
For P = 2 To SUZ.Range("A65536").End(xlUp).Row Step 2
    DOG.Range("V10:AQ33").ClearContents
    DOG.Range("BO10:CJ33").ClearContents
DOG.Cells(10, "V").Value = SUZ.Cells(P, "U").Value
DOG.Cells(10, "BO").Value = SUZ.Cells(P + 1, "U").Value
DOG.Cells(11, "V").Value = SUZ.Cells(P, "V").Value
DOG.Cells(11, "BO").Value = SUZ.Cells(P + 1, "V").Value
F = 2
For K = 13 To 31
If K = 18 Then K = 19
If K = 24 Then K = 25
If K = 27 Then K = 28
If K = 29 Then K = 30
If K = 31 Then
If SUZ.Cells(P, F).Value = "Ebe" Then
DOG.Cells(K, "V").Value = "EVET"
DOG.Cells(K + 1, "V").Value = "HAYIR"
DOG.Cells(K + 2, "V").Value = "HAYIR"
Else
If SUZ.Cells(P, F).Value = "Kendi Kendine" Then
DOG.Cells(K, "V").Value = "HAYIR"
DOG.Cells(K + 1, "V").Value = "HAYIR"
DOG.Cells(K + 2, "V").Value = "EVET"
Else
DOG.Cells(K, "V").Value = "HAYIR"
DOG.Cells(K + 1, "V").Value = "EVET"
DOG.Cells(K + 2, "V").Value = "HAYIR"
End If
End If

If SUZ.Cells(P + 1, F).Value = "Ebe" Then
DOG.Cells(K, "BO").Value = "EVET"
DOG.Cells(K + 1, "BO").Value = "HAYIR"
DOG.Cells(K + 2, "BO").Value = "HAYIR"
GoTo ATLA:
Else
If SUZ.Cells(P + 1, F).Value = "Kendi Kendine" Then
DOG.Cells(K, "BO").Value = "HAYIR"
DOG.Cells(K + 1, "BO").Value = "HAYIR"
DOG.Cells(K + 2, "BO").Value = "EVET"
GoTo ATLA:
Else
DOG.Cells(K, "BO").Value = "HAYIR"
DOG.Cells(K + 1, "BO").Value = "EVET"
DOG.Cells(K + 2, "BO").Value = "HAYIR"
GoTo ATLA:
End If
End If
End If
DOG.Cells(K, "V").Value = SUZ.Cells(P, F).Value
DOG.Cells(K, "BO").Value = SUZ.Cells(P + 1, F).Value
F = F + 1
If F = 10 Then F = 14
If F = 15 Then F = 17
If F = 19 Then F = 24
If F = 26 Then F = 27
Next
ATLA:
DOG.Range("A1:CJ48").PrintOut Copies:=1, Collate:=True
Next

End Sub

 

[omeryılmaz]

Hocam Olmaz diye düşündüğüm işlemi çözdüğünüz için şükranlarımı sunuyorum..
Elinize yüreğinize sağlık teşekkürler......

 

[fedeal]

Hocam Olmaz diye düşündüğüm işlemi çözdüğünüz için şükranlarımı sunuyorum..
Elinize yüreğinize sağlık teşekkürler......

Sayın Evren GİZLEN'in dediği dogruydu aslında biraz şansımla(atarak) tutturmuşum.
İşinize yaradıgına sevindim. İyi çalışmalar.

 

[omeryılmaz]

Hocam Şanslada olsa eline emeğine sağlık . Formüllerle çok uğraştım istediğim gibi yapamamıştım.

Düzenleyen bölümüne "AH" sutununda kayıtlı sorumlu personel ismi eklense daha mükemmel olacak.

Sağlık Ocağı bölgesinde her ay 30 - 40 tane bebek doğuyor. Her bebeğe ait bir çok bilgi bir çok dosyaya ayrı ayrı kayıtları yapılıyor. Bende nacizane arkadaşlara yardımcı olmak amacıyla Multipage ile bütün dosyaları birleştirdim ve ay sonu çıktı alarak ilgili birimlere istatistiki bilgi ve dökümanları vermekteyim. Ancak Doğan her bebeğe ayrı ayrı doğum fişi hazırlamayı bütün uğraşlarıma rağmen becerememiştim sayenizde o da oldu tekrar şükranlarımı sunuyorum...

 

[fedeal]

Yukardaki dosyayı istediginiz gibi güncelledim.Doğum yaptıran kısımı kodlarda kontrol edildigi için listeli veri dogrulama uyguladım.