formülsüz hücreleri sil

[polis-53]

merhaba arkadaşlar ekte gönderdiğim dosyadaki verileri başka dosyalardan kodla alıyorum ekteki dosyada bazı satır ve sütünlar formüllüdür benim istediğim formüllü

 

[AS3434]

Sayın polis-53


Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Denemeden önce mutlaka dosyanızın bir yedeğini alın.



.

Sub FormulsuzSil()
On Error GoTo son
[b2:s65].SpecialCells(xlCellTypeConstants, 23) = vbNullString
son:
End Sub

 

[polis-53]

Sayın as3434 özür dileyerek metin olanlarıda silmesin kusura bakma 1 mesajımda unutmuşum yardımsı olursanız sevinirim.

 

[AS3434]

Sayın polis-53

Kodu şöyle değiştirin..Denemeden önce mutlaka dosyanızın bir yedeğini alın.




.

Sub RakamSil()
On Error GoTo son
[b2:s65].SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
son:
End Sub

.

 

[baydeniro]

Çok güzel bir kod, çok teşekkürler.

 

[polis-53]

Gerçekten harikasın ellerin dert görmesin