• Web sitemize destek olmak, Hazır Excel Dosyaları indirmek ve sitemizi reklamsız kullanmak için VIP Üyelik Satın alabilirsiniz.
    Hesabını VIP Üyeliğe Yükselt

Çözüldü Hücreye açıklama ekleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Merhaba, hayırlı geceler.

Ekte gönderdiğim excel dosyam ilk açıldığında Sayfa1 B1 hücresine renkli açıklama eklemek istiyorum.
Makra kaydet ile yapıyorum, daha sonra kodu çalıştırdığımda, hata veriyor.

Yardımcı olur musunuz?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar

  • Örnek1.xlsm
    19.7 KB · Görüntüleme: 1


Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Merhaba Sayın ASLAN7410 .

-- Var olan bir açıklamanın rengini değiştirmek istiyorsanız yeşil satır yeterlidir.
-- Var olan bir açıklamanın metnini değiştirmek istiyorsanız mavi satır yeterlidir.
-- Hücrede hiç açıklama yok ise kırmızı satırlar yeterlidir.

Gerekli olan satırları Sub makro_adı() ......... End Sub arasına alırsınız.
Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum, Allah razı olsun.
Aşağıdaki kod çok işime yarayacak. Bu kod arasına açıklamanın boyutunun ölçülerini, yatay ve dikey ortalama ekleyebilir miyiz?

With [B1]
.Comment.Delete
.AddComment
.Comment.Text Text:="BU RENK OLANLAR AYNI T.C. DİR." & Chr(10) & ""
.Comment.Shape.Fill.ForeColor.RGB = RGB(255, 153, 0)
End With
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Makro kaydet ile oluşan aşağıdaki kodları sizin yazdığınız kodlara eklemeye çalıştım, olmadı.

.ShapeRange.ScaleHeight 1.26, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleWidth 0.81, msoFalse, msoScaleFromTopLeft
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Koddaki ...TOP ve ....LEFT kısmı, hücrenin üstüne faryle gelindiğindeki konumunu değil,
hücreye sağ tıklayıp AÇIKLAMA GÖSTER seçeneği işaretlendiğindeki konumdur.
WİDTH ve HEİGHT değerlerini SAYI vererek de belirlersiniz, ben bir sağdaki hücrenin boyutlarını verdim.
Sizin verdiğiniz kodda, otomatik boyuta göre bir ORANLAMA sözkonusudur.
Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Sayın Ömer Bey, ellerinize sağlık valla süper olmuş, çok teşekkür ediyorum.
Kod C1 hücresinin boyutuna göre çalışıyor, istediğimiz sayılarla yapmak istersek nasıl olacak?
C1 yazan yerlere sayı giriyorum olmuyor.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

80, 100 gibi biraz büyük değerler yazarak deneyin.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Sayın Ömer Bey, aşağıdaki kod gayet güzel oldu, ellerinize sağlık. Buradaki yazılarıda kalın yapmak istediğimizde ne eklememiz gerekir?

Sub B1_E_ACIKLAMA_EKLE_DUZENLE()
With [B1]
.ClearComments: .AddComment
.Comment.Text Text:="BU RENK OLANLAR AYNI BİLGİLERDİR."
.Comment.Shape.Fill.ForeColor.RGB = RGB(255, 192, 0)
.Comment.Shape.Width = 90
.Comment.Shape.Height = 50
.Comment.Shape.TextFrame.HorizontalAlignment = xlHAlignCenter
.Comment.Shape.TextFrame.VerticalAlignment = xlHAlignCenter
End With
End Sub
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Bu şekilde ekledim, hata verdi. Üsteki mesajımdaki BİLGİ kelimesine link eklenmiş, ben eklemedim, bilginiz olsun.

.Comment.Shape.Font.Bold = True
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Aşağıdaki gibi, diğer metin özelliklerini de kullanabilirsiniz.
CSS:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.
Çözüm


ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Sayın Ömer Bey, çok teşekkür ediyorum, ellerinize sağlık, uğraştırdım kusura bakmayın. Allah razı olsun.
Şimdi tam istediğim gibi çalışıyor, hayırlı sabahlar diliyorum.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Sayın Ömer Bey, kusura bakmayın şöyle bi hata oluyor.
Açılışta With Selection.Font bu komut çalışmıyor.

Çalışma kitabına ekledim.
Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.

Modül kısmına ekledim.
Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Sayın ASLAN7410 .
Select işlemi için, ilgili sayfanın aktif olması gerekir doğal olarak.
Belgenizin bütününü bilemiyorum ama mantık olarak şöyle ÇÖZÜM olur.
.
-- BuÇalışmaKitabı (ThisWorkbook) kısmına
Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.
.
-- Module1 'e
Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Sayın Ömer Bey, ellerinize sağlık, çok teşekkür ediyorum, sorun çözüldü.
Hayırlı günler diliyorum.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.


Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Üst