Soru ListBox'tan Sayfaya Kayıt Ekleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

muhammethezer

New member
Üye
#1
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
 

Ekli dosyalar

OrkmesB

Administrator
Yönetici
Admin
#4
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.
 

OrkmesB

Administrator
Yönetici
Admin
#7
Hocam bakamadım ne yazık ki :( Maç falan olunca daldık gitti..
İlk fırsatta bakacağız..
 

muhammethezer

New member
Üye
#9
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.
Ö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.
 

metehan8001

Moderator
Yönetici
Moderatör
#11
Bir de TextBox1 deki Açıklamayı da "Kayıtlar Sayfası "Aciklama"sütununa yazdırmak istiyorum. Teşekkür ederi.
Erman Beyin yüklemiş olduğu dosya'ya yazdırmak isterseniz, aşağıdaki kodu ekleyin kodların arasına.
Kod:
Worksheets("Kayıtlar").Range("H" & s) = TextBox1.Text
Benim yüklemiş olduğum dosyaya yazdırmak isterseniz, aşağıdaki kodu kodların arasına ekleyin.
Kod:
Worksheets("Kayıtlar").Range("H" & sat) = TextBox1.Text
 
Son düzenleme:

OrkmesB

Administrator
Yönetici
Admin
#13
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.
 
#14
Hayırlı Akşamlar diliyorum değerli OrkmesB, metehan8001 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.
 
#16
Kendi adıma söyleyim ben anlamadım tam. Örnek bir dosya üzerinden açıklarsanız daha anlaşılır olur.
Function KODURET(say As Integer, dizi As String)
Dim i As Integer
For i = 1 To say
Randomize
sira = Int((Len(dizi) * Rnd) + 1)
KODURET = KODURET & Mid(dizi, sira, 1)
Next i
End Function

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.
 

Erman Sekitmez

Moderator
Yönetici
Moderatör
#18
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ü?
Kod:
Worksheets("Kayıtlar").Range("P" & s).FormulaR1C1 = "c" & Format(Now, "yyyymmddhhmmssnn")
Bu kodla kayıt yapılan anı saliyesine kadar kodlayıp o hücreye yazmış olursunuz.
 
#20
Değerli Hocalarım, Bir Takvim üzerinde Hücreye tıkladığımda User Form açtım. Ancak bu Form üzerinde; Üzerine tıkladığım tarihe göre "Kayıtlar" sayfasından "Mahalle" isimlerine göre "ReferansNo" ları almak istiyorum. Yardımcı olabilir misiniz?
 

Ekli dosyalar

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst