açıklamaya resim ekleme makrosunda düzenleme

[acarselcuk1]

merhaba arkadaşlar: ekteki örnek belgedeki makroyu bana sayın levenm bey hazırladı ve örneğe bakarsanız kayıt sırasında o zamanki talebime göre kayıt yaptığı hücreye (.) nokta koyuyor. fakat ben nokta yerine sayfa 1 e4 hücresindeki değişken değeri koymasını istiyorum. yardımlarınız için şimdiden teşekkürler...

 

[emrexcel123]

dosya ektedir

eki inceler misiniz....

 

[acarselcuk1]

elinize sağlık
çok güzel tam istediğim gibi olmuş. sağolun......

 

[emrexcel123]

rica ederim

rica ederim...

 

[koral]

açıklama ya resim ekleme-koşullu

İlgili dosyada bir sorum olacak.
Farklı sayfalardaki verileri karşılaştırarak , iki sayfada da aynı değerde olan 1.sayfada A sütunundaki hücreye ; 2.sayfadaki değerin tüm satırını açıklama / comment 'ya resim olarak gösterme.
Yardımlarınızı bekliyorum. Forumda 400 yazıya baktım ama benzer örnek bulamadım. Benzeri varsa link de olur.

 

[Levent Menteşoğlu]

Bunu resim olarak eklemeye gerek yok text olarakta eklenebilir. Aşağıdaki kodu 1.makina sayfasında bir butona bağlayarak çalıştırın.

Sub aciklamaekle()
On Error Resume Next
Set s1 = Sheets("1.makina")
Set s2 = Sheets("2.makina")
For a = 2 To s1.[a65536].End(3).Row
say = WorksheetFunction.CountIf(s2.[a:a], s1.Cells(a, "a"))
If say > 0 Then
sat = WorksheetFunction.Match(s1.Cells(a, "a"), s2.[a:a], 0)
s1.Cells(a, "a").AddComment
s1.Cells(a, "a").Comment.Text Text:=s2.Cells(sat, "a") & " " & s2.Cells(sat, "b") & " " & _
s2.Cells(sat, "c") & " " & s1.Cells(sat, "d") & " " & s2.Cells(sat, "e")
s1.Cells(a, "a").Comment.Visible = False
End If
Next
End Sub

 

[koral]

Levent bey,
çok teşekkür ediyorum,emeğinize sağlık.
Ufak bir problem var:
1-Macroyu çalıştırınca ,aynı sipariş nosunu bulunca comment çıkıyor fakat sipariş nosunu değiştirnce comment yokolmuyor.
2-Bunu butona basarak değil de otomatik yapamaz mıyız? Yeni kendisi arka sayfaya baksın,aynı sipariş satırı varsa otomatik ilk sayfadaki ilgili sipariş numarasına comment atsın,bu çok iyi olur işte.
Şimdiden teşekkürler...

Saygılar,

 

[Rulemaster]

Excel 2000 icin

eki inceler misiniz....

Sayin emrexcel ekteki dosya Excel 2000 versiyonunda calismiyor.
Yani resim olarak gostermiyor sadece. Acaba nasil bir degisiklik yapilabilir.
Tesekkurler

 

[emrexcel123]

farklı kaydet

arkadaşım dosyayı açtıktan sonra klavye den f12 ye bas ve farklı kaydet senin versiyonuna dönecektir...

 

[ANTALYA 01]

G

Merhaba

Bu Hücrelere eklenen Açıklamaları nasıl yazdırabiliriz ?