Sorgu için arama sonuçları: comment

Hamitcan Bey, defalarca uğraştınız , gerçekten çok teşekkür ederim. İnanın bundan sonrası için artık yazarken utanıyorum, ama şu an bazı hesaplamalarda hata var, bazı hücrelerde bitiş tarihi başlama tarihinden önce görünüyor, ben J ve K sütununa olması gereken başlama ve bitiş tarihlerini...

Böyle deneyin. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("h").ClearComments With Target If .Count > 1 Then Exit Sub If .Value = "" Then Exit Sub If .Row = 2 Then J = [n1] k = [n1] + ([h2] - [g2]) / [n2]...

...bitiş tarihi başlama tarihinden daha önce hesaplanıyor. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("h").ClearComments With Target If .Count > 1 Then Exit Sub If .Value = "" Then Exit Sub If IsNumeric(.Value) = False Then Exit Sub...

Bu şekilde dener misiniz ? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("h").ClearComments With Target If .Count > 1 Then Exit Sub If .Value = "" Then Exit Sub If .Row = 2 Then j= [n1] k = [n1] + ([h2] - [g2])...

j ve k sütununu sildiğimde kod h sütunundaki ilk hücre için çalışıyor diğerleri için çalışmıyor Hamitcan Bey, diğer konular ok, teşekkürler.

...ise konusunu ise aşağıdaki satırı ekleyerek hallettim. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("h").ClearComments With Target If .Count > 1 Then Exit Sub If .Value = "" Then Exit Sub ' Bu satırı ekledim. If .Row = 2 Then...

Umarım eksik bir şey kalmamıştır.;) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("h").ClearComments With Target If .Count > 1 Then Exit Sub If .Row = 2 Then Txt1 = [n1] Txt2 = [n1] + ([h2] - [g2]) / [n2] Else...

...şekilde deneyin. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 8 Then Exit Sub Columns("h").ClearComments With Target .AddComment .Comment.Visible = True .Comment.Text Text:=Cells(Target.Row, "j") & Chr(10) &...

Teşekkürler cevap için. Kodu sayfaya ekledim, çalıştırdım fakat nereye tıklarsam tıklayayım orada açıklama açılıyor, benim istediğim sadece H sütununda açılması. Diğer husus ; farklı bir hücreye tıklandığında açık olan açıklamanın kapanmasını istiyorum, çünkü bu şekilde tüm sayfa açıklama...

Sayfanın kod kısmıne ekleyin. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("h").ClearComments With Target .AddComment .Comment.Visible = True .Comment.Text Text:=Cells(Target.Row, "j") & Chr(10) & Cells(Target.Row, "k") End With End Sub

...As Range, alan As Range) As Integer Dim hcr As Range, say As Integer Application.Volatile For Each hcr In alan If hcr.Value = "PD" Then If InStr(1, hcr.Comment.Text, aciklamatext) > 0 Then say = say + 1 End If End If Next aciklama_59 = say End Function

Arkadaşlar makromda şu kodlarım var. Sheets("A-liste").Visible = xlSheetVisible Sheets("P1-liste").Visible = xlSheetVisible Sheets("P2-liste").Visible = xlSheetVisible Yapmak istediğim şu: kod yardımıyla 2. ve 3. satırı comment text (açıklama-yeşil renkli olan) yapabilir miyim.

...& "." & yıl If izin1 = ay_ara Then If Val(Worksheets("Genel Takip").Cells(i, j).Value) > 0 Then deg = Worksheets("Genel Takip").Cells(i, j).Comment.Text son = Val(UBound(Split(deg, Chr(10)))) Worksheets("Genel Takip").Cells(i, j).Value = Worksheets("Genel Takip").Cells(i, j).Value + gun...

Halit hocam, Affınıza sığınarak dosyayı biraz değiştirdim. Buna göre revize edebilirseniz çok sevinirim. Yardımlarınızdan ötürü Allah bin kere razı olsun..

...& "." & yıl If izin1 = ay_ara Then If Val(Worksheets("Genel Takip").Cells(i, j).Value) > 0 Then deg = Worksheets("Genel Takip").Cells(i, j).Comment.Text son = Val(UBound(Split(deg, Chr(10)))) Worksheets("Genel Takip").Cells(i, j).Value = Worksheets("Genel Takip").Cells(i, j).Value +...

Halit hocam, Kodu denediğimde olmayan 2021 yılını dahi koysam istediğimi karşılıyor. Lakin listeye yeni isimler eklediğimde hataya düşüyor. Onu da ekleyebilirseniz çok sevinirim.

...= Worksheets("Genel Takip").Cells(i, j).Value + Worksheets("İzin Formu").Cells(4, 2).Value deg = Worksheets("Genel Takip").Cells(i, j).Comment.Text Worksheets("Genel Takip").Cells(i, j).ClearComments Worksheets("Genel Takip").Cells(i, j).AddComment Worksheets("Genel Takip").Cells(i...

bunu yaptım..ne değişecek acaba söylermisin açaklamalarda değişen olmadı yapmam gereken başka bir iş varmı söyle yapayım

Böyle dener misiniz ? Sub AciklamaBoyutu() For Each hcr In Selection.SpecialCells(xlCellTypeComments).Cells hcr.Comment.Shape.Width = 20 hcr.Comment.Shape.Height = 20 Next End Sub

...dur. ALT, F11 tuşlarına basarak kod sayfasına gidiniz. Orada makro kodlarını göreceksiniz. İngilizcede israrlıysanız, kodları aşağıdakilerle değiştirin. Function CommentWrite(rng As Range) As String If Not rng.Comment Is Nothing Then CommentWrite = rng.Comment.Text End If End Function .