başka sayfaya veri kaydetmek

[ahm11]

ekteki dosyada giriş sayfasında bulunan a2,b2,c2 ve d2 hücrelerine giriş yapıp sayfa1'e kaydettikten sonra temizliyorum.Ama benim istediğim yalnızca bu hücrelere giriş yapmak yerine aşağı doğru daha fazla veri girişi yapıp sayfa1'e kaydetmek.bir bakıma sayfa1'i veritabanı olarak kullanmak.

 

[red_lion_72]

selam,

userform olacak mı?

 

[red_lion_72]

selam,

User Formlu çözüm ekte

İsterseniz User Form olmadan da çözüm yapabilirim.

Kolay gelsin.

 

[Levent Menteşoğlu]

Sn WAKKASSSS

Hazır hızınızı almışken,bence isteğe bırakmayın birde userformsuz çözüm önerin, böylece iki alternatif olmuş olur.

Not:birde sıra no eklerseniz tam olacak.

 

[dilekgüç]

WAKKASSSS, SELAM İYİ AKSAMLAR veri gir GÃ?RDÜM HOSUMA GİTTİ AMA BEN YAPMASINI BİLMİYORUM SİZDEN RİCAM BENİM İÇİ 12 VERİ GİRİSLİ VE 2 ADET SÜZME Lİ YAPABİLİRSENİZ SEVİNİRİN SİMDİKTEN TESEKKÜRLER

 

[red_lion_72]

selam,

Sevgili Leventm bende sizden yardım istesem User form olmazsa aynı sayfada veri girişi kötü oluyor. deneyeyim ama kötü olacağına eminim.

Sn. Dilek Güç 12 textbox ok. fakat comboboxlara veriyi nerden alalım? excel de bir yerden mi gelsin yoksa standart bişiler mi yazayım

Cevap bekliyorum.

 

[dilekgüç]

veri kaydetmek

WAKKASSSS, SİZE BİR Ã?RNEK YOLLUYORUN

 

[Levent Menteşoğlu]

Sn ahm11 veri giriş sayfasına birden fazla veri girip bunların tamamını veritabanına atmak istiyor. Bu döngü ile yapılabileceği gibi copy-paste ilede yapılabilir. Ã?rnek olarak aşağıdaki gibi bir kod kullanılabilir. Bu kod Sn ahm11'in dosyasına göre yazılmıştır.

[vb:1:cd242cd4f5]Application.ScreenUpdating = False
Range("a2:d" & Cells(65536, 4).End(xlUp).Row).Copy
Sheets("sayfa1").Range("b" & Sheets("sayfa1").Cells(65536, 2).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False[/vb:1:cd242cd4f5]

 

[red_lion_72]

selam,

ekte sırano veren, 12 text box, 2 combobox'lı örnek var Bir sonraki mesajda da sayın Dilekgüç'ün örneğini göndereceğim (tabi daha önce uyumazsam

 

[dilekgüç]

sayın WAKKASSSS, msn vebilirmisinz ?
benimki dg1959@hotmail.com

 

[dilekgüç]

VERÝ GÝRÝÞLERÝ

[SAYIN b]WAKKASSSS[/b], GİRİÞLERİ GÃ?STEREN Ã?RNEK YOLLUYORUM

HAZIRLADIGIM 4000 SATIRLIK VERİ BİR SERDE GİREBİLİRMİYİM
KOMUT ANAKTARI A1 OLSUN 1 SAYFA İNDEX 2 SAYFA KAYIT YERİ OLABİLİR 2 ADET SORGULAMA OLURSA GÜZEL OLUR

İYİ AKSAMLAR

 

[ahm11]

herkese günaydın;
akşam soruyu gönderdikten sonra forumdan ayrılmam gerekti.bu yüzden cevapları sabah gördüm.
Sn WAKKASSSS user form lu çözüm yapmış güzeldi,bundan başka arkadaşlar da yararlanabilir.ancak bu işlemleri sayfa üzerinde yapmam benim için daha kullanışlı olacaktır.

 

[ahm11]

Sn leventm yazmış olduğunuz kodlar herzamanki gibi harikaydı çok işime yaradı.(bir de sıra numarası vererek sıralama yapsa daha da güzel olacaktı.)
ayrıca yalnızca öğrenmek için soruyorum;bu işlem döngü ile nasıl yapılabilirdi.

 

[dilekgüç]

VERÝ GÝRÝÞLERÝNÝ

WAKKASSSS, GÜNAYDIN VERİ GİRİÞLERİNİ Ã?RNEK

2 ADET SÜZME OLURSA SEVİNİRİM


KOLAY GELSİN

 

[Levent Menteşoğlu]

Döngülü bir örnek aşağıdaki gibi olabilir. Burada 1. döngü veri sayfasındaki satır atlamayı ve otomatik sıra no vermeyi sağlarken 2. döngü sütun atlatarak veriyi sayfa1 e aktarır.
[vb:1:f685d57c78]For a = 2 To Cells(65536, 1).End(xlUp).Row
satno = WorksheetFunction.CountA(Sheets("sayfa1").[a2:a65536]) + 2
Sheets("sayfa1").Cells(satno, 1) = satno - 1
For b = 1 To 4
Sheets("sayfa1").Cells(satno, b + 1) = Cells(a, b).Value
Next b
Next a[/vb:1:f685d57c78]

 

[ahm11]

Sn leventm teşekküler adeta Hızır gibisiniz.

birde "Application.ScreenUpdating = False " kodunu genellikle kullandığınızı gördüm.acaba ne anlama geliyor.

 

[Levent Menteşoğlu]

Bir sayfadan diğer sayfaya işlem yaparken özelliklede copy-paste işlemlerinde paste yapılacak sayfanın seçilmesini gerektirir. Buda ekranda bir veri sayfasının birde verinin aktarıldığı sayfanın seçilmesi sonucu sürekli görüntü hareketliliğine neden olur. Bu komut bu hareketliliği durdurur. Yani makro işlemini bitirinceye kadar aradaki işlemleri ekrana yansıtmaz, makro işlemini bitirince son durumu ekrana verir. Bu durumu verdiğim makroda "Application.ScreenUpdating = False " satırını silerek net olarak görebilirsiniz. Umarım doğru şekilde anlatmayı başarmışımdır.

 

[ahm11]

Sn leventm konu gayet net anlaşıldı.çok güzel bir kod.görüntü kirliliğini ortadan kaldırıyor.verdiğin bilgiler için tekrar teşekkür ederim.hakkını helal et.her şey gönlünce olsun.