Comment Açıklama Bilgisi Kodunu Revize Etmek

Comment Açıklama Bilgisi Kodunu Revize Etmek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Comment Açıklama Bilgisi Kodunu Revize Etmek (/konu-comment-aciklama-bilgisi-kodunu-revize-etmek.html)

Sayfalar: 1 2 3 4 5 6 7

RE: Comment Açıklama Bilgisi Kodunu Revize Etmek - hayalibey - 20/11/2020

Hocam boş olan hücrelerin karşısındaki hücrelerde bile inputbox açılıyor.
Hocam bir de inputboxun içeriğini temizleyip tamam diyince malesef commenti silmiyor önceki açıklama devam ediyor ancak boşluk bırakırsam comment boşluk olark değişiyor
Benim istediğim comment için inputbox bosaltilinca aciklama tamamen silinsin kırmızı tik kaybolsun

RE: Comment Açıklama Bilgisi Kodunu Revize Etmek - feraz - 20/11/2020

If IsNumeric(Cells(Target.Row, 2).Value) = False Then Exit Sub

Resimde boyadığım yere bu kodu ekleyin son koda.

[Resim: do.php?img=10599]

(20/11/2020, 01:00)hayalibey yazdı: Hocam boş olan hücrelerin karşısındaki hücrelerde bile inputbox açılıyor.
Hocam bir de inputboxun içeriğini temizleyip tamam diyince malesef commenti silmiyor önceki açıklama devam ediyor ancak boşluk bırakırsam comment boşluk olark değişiyor
Benim istediğim comment için inputbox bosaltilinca aciklama tamamen silinsin kırmızı tik kaybolsun

Son kodu denedinizmi Gif i izledinizmi?

RE: Comment Açıklama Bilgisi Kodunu Revize Etmek - hayalibey - 20/11/2020

Zafer Hocam hızlı olan kodun altına 5li imza blogundaki isimleri imza için açsa
Ama illa her zaman 5 kişi imzalayacak diye bir kural yok . 4 veya 3 te olabilir

RE: Comment Açıklama Bilgisi Kodunu Revize Etmek - feraz - 20/11/2020

If Cells(Target.Row, 2).Value <> " " And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub
Boş hücreler için yukardaki " " gibi yaptım önceden "" imiş.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Açýklama_Ekleme As Comment

Dim strText



If Target.Column > 37 Then Exit Sub

If IsNumeric(Cells(Target.Row, 2).Value) = False Then Exit Sub

If Cells(Target.Row, 2).Value <> " " And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub



If Cells(Target.Row, Target.Column).Comment Is Nothing Then

    strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", _

              "Açýklama_Ekleme", "Açýklama Ekler", , , , 2)

Else

    strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", _

              "Açýklama_Ekleme", Target.Comment.text, , , , 2)

End If



If strText = "" Then

    Target.Comment.Delete

    Exit Sub

End If

'On Error Resume Next

If strText = False Then Exit Sub

On Error GoTo 0

If Application.ExecuteExcel4Macro("Get.Cell(46)") = True Then

    Target.Comment.Delete

End If

Target.AddComment

Set Açýklama_Ekleme = Target.Comment

With Açýklama_Ekleme

    .text text:=strText

    With .Shape.TextFrame.Characters.Font

        .Name = "Arial"

        .Size = 8

        .Bold = False

    End With

End With



End Sub

(20/11/2020, 01:07)hayalibey yazdı: Zafer Hocam hızlı olan kodun altına 5li imza blogundaki isimleri imza için açsa
Ama illa her zaman 5 kişi imzalayacak diye bir kural yok . 4 veya 3 te olabilir

Konu karıştı galiba Img-grin

RE: Comment Açıklama Bilgisi Kodunu Revize Etmek - hayalibey - 20/11/2020

Zafer Hocam göreve çıktım gifteki gibi çalisrsa sorun yok sabah. Deneyip size haber vereyim. Özelden mesaj yazamadığım için burdan bilgi veririm

(20/11/2020, 01:09)feraz yazdı: If Cells(Target.Row, 2).Value <> " " And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub
Boş hücreler için yukardaki " " gibi yaptım önceden "" imiş.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Açýklama_Ekleme As Comment

Dim strText



If Target.Column > 37 Then Exit Sub

If IsNumeric(Cells(Target.Row, 2).Value) = False Then Exit Sub

If Cells(Target.Row, 2).Value <> " " And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub



If Cells(Target.Row, Target.Column).Comment Is Nothing Then

    strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", _

              "Açýklama_Ekleme", "Açýklama Ekler", , , , 2)

Else

    strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", _

              "Açýklama_Ekleme", Target.Comment.text, , , , 2)

End If



If strText = "" Then

    Target.Comment.Delete

    Exit Sub

End If

'On Error Resume Next

If strText = False Then Exit Sub

On Error GoTo 0

If Application.ExecuteExcel4Macro("Get.Cell(46)") = True Then

    Target.Comment.Delete

End If

Target.AddComment

Set Açýklama_Ekleme = Target.Comment

With Açýklama_Ekleme

    .text text:=strText

    With .Shape.TextFrame.Characters.Font

        .Name = "Arial"

        .Size = 8

        .Bold = False

    End With

End With



End Sub

(20/11/2020, 01:07)hayalibey yazdı: Zafer Hocam hızlı olan kodun altına 5li imza blogundaki isimleri imza için açsa
Ama illa her zaman 5 kişi imzalayacak diye bir kural yok . 4 veya 3 te olabilir

Konu karıştı galiba Img-grin

Evet hocam karıştırdım özür dilerim

RE: Comment Açıklama Bilgisi Kodunu Revize Etmek - feraz - 20/11/2020

(20/11/2020, 01:10)hayalibey yazdı: Zafer Hocam göreve çıktım gifteki gibi çalisrsa sorun yok sabah. Deneyip size haber vereyim. Özelden mesaj yazamadığım için burdan bilgi veririm

(20/11/2020, 01:09)feraz yazdı: If Cells(Target.Row, 2).Value <> " " And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub
Boş hücreler için yukardaki " " gibi yaptım önceden "" imiş.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Açýklama_Ekleme As Comment

Dim strText



If Target.Column > 37 Then Exit Sub

If IsNumeric(Cells(Target.Row, 2).Value) = False Then Exit Sub

If Cells(Target.Row, 2).Value <> " " And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub



If Cells(Target.Row, Target.Column).Comment Is Nothing Then

    strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", _

              "Açýklama_Ekleme", "Açýklama Ekler", , , , 2)

Else

    strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", _

              "Açýklama_Ekleme", Target.Comment.text, , , , 2)

End If



If strText = "" Then

    Target.Comment.Delete

    Exit Sub

End If

'On Error Resume Next

If strText = False Then Exit Sub

On Error GoTo 0

If Application.ExecuteExcel4Macro("Get.Cell(46)") = True Then

    Target.Comment.Delete

End If

Target.AddComment

Set Açýklama_Ekleme = Target.Comment

With Açýklama_Ekleme

    .text text:=strText

    With .Shape.TextFrame.Characters.Font

        .Name = "Arial"

        .Size = 8

        .Bold = False

    End With

End With



End Sub

(20/11/2020, 01:07)hayalibey yazdı: Zafer Hocam hızlı olan kodun altına 5li imza blogundaki isimleri imza için açsa
Ama illa her zaman 5 kişi imzalayacak diye bir kural yok . 4 veya 3 te olabilir

Konu karıştı galiba Img-grin

Evet hocam karıştırdım özür dilerim

İyi görevler abey.Deneyin olmazsa akşama bakabilirim.Bence oldu.