Açılışta Hücreye Renkli Açıklama Ekleme

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

SilinenUye8231

Kullanıcı
Katkı: %1
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?
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhaba Sayın @SilinenUye8231 .

-- 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.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (8 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
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:
Bu kodu görmek için giriş yapmanız gerekmektedir (13 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
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:
Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap

Modül kısmına ekledim.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (20 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
Sayın @SilinenUye8231 .
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
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (5 satır). Giriş Yap
.
-- Module1 'e
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (27 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst