Açıklama ekleme problemi

[wexplorerx]

Sayın Hocalarım Üstadlarım Ekli dosyada oldugu gibi

Sayfa 2 deki belirli verilerin otomatik olarak Örn: C4 Hücresine Açıklama olarak
eklenmesi

Teşekkürler

 

[Ömer]

Merhaba,

Private Sub CommandButton1_Click()
Dim Açıklama As String
On Error Resume Next
Set S1 = Sheets("Sayfa2")
For i = 1 To S1.[A65536].End(3).Row
If S1.Cells(i, "b") = "MÜHENDİS" Then
Açıklama = Açıklama & Chr(10) & S1.Cells(i, "a")
 
   [C4].AddComment
   [C4].Comment.Visible = True
   [C4].Comment.Text Text:=Açıklama
 
End If
Next
End Sub

.

 

[turk-x]

S.A.
Sayın wexplorerx;

Sayfa 1 Deki CommandButon1 in Click olayına aşağıdkai kod ekleyiniz.
sorununuzu çözecektir.

Private Sub CommandButton1_Click()

On Error Resume Next
Son = [Sayfa2!a65536].End(3).Row 'Sayfa 2 de A Sütununda Müdendis adı yazan Son Hücre
Set Sf = Sheets("Sayfa2")

For i = 1 To Son
Aciklama = Aciklama & Sf.Range("A" & i).Text & " - " & Sf.Range("B" & i).Text & Chr(10)

Next i
Range("C4").ClearComments
Range("C4").AddComment
Range("C4").Comment.Visible = True 'False Değeri Açıklamayı Gizler
Range("C4").Comment.Text Text:=Aciklama

Range("C4").Comment.Shape.ScaleHeight (0.19 * Son), msoFalse 'Açıklama Penceresi Uzunluk
Range("C4").Comment.Shape.ScaleWidth 1.5, msoFalse 'Açıklama Penceresi Eni
End Sub

 

[wexplorerx]

Ömer Hoca ve TURK X Elinize sağlık ikiside oldu Teşekkürler