Sorgu için arama sonuçları: comment

...Sub Worksheet_SelectionChange(ByVal Target As Range) Dim hcr As Range Dim c As Integer Dim yuk As Double, gen As Double Columns("c").ClearComments If Intersect(Target, [b2:b15000]) Is Nothing Then Exit Sub If Target.Count > 2 Then Exit Sub With Cells(Target.Row, "c") .AddComment...

...Sub updateAccess() Dim cn As ADODB.Connection Dim rstProducts As ADODB.Recordset Dim sProduct As String Dim cPrice As String Dim counter As Integer Application.DisplayAlerts = False Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data...

Açıklama kutucuğuna eski değerler arşivlenebilir. Forumda daha önce benzer bir konu vardı. Comment ifadesi ile arama yapın ve çıkan konuları inceleyin.

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...