Çözüldü Hücreye Açıklama Ekleme İşlemi

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

SilinenUye8231

Normal Üye
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.
VBA: 
You must log in to view content
(8 satır)
 
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: 
You must log in to view content
(13 satır)
 
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, kusura bakmayın şöyle bi hata oluyor.
Açılışta With Selection.Font bu komut çalışmıyor.

Çalışma kitabına ekledim.
Kod: 
You must log in to view content
(4 satır)

Modül kısmına ekledim.
Kod: 
You must log in to view content
(20 satır)
 
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
VBA: 
You must log in to view content
(5 satır)
.
-- Module1 'e
VBA: 
You must log in to view content
(27 satır)
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler Daha Fazlası

Üst