Hücredeki Verilere Göre Açıklama Ekleme

[neo]

:hey: selam arkadaşlar

Sayfa 1 2 3 …Devam eden Üretim Reçeteleri var veya sonradan ekleniyor
Maliyet sayfasında da yapmak istediğim 4.satıra adı Yazılı Mamülün Reçetesini Açıklam Ekle bölümünde otomatik olarak göstermek acaba bu mümkünmüdür.

Saygılarımla,

 

[Levent Menteşoğlu]

Aşağıdaki kodu maliyet sayfasının kod sayfasına kopyalayın. sayfa adını yazdığınızda otomatik olarak açıklama eklenecektir.

[vb:1:9cc37d3164]Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Target.Row <> 3 Or Target.Value = 0 Then
Target.Offset(1, 0).ClearComments
Exit Sub
End If
Target.Offset(1, 0).AddComment.Text
10 For a = Sheets(Target.Value).[c4].End(4).Row To 5 Step -1
yaz = Sheets(Target.Value).Cells(a, 1).Value & "-" & Sheets(Target.Value).Cells(a, 3).Value & " " & Sheets(Target.Value).Cells(a, 4).Value & " " & Sheets(Target.Value).Cells(a, 5).Value & Chr(10) & yaz
Next
Target.Offset(1, 0).Comment.Text Text:="Üretim Reçetesi" & Chr(10) & Chr(10) & yaz
End Sub
[/vb:1:9cc37d3164]

 

[neo]

:dua: Merhaba

Sn; leventm elinize Kolunuza Sağlık Harika olmuş Çok Teşekkurederim Yardımlarınız için ,Sizler olmasaydınız Excel Bu kadar Keyifli Bir Program olmazdı Heralde

Saygılarımla,

 

[neo]

:hey:

Sn; leventm

Ã?renek Dosyada Çalışıyor ama Kendi dosyamda çalıştıramadım hatalar veriyor dosyamın aslı oldukça büyük olduğu için bi örnek göndermiştim ama bu kodları asıl dosyamda çalıştıramadım asıl dosyayı bir bölümünü silerek gönderiyorum bu dosya üzerinde yardımcı olursanız çok makbul geçer Saygılarımla,

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

[vb:1:9f6b7334d8]Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Target.Row <> 3 Or Target.Value = 0 Then
Target.Offset(1, 0).ClearComments
Exit Sub
End If
Set ad = Sheets("" & Target.Value)
Target.Offset(1, 0).AddComment.Text
10 For a = ad.[e4].End(4).Row To 5 Step -1
yaz = ad.Cells(a, 1).Value & "-" & ad.Cells(a, 3).Value & " " & ad.Cells(a, 5).Value & " " & ad.Cells(a, 4).Value & Chr(10) & yaz
Next
Target.Offset(1, 0).Select
ActiveCell.Comment.Text Text:="Üretim Reçetesi" & Chr(10) & Chr(10) & yaz
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
With Selection
.AutoSize = True
End With
ActiveCell.Comment.Visible = False
End Sub
[/vb:1:9f6b7334d8]

 

[neo]

:hey:

Sn leventm tekrar tekrar teşekkuederim