Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-06-2017, 16:24   #1
inspirasyon
Altın Üye
 
Giriş: 06/10/2006
Şehir: Manisa
Mesaj: 29
Excel Vers. ve Dili:
office 2013- office 2016
Varsayılan Checkbox ile rapor oluşturma

Merhabalar, excelde üye kayıt programı yapmaya çalışıyorum. Raporlama kısmında takıldım. Sizlerden isteğim, ekli dosyamda checboxlarla ilgili kriterleri seçip, listele butonu ile listview'e seçilen sütunların gelmesi ve "Rapor Oluştur" butonu ile de listviewdeki verilerin Rapor sayfasına aktarılması. Şimdiden ilgilenecek arkadaşlara çok teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: rar ÜYE LİSTESİ.rar (60.8 KB, 18 Görüntülenme)
inspirasyon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 01:52   #2
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Bende Merak ettim. Konu Güncel
__________________
#MEHMET EMİN ALKAN
“ Kendi dilini bilmeyen başka dil öğrenemez ”
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 02:28   #3
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 797
Excel Vers. ve Dili:
2007, 32
Varsayılan

Alıntı:
inspirasyon tarafından gönderildi Mesajı Görüntüle
Merhabalar, excelde üye kayıt programı yapmaya çalışıyorum. Raporlama kısmında takıldım. Sizlerden isteğim, ekli dosyamda checboxlarla ilgili kriterleri seçip, listele butonu ile listview'e seçilen sütunların gelmesi ve "Rapor Oluştur" butonu ile de listviewdeki verilerin Rapor sayfasına aktarılması. Şimdiden ilgilenecek arkadaşlara çok teşekkür ederim.
Listenin bu şekilde görünmesi işinizi görmez mi? Eğer görür diyorsanız:
Raporlama işlemi için ilgili sayfada bir rapor şablonu oluşturunuz. Sonra dosyayı tekrar yükleyin, yaparım.

Kolay gelsin.

Dosya ekte.
Eklenmiş Dosyalar
Dosya Türü: xlsm ÜYE LİSTESİ.xlsm (225.5 KB, 7 Görüntülenme)
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal

Bu mesaj en son " 20-06-2017 " tarihinde saat 02:29 itibariyle BedriA tarafından düzenlenmiştir.... Neden: Ekleme
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 13:58   #4
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Thumbs up Dosya düzeltildi

Ve sonunda Oldu galiba

http://s3.dosya.tc/server12/f5x3lr/U...I__1_.rar.html
Eklenmiş Dosyalar
Dosya Türü: rar ÜYE LİSTESİ (1).rar (69.8 KB, 21 Görüntülenme)
__________________
#MEHMET EMİN ALKAN
“ Kendi dilini bilmeyen başka dil öğrenemez ”

Bu mesaj en son " 20-06-2017 " tarihinde saat 16:21 itibariyle işsiz123 tarafından düzenlenmiştir.... Neden: Yanlış dosya yüklemesi
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-06-2017, 10:45   #5
inspirasyon
Altın Üye
 
Giriş: 06/10/2006
Şehir: Manisa
Mesaj: 29
Excel Vers. ve Dili:
office 2013- office 2016
Varsayılan Çok teşekkür ederim, süpersiniz.

Çok teşekkür ederim, iş yoğunluğundan yeni bakabildim. Bedri Bey, Mehmet Beyin düzenlediği şekilde çok daha işime yarayacak. Mehmet Bey Allah razı olsun, ne zaman sıkışsam yardıma siz koşuyorsunuz. Tekrar tekrar teşekkür ederim, sağolun..
inspirasyon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-06-2017, 11:20   #6
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Rica Ederim.
İyi çalışmalar
__________________
#MEHMET EMİN ALKAN
“ Kendi dilini bilmeyen başka dil öğrenemez ”
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-12-2017, 23:44   #7
sahika51
Altın Üye
 
Giriş: 28/10/2006
Mesaj: 15
Excel Vers. ve Dili:
2003
Varsayılan

Selamun aleyküm.Ben buradaki üye listesi bölümünü başka bir programa monte ettim. Fakat burda 10 adet checkbox kullanılabiliyor.11. checkboxa görev tanımladığımda hata veriyor. makrolarla biraz oynadım ama başaramadım. Ben 16 adet check box kullanmak istiyorum. yardımcı olursanız sevinirim.
sahika51 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 00:41   #8
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,322
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Aleyküm selam
Aşağıdaki gibi değiştirip deneyin
Kırmızı bölümlerde gelmesini istediğiniz hücre sütunlarını yazarsınız
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub UserForm_Initialize()
Dim Sons, Satir As Long
Dim c As Integer
Dim lst As Variant
ListBox1.Clear
ListBox1.ColumnWidths = "70;70;45;45;40;40;40;55;80;70;40;40;40;55;80;70"
ListBox1.ColumnCount = 16
Sons = Sheets(1).Range("A65536").End(xlUp).Row
ReDim lst(1 To 16, 1 To Sons)

For Satir = 2 To Sons
c = 0
    If CheckBox1.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 3)
If CheckBox2.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 4)
If CheckBox3.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 5)
If CheckBox4.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 6)
If CheckBox5.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 7)
If CheckBox6.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 10)
If CheckBox7.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 11)
If CheckBox8.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 16)
If CheckBox9.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 17)
If CheckBox10.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 20)
If CheckBox11.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, "T")
If CheckBox12.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, "T")
If CheckBox13.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 20)
If CheckBox14.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 20)
If CheckBox15.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 20)
If CheckBox16.Value = True Then c = c + 1: lst(c, Satir - 1) = Sheets(1).Cells(Satir, 20)
Next Satir
ListBox1.Column = lst

End Sub
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 08:55   #9
sahika51
Altın Üye
 
Giriş: 28/10/2006
Mesaj: 15
Excel Vers. ve Dili:
2003
Varsayılan

formulu bu şekilde değiştirdim. fakat tablo oluştur dediğimde checkbox12 ve 13 te hata veriyor. Bu iki satırı silince hata ortadan kalkıyor.
Eklenmiş Dosyalar
Dosya Türü: rar OGRENCİ LİSTE14.rar (103.2 KB, 10 Görüntülenme)

Bu mesaj en son " 24-12-2017 " tarihinde saat 09:08 itibariyle sahika51 tarafından düzenlenmiştir.... Neden: YANLIŞ DOSYA
sahika51 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 09:19   #10
sahika51
Altın Üye
 
Giriş: 28/10/2006
Mesaj: 15
Excel Vers. ve Dili:
2003
Varsayılan

tamam düzelttim. userformda checkboxların ismi ile formuldeki ismi farklı olmuş gözden kaçırmışım
sahika51 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 16:58


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden