Sorgu için arama sonuçları: comment

...aşağıdaki kodları yapıştırın, kodlardan herhangi bir satır seçiliyken F5 tuşuna basarak kodları çalıştırın. Sub Test() Dim Aciklama As Comment Dim Bak As Range Dim Alan As Range Set Alan = Range("A1:H20")'Sadece A1 ile H20 aralığındaki açıklamaları kontrol eder. Siz...

...+ 1 .Range("A" & SonSatir) = Range("A1") .Range("B" & SonSatir) = 1 .Range("B" & SonSatir).AddComment .Range("B" & SonSatir).Comment.Text "Kayıt Tarihi: " & Now Else If Range("B1") = "SİL" And...

Range("B1").Comment.Text Text:=[a1].Value bu kısımda application defined or object-defined error Hatası Verdi

Bu şekilde deneyiniz. Sub aek() [b1].ClearComments Range("B1").AddComment Range("B1").Comment.Text Text:=[a1].Value End Sub

Sayın muygun teşekkür ederim yön tuşları ilede resmi göstermemiz mümkünmü acaba

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