veri aktarımında düzeltme

[KARAALİ]

veri aktarımı

arkadaşlar benimde veri aktarımıyla ilgili bir sorunum var. m.Temel KORMAZIN katkılarıyla yapmış olduğum 2022 dosyasında excel veri aktarımında sorunum yok yannız dosyayı aççtığınızda kırmızıyla yazılmış olan şekinde excele aktarmak istiyorum ama birtürlü beceremedim yardımcı olursanın memnun olurum saygılarımla

2022 şifre akemal

 

[KARAALİ]

Arkadaşlar rica etsem 2022 listesine bir cevap verirmisiniz.acilen bana lazım saygılar. :agla:

 

[Levent Menteşoğlu]

Sn KARAALİ

Dosyanızı inceledim. Kırmızı işaretli alanlarda ne istediğinizi tam olarak anlayamadım. Eğer tarihi 2005/5 gibi yazmasını istiyorsanız bunun için tarih girilen textboxta aşağıdaki kodu ilave edin.

[vb:1:fabfb0eeec]Private Sub txtbt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtbt = Format(txtbt, "yyyy""/""m")
End Sub[/vb:1:fabfb0eeec]

 

[KARAALİ]

sn Leventm sorumu tam anlatamadım galiba 2022 formunu incelemişseniz kayıt yaptığında A sütünundaki sıra numaralarını kontrol yapıyor daha sonra en son sıraya sıra numarasını yazarak kayıt yapıyor. Ama benim istemiş olduğum ise aynı şekilde kayıt yapsın yanlız C sütununu kontrol ederek enson boş olan satıra sıra numarası dahil olacak şekilde kayıtması dikkat etmişseniz cC sütünnunda alt alta veri girildikten son ikinci bir kayıt sırası var.(kırmızı ile belirtilmiştir.)

Saygılarımla,

Ayrıca vermiş olduğunuz cevap içinde teşekkür ederim. :arkadas:

 

[Levent Menteşoğlu]

txtsira.Value = WorksheetFunction.Count(Range("A3:A65000"))+0

Kaydet butonuna bağlı makrodaki yukarıda verilen satırı aşağıdaki gibi değiştirerek deneyin.

txtsira.Value = WorksheetFunction.Count(Range("C3:C65000"))

 

[KARAALİ]

Cevabınız için teşekkürler ama istediğim şekilde olmadı birinci veriyi kaydettim.A3 hücresinde 1 , B3 hücresinde 2005/1, C 3 hücresinde masa ve C4 hücresinde kalem kaydettim.(dikkat ederseniz kayıt bir satırla kalmıyor ikinci satırıda kayda alıyor alıyor.) ikinci bir kayıt girdiğimde direk A4,B4,C4 hücrelerine kayıt yapıyor tabi bu şekilde kayıt yaptığında benim yukarıda C4 hücresine yapmış olduğum kalem kaydını silerek yerine yeni kaydı dikkate alıyor.

Benim istemiş olduğum sonuç ikinci ve üçüncü kayıt yaparken C sutununun enson veri kaydedilen hücresinden sonra gelen boş hücreyi tesbit ederek a sutunundan başlıyarak yeni kaydı girmesidir, ki bu şekilde birinci kaydı dikkate alırsak ozaman ikinci bir kayıt girildiğinde C4 hücresindeki kalem silinmeyecektir.

saygılar. :arkadas:

 

[Levent Menteşoğlu]

Daha önce belirttiğim değişikliğe ilave olarak aşağıdaki satırıda bir alttaki gibi değiştirin.

For Each bak In Range("b3:b" & WorksheetFunction.CountA(Range("b3:b65000")))

Yeni şekli

For Each bak In Range("c3:c" & WorksheetFunction.CountA(Range("b3:b65000")))

 

[KARAALİ]

Sizin belirtiğinizin aynısını bende düşün ve hatta ek olarak b3:b65000 değiştirerek c3:c65000 yaptım gene de deşiklik olmadı aynı şekilde kayıt yapıyor.Anlaşılan bu işin içinden bir türlü çıkamayacağız.saygılar :arkadas:

 

[Levent Menteşoğlu]

Ekteki örneği inceleyiniz.

 

[KARAALİ]

