Cevaplandı ListBox'tan Sayfaya Kayıt Ekleme

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

muhammethezer

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
17
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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

Admin

Kurucu
Yönetici
Kurucu
Katılım
1 Eki 2018
Mesajlar
440
Tepki puanı
205
Puanları
43
Yaş
40
Konum
Büyükçekmece
Web Sitesi
www.orkmes.com
Excel Versiyonu, Dili
Excel 2019 EN
Merhaba Muhammet bey,

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

muhammethezer

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
17
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
Merhaba Muhammet bey,

Satır numarasına 1,2,3 şekilde kayıt mı atmak istiyorsunuz?
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.
 

Admin

Kurucu
Yönetici
Kurucu
Katılım
1 Eki 2018
Mesajlar
440
Tepki puanı
205
Puanları
43
Yaş
40
Konum
Büyükçekmece
Web Sitesi
www.orkmes.com
Excel Versiyonu, Dili
Excel 2019 EN
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

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
17
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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.
Merhaba OrkmesB Hocam, Acaba bakabilme şansınız oldu mu?
 

Admin

Kurucu
Yönetici
Kurucu
Katılım
1 Eki 2018
Mesajlar
440
Tepki puanı
205
Puanları
43
Yaş
40
Konum
Büyükçekmece
Web Sitesi
www.orkmes.com
Excel Versiyonu, Dili
Excel 2019 EN
Hocam bakamadım ne yazık ki :( Maç falan olunca daldık gitti..
İlk fırsatta bakacağız..
 

Erman Sekitmez

Üstat
Yönetici
Üstat
Katılım
2 Eki 2018
Mesajlar
8
Tepki puanı
13
Puanları
3
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.
 

Ekli dosyalar

muhammethezer

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
17
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
102
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
@Erman Sekitmez 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.
 

Ekli dosyalar

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
102
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
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.
PHP:
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.
PHP:
Worksheets("Kayıtlar").Range("H" & sat) = TextBox1.Text
 
Son düzenleme:

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
102
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
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.
PHP:
 Worksheets("Kayıtlar").Range("A" & s) = s - 1
 
Son düzenleme:

Admin

Kurucu
Yönetici
Kurucu
Katılım
1 Eki 2018
Mesajlar
440
Tepki puanı
205
Puanları
43
Yaş
40
Konum
Büyükçekmece
Web Sitesi
www.orkmes.com
Excel Versiyonu, Dili
Excel 2019 EN
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

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
17
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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.
 

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
102
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
Kendi adıma söyleyim ben anlamadım tam. Örnek bir dosya üzerinden açıklarsanız daha anlaşılır olur.
 

muhammethezer

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
17
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
Kendi adıma söyleyim ben anlamadım tam. Örnek bir dosya üzerinden açıklarsanız daha anlaşılır olur.
Kod:
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.
 
Moderatörün son düzenlenenleri:

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
102
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
Benzersiz sayı nasıl olacak, Örnek1: 123456 Örnek:abc123456 vs.
 

Erman Sekitmez

Üstat
Yönetici
Üstat
Katılım
2 Eki 2018
Mesajlar
8
Tepki puanı
13
Puanları
3
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.
 

muhammethezer

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
17
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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