Açıklama (toplu) ekleme

[seyirtken]

Merhaba arkadaşlar,

Birkaç yerde aradım sitede ama bulamadım, umarım doğru yere açmışımdır.

Başlığa da yazdığım gibi toplu açıklama metinleri girmek istiyorum ama Mesela K sütununda 600 satır çalışıyorum ama 600'ün hepsine birden değil; açıklama girmek istiyorum.

Açıklama metnim aynı "Psikoteknik Kesintileri" ama kimisi K 20 kimisi K 50 kimisi K 45'e denk gelecek şekilde.

Yardımcı olabilir misiniz?

Teşekkürler.

 

[muygun]

Merhaba;
Dosyanızda açıklama_ekleme adında bir sayfa oluşturun
oluşturduğunuz bu sayfada;
A2 den itibaren açıklama eklenecek sayfa isimlerini, (Sayfa3,deneme vs...)
B2 den itibaren açıklama eklenecek sütun isimlerini, (a,B,K,K,d ...vs)
C2 den itibaren açıklama eklenecek satır nolarını, (1,3,5,27,33.. vs)
D2 den itibaren açıklama metnini (Psikoteknik Kesintileri, deneme,... vs)
E2 den itibaren;
=EĞER(EHATALIYSA(EĞER(UZUNLUK(B2)>1;(26*(KOD(SOLDAN(BÜYÜKHARF(B2);1))-64))+KOD(SAĞDAN(BÜYÜKHARF(B2);1))-64;KOD(BÜYÜKHARF(B2))-64));"";EĞER(UZUNLUK(B2)>1;(26*(KOD(SOLDAN(BÜYÜKHARF(B2);1))-64))+KOD(SAĞDAN(BÜYÜKHARF(B2);1))-64;KOD(BÜYÜKHARF(B2))-64))
Formülünü uygulayarak yeterince aşağı doğru çoğaltın.

Not: Açıklamasını değiştirmeyeceğiniz hücreler için B sütununda sütun adını boş bırakın.

Sayfanın kod bölümüne;

Sub açıklama_eklee()
Set s1 = ThisWorkbook.Worksheets("açıklama_ekleme")
On Error Resume Next
For i = 2 To s1.Range("E65536").End(xlUp).Row
If s1.Cells(i, "e") <> "" Then
sayfaa = s1.Cells(i, 1)
sat = s1.Cells(i, 3)
süt = s1.Cells(i, 5)
açıklama = s1.Cells(i, 4)
Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, 1).Value)
s2.Cells(sat, süt).Comment.Delete
s2.Cells(sat, süt).AddComment
s2.Cells(sat, süt).Comment.Visible = False
s2.Cells(sat, süt).Comment.Text Text:="" & Chr(10) & açıklama
End If
Next i
End Sub

Kodlarını yerleştirerek bir butona bağlayın ve deneyin.
İyi çalışmalar.

 

[seyirtken]

Çok afedersiniz cahilim bu konuda.
NOT yazdığınız yere kadar hepsini yaptım.
Devamını yapamadım. Geliştirici seçeneklerinden kodu yapıştırdım ama run dedim olmadı. Tam da bilmiyorum açıkçası.
Gönderdiğiniz dosya için de ayrıca AÜyelik istiyor.
Teşekkürler yine de.

 

[seyirtken]

@muygun
Çok teşekkür ederim tüm yardımların için