Onemli Gunler Takvimi - On Mouse Move Istegi

[mustafaine1]

Arkadaslar ektedi onemli gunler takvimini bir tur kredi takip takvimi olarak editmemek istiyorum ama gunlerin uzerine geldigimde o gun hangi kredilerin oldugunu gosterecek biseye ihtiyacim var yoksa isime yaramiyor, ekteki onemli gunleri gosterebilmeyi denermisiniz..

 

[Ömer]

Merhaba,

Sheet1 kod sayfasına kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Açıklama As String
On Error Resume Next
Set S1 = Sheets("holidays")
If Intersect(ActiveCell, [C7:Y39]) Is Nothing Then Exit Sub
If ActiveCell = "" Then Exit Sub
    For i = 1 To S1.[A65536].End(3).Row
        If S1.Cells(i, "c") = ActiveCell Then
            Açıklama = Açıklama & Chr(10) & S1.Cells(i, "a")
                ActiveCell.AddComment
                ActiveCell.Comment.Visible = False
                ActiveCell.Comment.Text Text:=Açıklama
         End If
    Next i
End Sub

Module kopyalayın. Kaydırma çubuğuna makro olarak atayın.

Sub KaydırmaÇubuğu2_Değiştir()
    Selection.SpecialCells(xlCellTypeComments).ClearComments
End Sub

.

 

[mustafaine1]

Omer Hocam tesekkur ederim istedigim bu yalniz arada hata veriyor kaydirma cubugu sizdede varmi oyle bir sorun..

on error resume next koydum o yuzden kaydirma cubuguna bu sekilde mukemmel calisiyor..

 

[Ömer]

Açıklama bulamadığı zaman hata veriyordur.

Kodları bu şekilde değiştirin.

Sub KaydırmaÇubuğu2_Değiştir()
On Error Resume Next
Selection.SpecialCells(xlCellTypeComments).ClearComments
End Sub

 

[mustafaine1]

evet bende o sekilde dusunup cevabimi duzeltmistim hocam, cok tesekkur ederim bu arada comment boyutlari ayarlamanin bir yolu var mi biliyormusunuz acaba ?

 

[Ömer]

İçeriğine göre soruyorsunuz sanırım. Evet olabilir biraz deneme yapmam gerekiyor.

Açıklama içine gelecek veri sayısı tekmi dir yoksa birden fazla olabilir mi?

.

 

[mustafaine1]

Hocam bayagi bildiginiz kaba bisey icinde bayagi yazi olucak cunku bikac satiri birden listelemis olucak 5cm*10cm gibi birsey; o yuzden istedim ama sizi cokta yormak istemem her bakisimizda pekala acabilirizde commenti..

 

[mustafaine1]

Arkadaslar bu konuda Recep Ipek hocamin bir vba si var ama ben uyarlayamadim, goz atabilirmisiniz..

http://www.excel.web.tr/showthread.php?t=19966&highlight=comment+boyutu

 

[peleryn]

Sn mustafaine;

Ömer hocamın yazdığı kodu şu şekilde dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Açıklama As String
On Error Resume Next
Set S1 = Sheets("holidays")
If Intersect(ActiveCell, [C7:Y39]) Is Nothing Then Exit Sub
If ActiveCell = "" Then Exit Sub
For i = 1 To S1.[A65536].End(3).Row
If S1.Cells(i, "c") = ActiveCell Then
Açıklama = Açıklama & Chr(10) & S1.Cells(i, "a")
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=Açıklama
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
End If
Next i
End Sub

 

[mustafaine1]

tesekkurler peleryn cok iyi gorunuyor..

 

[peleryn]

tesekkurler peleryn cok iyi gorunuyor..

Rica ederim.İyi çalışmalar

 

[mrcylmz_61]

Ömer bey kolay gelsin. mouse move... ile butona efekt ekliyorum, sonrasında fareyi götüreceğim her nesne için ayrı ayrı butonun eski halini kodluyorum. bunun kolay yolu var mı mesela fare butonun üzerinde değilken için bir parametre var mı? ikinci bir sorum ise ctrl+sh,ft+; basic de kod yazarak excelde ki bir hücreye atabilir miyim?
sizi geçende yine rahatsız etmiştim bana cevap vermediniz , bana yardımcı olma borcunuz var ömer bey

 

[mrcylmz_61]

Ömer hocam bana yine yardımcı olmadınız sanırım.

 

[Ömer]

Çalışma üzerinde zaman geçtiği için hatırlayamadım. Yaptığınız çalışmayı ekleyerek dosya üzerinde açıklarmısınız.
2. sorunuzun yanıtı diğer konunun devamında yanıtlanmıştır.

 

[mrcylmz_61]

Ömer bey diğer sorumun cevabını anlayamadım sanırım tam olarak anlatamıyorum ; tekrar vaktinizi alacağım .
1.sorum şu ; excelde klavyeyi kullanarak (ctrl+shift+ basınca o anın tarihini hücreye atıyor ve güncellemiyor. ben bunu klavye kullanmadan basic tarafında kod yazarak sayfa1.cells(1,1) 'e atamak istiyorum bu mümkün mü?
2.sorum ise ; sub label1_mousemove(....) altında yani mause label1 de iken label a efekt atıyorum , sonra fareyi başka bir yere kaydırdığımda efektin gitmesini label1 in ilk haline dönmesini istiyorum. bunun için en kolay ne yapabilirim?

 

[mrcylmz_61]

hocam dertlerimi anlatabildim mi??

 

[mrcylmz_61]

ömer bey ben bekliyorum bugün sıra gelir mi hocam

 

[Ömer]

1. sorunuzu diğer konuda takip etmenizi rica ederim.
2. sorunuzla ilgili de örnek dosya ekleyerek açıklamanızı rica etmiştim.