Sn leventm sizden özürdilerim. işlem yaparken dosyadaki userformu dikkate alarak işlem yaptığınızdan dolayı benim istediğim işlem olmuyor .buda tamamen ilk gönderdiğim dosyada size yanlış bilgi aktarmamdan kaynaklandı.

dosyayı size tekrar gönderiyorum ama bu sefer userformu devredışı bıraktım sayfa üstünde yazmış olduğum şekilde makroyla nasıl kayıt yapabilirim. saygılarımla ve özrümün kabul edilmesi dileğiyle, :dua:

 

[Levent Menteşoğlu]

Rica ederim önemli değil. Sorunuzu ne kadar detaylı ve doğru açıklarsanız cevapta o derece doğru ve hızlı olacaktır. Sorunuz hala yeteri kadar açık değil, veriyi nasıl gireceğinizi belirtmemişsiniz. Buna rağmen ekte bir örnek hazırladım. Ben bir veri giriş sayfası oluşturdum. Umarım bu sefer sorun çözülmüş olur.

 

[KARAALİ]

teşekkürler istediğim gibi oldu yanlız veri girişi sayfasına yazdığınız, verileri user form üzerinden yazıp veri giriş sayfasına aktara bilirmiyim. burdaki amacım userform üzerinden verileri aktarıp daha sonra sizin yazmış olduğunuz listeye kaydet butonu ilede liste sayfasına aktaracağım benim önceki dosyamdaki form üzerinden denedim olmadı.

ayrıca özrümü kabul ettiğiniz için teşekkürler çünkü her şeyin başı emeğe saygıdır.

 

[Levent Menteşoğlu]

Siz userformu hazırlayıp ekleyin,kodları uyarlamayı ondan sonra yaparız.

 

[KARAALİ]

formu düzenleyerek ekte gönderdim.sizin vermiş olduğunuzuz makaroyla yapabildiğim kadarıyla dikerkt userform üzerinden liste sayfasına kayıt yapıyor yanlız kapat butonu ile çıkış yaptığımda makroları sonlandırması gerekirken hala çalışıyor görünüyor dosyayı incelediğinizde sizde farkına varacaksınız.

1 ayrıca liste sayfasında hiç veri olmadıdığını sayarsa userform üzerinden ilk kayıt yapıldığında hata veriyor buda anladığım kadarıyla sizin vermiş olduğunuz makronun a sütünündaki bir önceki sayıyı artırarak gitiğinden kaynaklanıyor galiba

2 bul komutunu çalıştırdığımda kayıt numarasını girdiğim zaman liste sayfasından veriyi bulmasını istiyorum uğraşmama rağmen çözemedim.

3 bul komutuna bağlı olarak bulduğum verileri hem silmek, düzeltmek, ikinci bir sayfaya aktarmak istiyorum.
bukonu okadar kafama takıldıki işin içinden çıkamayınca VBA OFFİCE 2000-uygulama geliştirme kılavızu adlı kitabı aldım 2 gündür ona çalışıyorum genede işin içinden çıkamadım saygılar :?

 

[KARAALİ]

arkadaşlar derdime bir çare mesaj çektiğimden buyan gene uğraşıyorum ama birtürlü olmuyor. :dua:

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[KARAALİ]

syn leventm dosyayı açtığımda şifrebölümüm bitiminden sonra otomatik olara formun gelmesi gerekirken hata veriyor(Run-time'424'bjest required) liste sayfasındaki form açı denediğimdede aynı hatayı veriyor. :?

 

[Levent Menteşoğlu]

Hata düzeltilerek yukarıdaki ataç yenilenmiştir. Tekrar inceleyebilirsiniz.

 

[KARAALİ]

syn.levent bul komutunda emanet cinsini arattığım zaman verileri sıra numarası dahil buluyor ama sadece vba kodunda ilgili satır hücrelerini kayıt numarası için ayarladığımda hata veriyor.

 

[Levent Menteşoğlu]

Sn KARAALİ

Ben hazırladığınız örnekte sadece kaydet butonu ile ilgilenmiştim. bu nedenle diğer kısımlarda hata vermesi mümkündür. Kaydet butonundaki kodlara bakarsanız textbox isimlerini döngüde kullanabilmeyi kolaylaştırmak amacıyla t1,t2,.....t7 olarak değiştirdim. dolayısıyla diğer kodlardaki tektbox isimlerinide değiştirmek gerekecektir. Eğer netice alamazsanız ben tekrar yardımcı olurum.