Hey there!

It looks like you're enjoying Excel Türkiye- Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 3 sonuçtan 1 ile 3 arasındakiler gösteriliyor.

Konu: Format Painter - Biçim Boyacısı

  1. #1
    Üye
    Üyelik tarihi
    Oct 2004
    Mesajlar
    42

    Format Painter - Biçim Boyacısı

    Merhabalar,

    Exceldeki birçok pratik özellikten biri olan biçim boyacısına benzer bir makro yazmak istesek nasıl bir kod ortaya çıkardı?

    Şöyle sorayım;

    Seçtiğimiz bir hücre veya hücrelerdeki biçimi (format) ve hücrelerin birleşik (merge) olması halini Excel'in InputBox ile bizim belirleyeceğimiz bir noktaya yapıştırmasını nasıl isteriz?

    -
    1-seçili bir hücre var
    2-makroyu klavyede atadığımız bir düğme ile çalıştırıyoruz
    3-karşımıza çıkan giriş kutusunda nereye yapıştırmak istediğimizi soruyor (burada fare ile seçim veya klavyeden seçim özelliği de olmalı-sanırım Application komutu ile yapılıyor)
    4-OK'yi tıkladığımızda (fare ile seçerek, klavyeden seçerek veya klavyeden yazarak-A1:A10 gibi) belirlediğimiz alana yapıştırıyor.

    --
    1-seçili birleşik hücrelerimiz var
    2- ...
    3- ...
    4- ... yapıştırıyor ve yapıştırdığı hücreleri birleştiriyor (biçim boyacısı kopyalanan ana hücrelerdeki birleşik hücre sayısı kadar hücreyi birleştiriyor ve arta kalanı ayrı bir grup olarak birleştiriyor- mod mantığı gibi. Burada ise yapıştırılan tüm hücrelerin birlerştirilmesi mümkün mü?)

    İlgilenenlere şimdiden teşekkürler,

  2. #2
    Site ve Akademi Yöneticisi M. Temel Korkmaz - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Mar 2004
    Nereden
    Bursa
    Versiyon
    Excel 2013 TR
    Mesajlar
    3.336
    Merhaba,
    En zor gibi görünenlerden sadece bu birleştirme formatına cevap vereyim. Gerisini siz zaten anlayacaksınız.

    Öncelikle 1 adet UserForm hazırlayın. Bu UserForm'un üzerine 1 adet Refedit nesnesi ve 1 adet CommandButton nesnesi ekleyin.

    Ayrıca Sayfa üzerine de şimdilik bir düğme ekleyin. Olayı anlamanız açısından bu düğmeye aşağıdaki kodu yazın.

    Kod:
    Public say As Integer
    
    Sub Merge_Boyacisi()
        Set birles = ActiveCell.MergeArea
        say = Range(birles.Address).Columns.Count
        UserForm1.Show
    End Sub
    Şimdi de aşağıdaki kodu UserFomdaki CommandButtona yazın.

    Kod:
    Private Sub CommandButton1_Click()
        Range(RefEdit1 & ":" & Cells(Range(RefEdit1).Row, Range(RefEdit1).Column + say - 1).Address).Merge
    End Sub
    Şimdi şunu yapın.
    1. Sayfada birleştirdiğiniz hücreyi seçin. (Yatay birleştirme-Sütun birleştirmesi yani)

    2. Düğmeye tıklayın.

    3. Refesdit kutusuna tıklayın ve bir hücre seçin.

    4. CommandButton'a tıklayın.

    İşlem tamam.

  3. #3
    Üye
    Üyelik tarihi
    Oct 2004
    Mesajlar
    42
    Hocam çok teşekkürler,

    Kitabın benim için oldukça ileri bir sayfası ama, uygulayınca ne kadar kolay olduğu anlaşılıyor.



    (Bakalım diğer soruma ne cevap vermişsiniz, tekrar teşekkürler...) 8)

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Benzer Konular

  1. (BİÇİM | KOŞULLU BİÇİMLENDİRME) Hücre değerine göre biçim
    Konuyu Açan: silver, Forum: Koşullu Biçimlendirme.
    Cevaplar: 2
    Son Mesaj : 01.07.2006, 15:55
  2. (DOSYA | SAYFA YAPISI) Biçim
    Konuyu Açan: resulm, Forum: Sayfa Yapısı.
    Cevaplar: 4
    Son Mesaj : 01.05.2006, 09:35
  3. İsteğe Uyarlanmış Biçim Problemi (SK)
    Konuyu Açan: bakann, Forum: Hücreler.
    Cevaplar: 2
    Son Mesaj : 29.03.2006, 10:15
  4. Koşullu Biçim
    Konuyu Açan: hasanvural, Forum: Eğer.
    Cevaplar: 1
    Son Mesaj : 27.01.2005, 09:08
  5. Vba tarih format sorunu
    Konuyu Açan: desen, Forum: TextBox.
    Cevaplar: 4
    Son Mesaj : 24.12.2004, 08:54

Bu Konu İçin Etiketler

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •