Kenarlığı olmayan hücre içeriğini temizle

[yelgecak]

S.a

basit bi soru ama benim iin zor. Araştırdım ama bulamdım. Sayfa1 de kenarlığı olmayan hücre içeriğini silen kod lazım. teşekkürler

 

[Korhan Ayhan]

Merhaba,

Makro kaydet yöntemi ile hücre içeriğini silen kodu rahatlıkla elde edebilirsiniz.

Sheets("Sayfa1").Range("A1").ClearContents

 

[yelgecak]

Merhaba,

Makro kaydet yöntemi ile hücre içeriğini silen kodu rahatlıkla elde edebilirsiniz.

Sheets("Sayfa1").Range("A1").ClearContents

hemen deniyorum hocam teşekkürler

 

[yelgecak]

hocam yanlış anlamışsınız veya yanlış anlatmışım. Kenarlık olan hücrelerin içeriği kalacak, kenarlığı olmayan hücrelerin içeriği temizlenecek.

 

[Murat OSMA]

Dosyanızı ekleyin...

 

[Korhan Ayhan]

Merhaba,

Pardon sorunuzu yanlış yorumlamışım.

Aşağıdaki kodu deneyin. Hücre aralığını kendinize göre düzenleyiniz.

Option Explicit
 
Sub KENARLIĞI_OLMAYAN_HÜCRELERİ_TEMİZLE()
    Dim Veri As Range
    
    For Each Veri In Sheets("Sayfa1").Range("A1:D100")
        If Veri.Borders(xlEdgeLeft).LineStyle = -4142 And _
        Veri.Borders(xlEdgeTop).LineStyle = -4142 And _
        Veri.Borders(xlEdgeBottom).LineStyle = -4142 And _
        Veri.Borders(xlEdgeRight).LineStyle = -4142 Then
            Veri.Value = ""
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[yelgecak]

hocam ramazandan dolayı geceleri çalıştığım için girme fırsatım olmadı. Şimdi deniyorum hocam çok teşekkürler