ListBox Verilerini Çalışma Sayfasına Aktarma

  • Konuyu başlatan Konuyu başlatan dimple
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

dimple

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
55
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba forumda sizlerin destekleriyle oluşturduğum dosyada şöyle bir güncelleme yapmaya çalıştım ama takıldım. Userformdaki listele düğmesi ile açılan userformda kayıt türüne göre ve tercih türüne göre listeleme yapıyorum sorun yok.
Kayıt türüne göre listeleme yaptıktan sonra şube listelemesi yapacağım Yeni eklediğim şubem ismindeki listelemeyi yapınca listbox ta önce sütun başlıkları ve alt satırda şube sayfasındaki başlıklar çıkıyor. Sütun başlıkları görünmesini engelleyemedim bir türlü ama şube sayfasında normal listeliyor.
Yapmak istediğim ise Sayfa1 deki şablona göre alfabetik sıralamayı ayarlamama yardımcı olursanız sevinirim
Ve sayfa1 deki şu bölümü de yazdırabilir miyiz.
Toplam Öğrenci : 41 Kız Sayısı : 18 Erkek Sayısı : 23
Sizlerin kodlarınız üzerinde değişiklikler yapabiliyorum ancak
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(12 satır)
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(12 satır)
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(12 satır)
 

Ekli dosyalar

Çözüm
Sorunun nerede olduğunu buldum ve sonuca ulaştım. Şu şekilde kodlarda kırmızı ile belirtiğim kısmı satır sayısını gösteriyor. 58. satıra kadar listeyi uzattım yani kırmızı ile belirttiğim alanı 58 yaptım.
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
Sonuç doğru hesaplama yapıyor. Bence konu çözüldü olarak işaretlenebilir.
@dimple
Soruyu tam anladım mı emin değilim.
UserForm2'deki CommandButton15_Click kod blokunda,
kırmızı işaretlediğim 1 sayısını 2 olarak değiştirerek deneyin.

VBA:
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
 
Sayın Ömer BARAN bey yardımınız için teşekkür ederim. Şube sayfasında Sütun başlıkları görünmesini engelleyemedim bir türlü ama şube sayfasında normal listeliyor. sorunu çözülmüş oldu .
Asıl yapmak istediğim ise
Sayfa1 deki şablona göre alfabetik sıralamayı ayarlamama yardımcı olursanız sevinirim
Ve sayfa1 deki şu bölümü de yazdırabilir miyiz. Sayfa1 deki alt bölümdeki öğrenci sayıları

Toplam öğrenci sayısı :........... Kızsayısı: ...... Erkeksayısı......
Eğer yapamadığımız takdirde Şube sayfasını kullanacağım
 
Sayfa değil de sanırım isteğiniz UserForm(lar) üzerindeki Listbox nesnelerinde görüntülenen listelerle ilgili, doğru mudur?
Sorunuzu hangi UserForm ile ilgili olarak soruyorsanız o userformun adını belirterek sorarsanız daha hızlı çözüme ulaşırsınız.
 
Userform2 de şubem isimli combobox ile seçerek listboxa aldığımız verileri sayfa1 de ki sayfaya alfabetik olarak listelemek
 
İyi de istediğiniz liste zaten ŞUBE isimli sayfada oluşuyor.
ŞUBE isimli sayfadaki listenin alfabetik sıralanmış olarak Sayfa1 isimli sayfaya aktarılması yeterli midir?
 
Haklısınız ama safya1 de şöyle bir şablon (dosya ekledim) var öğrenci sıra numaraları ve diğer bilgileri B sütunu 9. satırdan başlayacak. Bu şekilde sıralama yapabilir miyiz

2.webp
 
UserForm2 CommandButton15_Click kodunda ilgili kısmı şöyle değiştirerek bir deneyin bakalım.

VBA:
İndirmek için giriş yapmanız gerekmektedir.
(9 satır)
 
Çok teşekkür ederim Ömer BARAN bey listelemeyi yapıyor.
Sayfanın altında yer alan şu bilgileri de yazdırabilirsek süper olacak
Toplam öğrenci sayısı :........... Kızs ayısı: ...... Erkek sayısı......
 
UserForm2 CommandButton15_Click kodunda yer alan aşağıda kırmızı renklendirdiğim satırın hemen üstüne
yeşil satırları ekleyin.

VBA:
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
 
Ancak kontrol edebildim. Toplam öğrenci sayısı doğru ama kız erkek öğrenci sayısını yanlış hesaplıyor. Ve mevcut 41 olmasına rağmen 45. satır dahil dolu görünüyor.
Sizin daha önce userform2 üzerine yazdığımız kız erkek öğrenci sayımızı gösteren kodla birleştirdim. kullandığım kod şu şeklilde
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(30 satır)

ekran görüntülerini ekliyorum.

1.webp

2.webp
 
Sorunun nerede olduğunu buldum ve sonuca ulaştım. Şu şekilde kodlarda kırmızı ile belirtiğim kısmı satır sayısını gösteriyor. 58. satıra kadar listeyi uzattım yani kırmızı ile belirttiğim alanı 58 yaptım.
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
Sonuç doğru hesaplama yapıyor. Bence konu çözüldü olarak işaretlenebilir.
 
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt