Formüllü hücreler

[bmutlu966]

Ekteki dosyada bir tablom var ve yazdığım makronun formül bulunan hücrelerde işlem yapmaması gerekiyor. Ekli dosyada yazdığım makro ve açıklama mevcut. Uzman arkadaşların yardımlarını rica ediyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub bol()
 
    Range("F4:O337")[COLOR=black].[/COLOR][COLOR=blue]SpecialCells(xlCellTypeFormulas, 23)[/COLOR].Select
 
    Selection.NumberFormat = "#,##0.000"
 
    For Each fCell In Selection
        fCell.Value = fCell.Value / 5000
    Next fCell
 
End Sub

.

 

[bmutlu966]

Merhaba,

Bu şekilde deneyiniz.

Sub bol()
 
    Range("F4:O337")[COLOR=black].[/COLOR][COLOR=blue]SpecialCells(xlCellTypeFormulas, 23)[/COLOR].Select
 
    Selection.NumberFormat = "#,##0.000"
 
    For Each fCell In Selection
        fCell.Value = fCell.Value / 5000
    Next fCell
 
End Sub

.

Ömer kardeşim, öncelikle ilgin için teşekkürler. Ancak yazdığın kod formüllü hücreleri seçiyor. Tam tersine formüllü hücreleri değil sadece değer olan hücreleri seçmesi gerekiyor.

 

[Ömer]

Ömer kardeşim, öncelikle ilgin için teşekkürler. Ancak yazdığın kod formüllü hücreleri seçiyor. Tam tersine formüllü hücreleri değil sadece değer olan hücreleri seçmesi gerekiyor.

Ters anlamışım, mavi bölümü aşağıdaki kod ile değiştirerek deneyiniz.

SpecialCells(xlCellTypeConstants, 23)

.

 

[bmutlu966]

Şimdi oldu. Çok teşekkürler. Anlayamadığım şey 23 rakamının ne olduğu ?

 

[Ömer]

Şimdi oldu. Çok teşekkürler. Anlayamadığım şey 23 rakamının ne olduğu ?

F5 / Özel ile gelen menüyü incelemenizi tavsiye ederim.

Genel bilgiler için linki inceleyiniz.

http://www.excel.web.tr/f48/specialcells-konusu-t88850.html

Ayrıca özel yapıştır seçeneklerindeki "böl,topla,çarp,çıkar" seçeneklerini kullanarak yaptığınız işlemi döngüye girmeden çok daha hızlı yapabilirsiniz.

.

 

[bmutlu966]

Sayenizde bu konuda bilgi sahibi oldum. Teşekkürler.