Belirli Yaş gruplarını seçip başka forma ekleme

[mfacem]

arkadaşlar ekte yolladığım dosyanın içinde iki tane çalışma kitabı var. benim yapmak istediğim SE14 te "ETF GİRİŞİ" düğmesini tıklayınca karşımıza gelen listede yaşları 0 ile 4 olan çocukların karşısında (sağa doğru kayıldığında) yapılan aşılar tarih olarak girildiğinde otomatik olarak dosyada yer alan diğer çalışma kitabındaki (012A) listeye çocukların adı ile beraber yazılması. yardımcı olursanız sevinirim. Arkadaşlar sayfa koruma parolası isterse 0,3 veya 0,0

 

[mfacem]

arkadaşlar bir yerde hatamı yapıyorum adam gibi sorunumu söylüyorum. ama çıt yok. anlayamadım gitti. söz konusu tablo ile ilgili sorumu çok zor. yoksa çok kolayda bakmayamı gerek yok ne biliyim neden kimse cvp bile yazmıyor.

 

[ozcanya]

güzel çalışma

Üstat çalışmanızı takip ediyorum emeğine sağlık bende denedim ama olmadı diğer üstatlara haber verelim.

 

[mfacem]

sevgili özcanya ilgin için tşk ederim. uzman arkadaşlar yardımcı olursa sevinirim.

 

[ozcanya]

dostum benim de 012için çalışmam var ama üstatlar daha henüz yardımcı olmadı levent hocanın özeline yazdık olmadı belki sizin dosyayı bir kaç kişiye yazdım ama ne olacak bakalım kolay gele

 

[sscey]

Umarım işini görür.

Tablo oluştur ve formüller yardımıyla istediğine yakın bir dosya oluşturdum. Umarım işine yarar...

 

[Ferhat Pazarçevirdi]

Sayın mfacem, eğer 012A kitabındaki, 012A sheetini; SE14 kitabına kopyalarsanız, aşağıdaki kodu çalıştırdığınızda sorununuz çözülecektir.

Sub aktar()
Set sh = Sheets("Giriş")
Set sh2 = Sheets("012A")
sh2.Range("C8:E37").ClearContents
sh2.Range("H8:z37").ClearContents
sh_ss = sh.Cells(65536, 6).End(xlUp).Row 'Giriş sayfasında, veri olan son satir-soyad baz alınıyor
For i = 3 To sh_ss '3.satırdan son satıra kadar
sh2_ss = sh2.Cells(65536, 3).End(xlUp).Row 'Giriş sayfasında, veri olan son satir-soyad baz alınıyor
If sh.Cells(i, 15).Value <= 4 Then 'eğer O sütunundaki yaş değeri 4'den küçük ve eşitse

sh2.Cells(sh2_ss + 2, 3) = sh.Cells(i, 6) 'soyadı
sh2.Cells(sh2_ss + 2, 4) = sh.Cells(i, 7) 'adı
sh2.Cells(sh2_ss + 2, 5) = sh.Cells(i, 8) 'baba adı
sh2.Cells(sh2_ss + 2, 7) = sh.Cells(i, 10) 'yaş
sh2.Cells(sh2_ss + 2, 8) = sh.Cells(i, 18) 'PPD
sh2.Cells(sh2_ss + 2, 10) = sh.Cells(i, 20) 'BCG

sh2.Cells(sh2_ss + 2, 11) = sh.Cells(i, 26) 'DBT1
sh2.Cells(sh2_ss + 2, 12) = sh.Cells(i, 28) 'DBT2
sh2.Cells(sh2_ss + 2, 13) = sh.Cells(i, 30) 'DBT3
sh2.Cells(sh2_ss + 2, 14) = sh.Cells(i, 32) 'DBTR

sh2.Cells(sh2_ss + 2, 15) = sh.Cells(i, 47) 'HIB1
sh2.Cells(sh2_ss + 2, 16) = sh.Cells(i, 48) 'HIB2
sh2.Cells(sh2_ss + 2, 17) = sh.Cells(i, 49) 'HIB3
sh2.Cells(sh2_ss + 2, 18) = sh.Cells(i, 50) 'HIBR

sh2.Cells(sh2_ss + 2, 19) = sh.Cells(i, 34) 'POLIO1
sh2.Cells(sh2_ss + 2, 20) = sh.Cells(i, 36) 'POLIO2
sh2.Cells(sh2_ss + 2, 21) = sh.Cells(i, 38) 'POLIO3
sh2.Cells(sh2_ss + 2, 22) = sh.Cells(i, 40) 'POLIOR

sh2.Cells(sh2_ss + 2, 23) = sh.Cells(i, 42) 'HEPATIT1
sh2.Cells(sh2_ss + 2, 24) = sh.Cells(i, 44) 'HEPATIT2
sh2.Cells(sh2_ss + 2, 25) = sh.Cells(i, 46) 'HEPATIT3

sh2.Cells(sh2_ss + 2, 26) = sh.Cells(i, 22) 'HEPATIT3
End If
Next i
Set sh = Nothing
set sh2 = Nothing
End Sub

 

[mfacem]

