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 22-03-2017, 12:35   #11
hexadesimal
Destek Ekibi
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 624
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan

Ömer bey aslında istediğim bir yerde oldu tek bir sorun var. Belirttiğim hata acaba excelin sınırından mı kaynaklanıyor onu bilmiyorum. Araştırdım hücre-satır yükseklik sınırı 409 punto deniyor karakter sınırı 30000 küsur.Anlayamadığım nokta burada dosyanın son hali ekte.
Eklenmiş Dosyalar
Dosya Türü: xlsm SNIF_YÖNETİMİ.xlsm (288.0 KB, 3 Görüntülenme)
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimiçi   Alıntı Yaparak Cevapla
Eski 22-03-2017, 18:59   #12
hexadesimal
Destek Ekibi
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 624
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan

Alıntı:
Ömer BARAN tarafından gönderildi Mesajı Görüntüle
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.
.
Sanırım başka çare kalmadı (Çünkü satır yüksekliğinin sınırı varmış :=)) Ömer bey. Belirttiğiniz şekilde son eklediğim dosya üzerinde yol gösterirseniz sevinirim.
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimiçi   Alıntı Yaparak Cevapla
Eski Bugün, 01:50   #13
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 7,983
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Biraz etrafından dolaşarak oldu ama ekteki belgeyi bir deneyin isterseniz.

Sayfadaki hücrelerde bir değişiklik yapmadan USERFORMu açın.
-- Metin kutularına yazılan metinler, SATIRBAŞI karakteri kriterine göre satırlara dağıtılır.
-- Başlıklar da buna göre konulandırılır.
.
Eklenmiş Dosyalar
Dosya Türü: xlsm hexadesimal_VELİ_TOPLANTISI.xlsm (116.2 KB, 6 Görüntülenme)
__________________
.
☾✭ İ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 Bugün, 10:09   #14
hexadesimal
Destek Ekibi
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 624
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan

Ömer Bey teşekkürler.
yalnız kod ,
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
  *** BURDAN AŞAĞISI İSİM LİSTELEME / LİSTBOX'TAN SİLME
son = ListBox1.ListCount
baş = karsat + ak + 3
    For a = 0 To ListBox1.ListCount
        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 - baş
            ListBox1.RemoveItem a
            son = son - 1: a = a - 1
        End If
    Next
    TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = "": TextBox6 = "": TextBox7 = ""
End With
aşağıdaki satırda veri aktarıyor ancak hata vererek vba penceresine dönüyor

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 If ListBox1.Selected(a) = True Then
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimiçi   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 10:13


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 - Kobi Danışmanlık - Tekirdağ Samsung - 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- Didim Çatı İnşaat
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden