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 20-03-2017, 21:02   #1
hexadesimal
Destek Ekibi
 
hexadesimal kullanıcısının avatarı
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 681
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan Listbox içinde çoklu seçim

Dosya ve açıklamalar ekte...
Eklenmiş Dosyalar
Dosya Türü: xlsm SNIF_YÖNETİMİ.xlsm (278.0 KB, 20 Görüntülenme)
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 22:01   #2
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,484
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

İlgili kod kısımlarını aşağıdakiyle değiştirerek istediğiniz olabilir.
VERİ sayfasında veli isimleri örnek belgenizde boş, oraya rastgele veriler yazın ki işlemin gerçekleştiği anlaşılsın.
Aktarılan ListBox1 satırının;
-- işaretinin kaldırılması için mavi olan satırı,
-- listeden kaldırılması için kırmızı olan satırları,
kullanın.
kaldırılır.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton3_Click()
son = ListBox1.ListCount - 1
With Sheets("VTT")
.[D6] = CDate(TextBox3.Value): .[D7] = Format(TextBox6.Value, "hh:mm")
.[A13] = TextBox1.Text: .[A22] = TextBox4.Text: .[A50] = TextBox5.Text
.[B11] = "Veli Toplantısı " & .[D6] & " " & Format(.[D6], "dddd") & " günü saat " & _
        Format(TextBox6.Value, "hh:mm") & " 'da aşağıdaki gündem maddelerini"
.[A12] = "görüşmek üzere gerçekleştirilmiş ve aşağıdaki kararlar alınmıştır."
    For a = 0 To ListBox1.ListCount - 1
        If a > son Then Exit For
        If ListBox1.Selected(a) = True Then
            vttsat = .Cells(Rows.Count, 2).End(3).Row + 1
            .Cells(vttsat, 2) = ListBox1.List(a)
                satır = WorksheetFunction.Match(ListBox1.List(a), Sheets("VERİ").Range("C:C"), 0)
            .Cells(vttsat, "A") = vttsat - 61
            ListBox1.Selected(a) = False
            ListBox1.RemoveItem a
            son = son - 1: a = a - 1
        End If
    Next
    TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = "": TextBox6 = ""
End With
End Sub

Private Sub UserForm_Initialize()
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti
With Sheets("VERİ")
    For sat = 2 To .Cells(Rows.Count, 1).End(3).Row
        If .Cells(sat, 1) > 0 Then ListBox1.AddItem .Cells(sat, 3)
    Next
End With
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 22:23   #3
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,423
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Kırmızı olacaksa.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
For a = ListBox1.ListCount - 1 to 0 step -1
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 22:33   #4
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,484
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Evet Sayın GİZLEN haklısınız.
Sıralama da değişmesin diye, o soruna yönelik düzeltmeyi ekliyordum.

Önceki cevabımdaki kod'a ilave yaptım.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-03-2017, 07:27   #5
hexadesimal
Destek Ekibi
 
hexadesimal kullanıcısının avatarı
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 681
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan

Sayın Ömer BARAN öncelikle emekleriniz için teşekkürler,yazdığınız kodu tutanak yaz butonuna atadım ancak,
1-Kod listboxdaki seçimleri tek tek aktarıyor, toplu aktarmıyor,
2-Userform üzerindeki nesnelerde de doğal olarak veri olacak ve bunlar ve başlıkları hem VTT hem de VTV sayfalarında mevcut,
3-Veli bilgisini aktarmasına gerek yok, çünkü toplantıya veli adına başkası (dede,anneane vb) gelebiliyor.Öğrebci listesi yeterli.

Dosyayı kodlu haliyle ekliyorum. Tekrar teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: xlsm SNIF_YÖNETİMİ.xlsm (280.1 KB, 14 Görüntülenme)
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-03-2017, 08:18   #6
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,484
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Koddaki döngü hatasını fark etmemişim, şimdi düzelttim.
Kırmızı satırları kullanarak istediğiniz sonuca ulaşılabiliyor.

Belgenizdeki
-- B11:K11 hücre aralığındaki metinleri silin ve bu hücreleri birleştirip,
-- Belgenizdeki A12:K12 hücre içeriklerini silin ve bu hücreleri birleştirip,
hizalamalarını SOL yapın.
-- VTV sayfasında yapılacak işlemi anlamadım.

Sayfayı yenileyerek tekrar kontrol edin isterseniz.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-03-2017, 09:16   #7
hexadesimal
Destek Ekibi
 
hexadesimal kullanıcısının avatarı
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 681
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan

Teşekkürler.
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-03-2017, 13:23   #8
hexadesimal
Destek Ekibi
 
hexadesimal kullanıcısının avatarı
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 681
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan

Sayın Ömer BARAN ilgili verilerimi VTT sayfasına Tutanak Yaz düğmesi ile aktarıyorum. Ancak tutanaklar ve gündem maddeleri değişken olduğundan hücreye sığmayabiliyor, açıklamam dosya ekinde var.
Eklenmiş Dosyalar
Dosya Türü: xlsm SNIF_YÖNETİMİ (1).xlsm (283.0 KB, 2 Görüntülenme)
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-03-2017, 19:16   #9
hexadesimal
Destek Ekibi
 
hexadesimal kullanıcısının avatarı
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 681
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan

Bir noktaya geldim. Ancak kod aşağıdaki satırda hata veriyor;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 Target.RowHeight = YÜKSEKLİK
Dosyanın son hali ekte
Eklenmiş Dosyalar
Dosya Türü: xlsm SNIF_YÖNETİMİ (1).xlsm (281.6 KB, 7 Görüntülenme)
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-03-2017, 00:37   #10
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,484
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Bence birleştirilmiş çoklu satır/çoklu sütun için satır yüksekliği ayarlama işlemi yerine;
formdaki TextBox'a yazılan metni,
-- satır başı kriterine göre ayrı satırlara alt alta yazdırmak,
-- ardından bu satırlarda METNİ KAYDIR özelliği üzerinden satır yüksekliğini ayarlamak
daha doğru olur diye düşünüyorum.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Ç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 02:45


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden