Çözüldü Sütunda bulunan tik işaretini kaldırma

[sirkülasyon]

Sub BİRLEŞTİR()
    Dim X As Long, BUL As Range
    Set BUL = Range("A:A").Find("P", , , xlWhole)
    If Not BUL Is Nothing Then
        For X = BUL.Row + 1 To Cells(Rows.Count, 4).End(3).Row
            If Cells(X, 1) = "P" Then
                Cells(BUL.Row, "H") = Cells(BUL.Row, "H") & "+" & Cells(X, "H")
                For Y = 12 To 27
                    Cells(BUL.Row, Y) = Cells(BUL.Row, Y) + Cells(X, Y)
                Next
                Rows(X).Delete
                X = X - 1
            End If
        Next
    End If
    Set BUL = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Birleştir komutu A:A sütununda bulunan "P" işareti ile tik atılan satırları birleştiriyor ve sıkıntısız olarak çalışıyor.

Sadece eklemek istediğim Makro işlemini yapıp bitirdikten sonra A:A sütununda bulunan tik işaretini de kaldırsın
Bu komutu nasıl ekleyebilirim.

 

[Ömer BARAN]

Merhaba.
Aşağıda kırmızı renklendirdiğim satırı ekleyerek deneyiniz.

..................
            If Cells(X, 1) = "P" Then
                Cells(BUL.Row, "H") = Cells(BUL.Row, "H") & "+" & Cells(X, "H")
                Cells(X, 1) = ""
                For Y = 12 To 27
..................

 

[sirkülasyon]

Ömer abi teşekkür ederim.
Çok çok sağolasın

 

[Ömer BARAN]

Kolay gelsin.