ListBox Nesnesinden Sayfaya Kayıt Ekleme

[muhammethezer]

Excel Versiyonu

Excel 365

Excel Sürümü

64 Bit

Excel Dili

İngilizce

Merhaba Değerli Hocalarım, Formu hazırlayan arkadaşlarıma tekrar teşekkür ederim. Benim Saha Takip isminde hazırladığım ufak bir Excel programım var. Bu program üzerinde yapmak istediğim işlem ListBox'larda bulunan verileri "Kayıtlar" Sayfasına başında sıra numarası olacak şekilde kaydetmek. Sadece Katılımcılar başlığı altında bulunan "ListBox5" deki veriler çoktan seçmeli olarak "Kayıtlar" Sayfasında "Katılımcı01,02,03..." hücrelerinde gelmesi gerekiyor. Yardımcı olmanız dileklerimlez

 

Excel Sayfa Taşıma

Verileri Başka Bir Excel Sayfasından Çekme

[ExcelDepo]

Merhaba Muhammet bey,

Satır numarasına 1,2,3 şekilde kayıt mı atmak istiyorsunuz?

 

[muhammethezer]

Evet, bir de ListBoxtan Çoklu seçim yaptığımızda "ListBox5" deki veriler çoktan seçmeli olarak "Kayıtlar" Sayfasında "Katılımcı01,02,03..." hücrelerine gelecek şekilde nasıl kayıt yapabiliriz?
Teşekkür Ederim.

 

[ExcelDepo]

Gün içinde detaylı kısımlara bakacak çok zamanım yok ama akşam bir bakacağım sorunuza o zamana kadar diğer yönetici arkadaşlardan cevap alamazsınız.

 

[muhammethezer]

Teşekkür ederim.

 

[muhammethezer]

Merhaba Hocam, Acaba bakabilme şansınız oldu mu?

 

[ExcelDepo]

Hocam bakamadım ne yazık ki Maç falan olunca daldık gitti..
İlk fırsatta bakacağız..

 

[selmank]

Muhammet bey, merhabalar.
Ekteki dosyayı inceler misiniz? Listbox5' den çoklu seçim istediğiniz için multiselect özelliğini değiştirdim. Kodunuzda da küçük değişiklikler var. İnceleyin, anlamadığınız yer olursa açıklamaya çalışalım.

 

[muhammethezer]

Öncelikle Ellerinize ve Emeğinize Sağlık. Teşekkür ederim. Sormak istediğim bir sorum da, Kayıt işlemi sırasında sıra numarasını otomatik olarak verebilir mi? Bir de TextBox1 deki Açıklamayı da "Kayıtlar Sayfası "Aciklama"sütununa yazdırmak istiyorum. Teşekkür ederi.

 

[Feyzullah]

@selmank Bey konuya cevap vermiş, teşekkürler. Bende bu konu üzerinde çalışmıştım. @muhammethezer Bey ilk mesajınızda ki işlemler için yapmış olduğum dosyayı da alternatif olarak sunuyorum.

 

[Feyzullah]

Erman Beyin yüklemiş olduğu dosya'ya yazdırmak isterseniz, aşağıdaki kodu ekleyin kodların arasına.

Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

Benim yüklemiş olduğum dosyaya yazdırmak isterseniz, aşağıdaki kodu kodların arasına ekleyin.

Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

 

[Feyzullah]

Kayıt işlemi sırasında sıra numarasını otomatik olarak verebilir mi?

Erman Beyin yüklemiş olduğu dosyada sıra numarası için aşağıdaki kodu kullanın.

Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

 

[ExcelDepo]

Sayfa isimlerini tanımlarken, mümkün olduğu müddetçe sayfanın adını set etmemenizi şiddetle tavsiye ederim.
Mesela "Kayıtlar" isimli sayfanın adını kullanıcı "Kayıt" olarak değiştirdiğinde, kodlar hataya düşecektir.
Bunun için en güzeli sayfanın Sayfa1.Range/Sheet1.Range şeklinde kullanılması olacaktır.

 

[muhammethezer]

Hayırlı Akşamlar diliyorum değerli Hocalarım. Öncelikle yardımlarımız için çok teşekkür ediyorum. Sağ olun, Var olun. Şayet izinini olursa sizlere sormak istediğim bir sorum daha olacak, Kayır işlemi sırasında =KODURET(Records!P ”ABCDEFGTH123456″) Records!P kolonunda İlgili satır ile ilgili benzersiz kod üretmesini nasıl sağlayabilirim.

 

[Feyzullah]

Kendi adıma söyleyim ben anlamadım tam. Örnek bir dosya üzerinden açıklarsanız daha anlaşılır olur.

 

[muhammethezer]

Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)

Bu kod bloğundaki gibi benzersiz sayı üretmek. Bu sayı Örnek_Tablov2.xlsm dosyasının "Kayıtlar" sayfasının "P" hücresinde ilgili hücreye yazacak.

 

[Feyzullah]

Benzersiz sayı nasıl olacak, Örnek1: 123456 Örnek:abc123456 vs.

 

[selmank]

P hücresine benzersiz bir kod üretmeye çalışmak yerine kayıt yapılan anın değerini yazmak işinizi görür mü?

Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

Bu kodla kayıt yapılan anı saliyesine kadar kodlayıp o hücreye yazmış olursunuz.

 

[muhammethezer]

@selmank Hocamın verdiği kod bloğu işimi görüyor. Kendisine Teşekkür ediyorum.