Koşula bağlı olarak hücreye açıklama ekleme..

[mybluecat]

Merhabalar,

1) Bir hücreye başka bir hücredeki koşullara bağlı olarak Açıklama ekletmek mümkün mü?

Örneğin A2<10 ve A2<>0 ise B2 hücresine "şu nedenle çalışılmamıştır" gibi bir açıklama yazılabilir mi?

2) Eğer açıklamayı yazdırmak mümkün ise aynı açıklamayı başka bir excel sayfasına aktarmak mümkün mü?

Teşekkürler..

 

[rabbace]

Merhaba,

İnceler misiniz?

 

[mybluecat]

Örneği inceledim.Örnekte A sütununa açıklama ekliyor.Ben A sütununa bağlı olarak belirli koşullarda B sütununa açıklama ekletmek istiyorum.
Örneğin 0<A2<10 ise B2 hücresine "AAAAAA" açıklaması eklenmesi gibi.

Eğer mümkünse de butonsuz olarak otomatik biçimde.

 

[parametre]

=eğer(ve(a2>0;a2<10);"aaaaaaa";" ") kosul saglanırsa formulun yazıldıgı yere aaaa yazar kosul yoksa bos olur

 

[mybluecat]

Sayın parametre.Sizin önerdiğiniz yöntem doğrudan hücre içine yazıyor.Ben hücreye açıklama olarak eklemek istiyorum.Açıklama eklemeye çalıştığım hücrelerde zaten formüller mevcut.Koşullu biçimlendirme ile pek mümkün görünmüyor. rabbace arkadaş kod ile yardımcı olmak istedi ancak tam olarak istediğim şey olmadı.

 

[parametre]

Sayın parametre.Sizin önerdiğiniz yöntem doğrudan hücre içine yazıyor.Ben hücreye açıklama olarak eklemek istiyorum.Açıklama eklemeye çalıştığım hücrelerde zaten formüller mevcut.Koşullu biçimlendirme ile pek mümkün görünmüyor. rabbace arkadaş kod ile yardımcı olmak istedi ancak tam olarak istediğim şey olmadı.

kod kırmızı olan bolumu ekle kolay gelsin

Sub aciklama_ekle()

Application.ScreenUpdating = False


'Dim x As Integer
'Dim y As Integer

For i = 1 To 1000

x = Range("A" & i).Value
y = Range("B" & i).Value

[COLOR="Red"][B]If x > 0 And x < 10 Then[/B][/COLOR]

Range("A" & i).AddComment
Range("A" & i).Comment.Visible = True
Range("A" & i).Comment.Text Text:="Aykut Diren:" & Chr(10) & "deneme"

Else

End If

Next i

End Sub

 

[rabbace]

Kusura bakmayın bakamadım,

Açıklama eklemek için;

Sub aciklama_ekle()

Application.ScreenUpdating = False

For i = 1 To 1000

x = Range("A" & i).Value

If x > 0 And x < 10 Then

Range("B" & i).AddComment
Range("B" & i).Comment.Visible = False
Range("B" & i).Comment.Text Text:="[COLOR="Red"]deneme[/COLOR]"

Else

End If

Next i

End Sub

Açıklama silmek için;

Sub aciklama_sil()

ActiveCell.Select

Selection.ClearComments

End Sub

A hücrelerine göre B'yi kıyas yapacak ve açıklamaları B'ye yazacak.

Kırmızı renkli yeri kendinize göre değiştiriniz.

Otomatik çalışmayı bilmiyorum. Butona atama yaparak çalışabilirsiniz. Sizin için uğraşırken benim için de iyi olacağını fark ettim.

 

[mybluecat]

Elinize sağlık. Kod istediğim gibi çalışıyor. Fakat bir şekilde eğer mümkün ise otomatik hale gelmesi lazım.Buton olayı pek işime yaramıyor.Her gün, gün içinde birçok kez kullanacağım için otomatik olması daha iyi olacak.

 

[muratgunay48]

Merhaba,

İnceler misiniz?

Hocam, emeğinize sağlık. Soru olarak da sordum ama dosyada 50 tane isim var mesela MURAT yazınca "123456789" notu gelsin hücreye, mümkün mü?