Sayın SSCEY öncelikle ilginize gerçekten çok teşekkür ederim. emeğinize sağlık. çalışmanız güzel olmuş. sizden birkaç isteğim daha olacak; HİB2 den sonra iki sütun daha eklenmesi gerekiyor HİB 3 ve HİB R sütunları. onları ekleyip formüle uyarlarsanız çok sevineceğim.

 

[mfacem]

Say&#305;n fpc ilginiz i&#231;in size de te&#351;ekk&#252;r ederim. dedi&#287;iniz gibi 012A kitab&#305;n&#305; SE14 kitab&#305;nda bir sekme a&#231;arak oraya ekledim.daha sonra visual b. d&#252;zenleyicisini a&#231;&#305;p module ekleden sizin vermi&#351; oldu&#287;unuz kodu ekledim. ve ara&#231;lar/makrolar/makro &#231;al&#305;&#351;t&#305;ra girip "aktar" makrosunu &#231;al&#305;&#351;t&#305;rd&#305;m. aktarma yap&#305;ld&#305; ancak aktarmay&#305; 012A sekmesinde forma 1. s&#305;ras&#305;na de&#287;ilde 31. s&#305;ras&#305;na kopyalad&#305;. ayr&#305;ca s&#246;z konusu kodu her &#231;al&#305;&#351;t&#305;rd&#305;&#287;&#305;mda eski kay&#305;tlar&#305; tekrar ekliyor. (&#246;rne&#287;in giri&#351; sekmesinde adlar&#305; a,s,d,f olan 4 &#231;ocuk var diyelim, ben daha sonra g,h,j adl&#305; &#231;ocuklar&#305; kaydedip makroyu &#231;al&#305;&#351;t&#305;rd&#305;&#287;&#305;mda 012A formuna daha &#246;nce a,s,d,f adl&#305; &#231;ocuklar&#305; eklemi&#351; olmas&#305;na ra&#287;men ard&#305;ndan a,s,d,f,g,h,j diye yeniden ekliyor.) bu sorunu &#231;&#246;zebilirsen sevinirim. eme&#287;ine sa&#287;l&#305;k.

 

[Ferhat Pazarçevirdi]

Sn mfacem, ben de dediğiniz satır atlama problemi olmuyor. Dosyanız büyük olduğu için sadece kopyaladığım sayfalardan bir örnek yaparak yolluyorum. İnceleyiniz lütfen.

Peki, siz, hep, son eklenen çocukların listesini mi bu forma kaydetmek istiyorsunuz? Yoksa "Giriş" sayfasındaki tüm çocukların listesini mi, acaba?

 

[mfacem]

Sn. fpc,
her ikisini de istiyorum; Şöyle ki, söz konusu dosya (e.t.f. =ev halkı tespit fişi) sağlık ocamız bölgesinde oturan kişilerin kayıt listesidir. bu durumda ben hem listede halihazırda bulunan 0-4 yaş arası çocukların, hem de zaman içerisinde mesela atıyorum ayda ortalama 7 yeni doğan çocuk oluyor bu yeni doğanları "giriş" sayfasına eklediğimde bunların da aktarılmasını istiyorum. (ayrıca mesela "giriş" sayfasında bulunan çocukların diğer aşıları belirli tarihlerde yapılmaktadır. yani aktarım bir kere yapıldıktan sonra gelecek ay aktarımı yapılmış olan çocuğun bir aşısı daha yapılacak, o zaman öyle birşey olmalı ki gelecek ay aşısı yapılan çocuğun sadece aşısınınm yapıldığı tarih söz konusu sekme olan "012A" ya kayıt olmalı)

 

[sscey]

Hib 3 ve Hib R eklendi

HİB2 den sonra iki sütun daha eklenmesi gerekiyor HİB 3 ve HİB R sütunları. onları ekleyip formüle uyarlarsanız çok sevineceğim.

Hib 3 ve Hib R isteğiniz doğrultusunda dosyaya eklendi. Ancak DBT 3 ve DBT R yaptığınızda zaten Hib 3 ve Hib R zaten yapılyordu. Bu isteğinizi anlayamadım, ama elbette vardır bir sebebi. Ekteki dosyada sorun olursa yardıma hazırım...

 

[mfacem]

sayın sscey ilginiz ve yardımınız için teşekkür ederim.dosyayı inceleyip tekrar cvp yazacağım. emeğinize sağlık.

 

[mfacem]

Sayın fpc,
uzun süredir bazı nedenlerden dolayı forumu takip edemiyordum. dosyama eklediğiniz "AKTAR" "Tabloyu Temizle" butonları ve aktarım gerçetne çok güzel olmuş elinize sağlık. ancak şöyle bir sorun var söz konusu form 012A sadece örnek olması açısından bir sayfa olarak oraya konmuştu. ben formu aşağıya doğru kopylayıp çoğaltınca butonlara tıkladığımda "sh2.Cells(i, 7).ClearContents" şeklinde hata almaya başladım. sizden ricam bu durumu düzeltip ayrıca (her form 15 kişilik) formlarda kesintiye uğramadan devam edecek şekilde yapılabilirmi? (60 kişiye kadar)