Makro ile Açıklamayı Kopyalamak

[Tarikkk_]

Merhabalar . alttaki makro örrnek amaçlıdır Sayfa1 B1 hücresindeki veriyi Sayfa2 B1 hücresine kopyalıyorum fakat sayfa1 deki B1 hücresinde kayıtlı açıklama var açıklama ile beraber kopyalamak istiyorum. biraz araştırdım ama açıklama kopyalama ile ilgili bir bilgiye ulaşamadım yardımlarınızı bekliyorum şimdiden çok teşekkür ederim

Private Sub Worksheet_Change(ByVal Target As Range)
 If Range("A1") = "A" Then
 Worksheets("Sayfa2").Range("B1") = Worksheets("Sayfa1").Range("B1")
 Worksheets("Sayfa1").Select
 Exit Sub
 End If
End Sub

 

[Korhan Ayhan]

Özel yapıştır seçeneklerinde "Açıklamalar" şeklinde seçenek var. Makro kaydet yöntemi ile gerekli kodları elde edebilirsiniz.

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
Bu açıklamaları yandaki hücreye yazdırmanın da bir yolu yok mudur?
Saygılarımla

 

[Korhan Ayhan]

@Tevfik_Kursun forumda Comment ifadesi ile arama yaparsanız daha önce işlenmiş konulara erişebilirsiniz.

 

[Tevfik_Kursun]

Muhteşemsiniz Korhan Hocam,
Çok teşekkür ederim. Acaba bunun Google E-Tablolara uygulaması var mıdır?
Saygılarımla

 

[Korhan Ayhan]

O konuda @Haluk bey ya da @veyselemre bey daha tecrübelidir.

 

[Haluk]

Google Sheets'de 2 adet benzer olay var .... "Comment" ve "Note"

Google Script'le "Comment" ler alınamıyor ama "Not"lar alınabiliyor.

Bunun için kullanılacak script;

function getNote(cell) {
  return SpreadsheetApp.getActiveSheet().getRange(cell).getNote()
}

Örneğin sayfada C7 hücresinde bir not ekleyelim. Sayfada bir hücreye de bu fonksiyonu yazarak, C7 hücresindeki notu alabiliriz....

=getNote(Cell("Address",C7))

.

 

[Tevfik_Kursun]

Haluk Hocam,
Harika, Çok teşekkür ederim. KTF gibi çalışıyor sanırım. Beceriksizliğime ver Haluk hocam. Bir şeyi yanlış yaptım herhalde. Hata mesajı ekte. Yetkilendirme yaptım.
Saygılarımla

 

[Haluk]

Web tarayıcınız Türkçe ise virgül yerine noktalı virgül kullanın....

=getNote(Cell("Address";C7))

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Evet Türkçe, hata kalktı ama Note gelmedi
Saygılarımla

 

[Haluk]

Çünkü; o "Note" değil, "Comment".....

.

 

[Tevfik_Kursun]

İlginize teşekkür ederim, farkı nedir?
Saygılarımla

 

[Haluk]

Denemek lazım .... benim çok kullandığım bir özellik değil.

Kolay gelsin,

.

 

[Tarikkk_]

hocam benimde açıklama ile ilgili şöyle bir sorunum var alttaki makroda bir döngü kurdum M sütunu boş değil ise açıklama girmem için mesaj versin istiyorum ama If Worksheets("ARSA").Cells(Satır, "M").Comment.Text = "" Then bu satırda hata alıyorum açıklama boş ise kodunu nasıl girebilirim forumdaki konulardanda ulaşamadım yardımlarınız için şimdiden teşekkür ederim

Private Sub Worksheet_Change(ByVal Target As Range)
        
        
        SonSatır = Worksheets("ARSA").Cells(Rows.Count, "D").End(3).Row
        For Satır = 6 To SonSatır
        
        If Worksheets("ARSA").Cells(Satır, "M") <> "" Then
        If Worksheets("ARSA").Cells(Satır, "M").Comment.Text = "" Then
        
        MsgBox "Açıklama Ekleyin"
        Exit Sub
        End If
        End If
        Next Satır
        
        End Sub

 

[veyselemre]

hocam benimde açıklama ile ilgili şöyle bir sorunum var alttaki makroda bir döngü kurdum M sütunu boş değil ise açıklama girmem için mesaj versin istiyorum ama If Worksheets("ARSA").Cells(Satır, "M").Comment.Text = "" Then bu satırda hata alıyorum açıklama boş ise kodunu nasıl girebilirim forumdaki konulardanda ulaşamadım yardımlarınız için şimdiden teşekkür ederim

Private Sub Worksheet_Change(ByVal Target As Range)
    
    With Worksheets("ARSA").Range("M6:M" & Worksheets("ARSA").Cells(Rows.Count, "D").End(3).Row)
        Set cm = .SpecialCells(xlCellTypeComments)
        For Each huc In .SpecialCells(xlCellTypeConstants)
            If Intersect(cm, huc) Is Nothing Then
                huc.Select
                MsgBox "Açıklama Ekleyin"
                Exit Sub
            End If
        Next huc
    End With

End Sub

 

[Tarikkk_]

Private Sub Worksheet_Change(ByVal Target As Range)
   
    With Worksheets("ARSA").Range("M6:M" & Worksheets("ARSA").Cells(Rows.Count, "D").End(3).Row)
        Set cm = .SpecialCells(xlCellTypeComments)
        For Each huc In .SpecialCells(xlCellTypeConstants)
            If Intersect(cm, huc) Is Nothing Then
                huc.Select
                MsgBox "Açıklama Ekleyin"
                Exit Sub
            End If
        Next huc
    End With

End Sub

hocam bu satırda hata alıyorum.
Set cm = .SpecialCells(xlCellTypeComments)

 

[veyselemre]

M6:M aralığında daha önceden girilmiş herhangi bir açıklama olmadığı için bu hatayı vermiştir.

Private Sub Worksheet_Change(ByVal Target As Range)

    With Worksheets("ARSA").Range("M6:M" & Worksheets("ARSA").Cells(Rows.Count, "D").End(3).Row)
        If WorksheetFunction.CountA(.Cells) > 0 Then
            For Each huc In .SpecialCells(xlCellTypeConstants)
                If huc.Comment Is Nothing Then
                    huc.Select
                    MsgBox "Açıklama Ekleyin"
                    Exit Sub
                End If
            Next huc
        End If
    End With
    
End Sub

 

[Tevfik_Kursun]

Sayın Veysel Emre Hocam,
Yukarıda mesaj 7 deki script ile Google e-tablodan notlar yandaki hücreye alınabiliyor. Acaba Google Script'le "Comment" leri almak için bir yol var mıdır?
Saygılarımla