Seç ve Yuvarla

[Leoncio]

Merhaba;

Arkadaşlar ekte örneği bulunan dosyada seçimi yapılmış alandaki formülleri yuvarlayabiliyorum. Benim istediğim ise şayet formül yuvarlanmış ise işlem yapmasın. Yani 2 kez üst üste yuvarlamasın. Kodlarda ne gibi düzeltme ile yapabilirim.

Not: Formüller standart değil. Örnek ektedir.

 

[Ferhat Pazarçevirdi]

Kodunuzu şu şekilde revize ediniz. Değişiklikler Kırmızı renk ile gösterilmiştir.

Sub virgüldensonrası_tamyuvarla()
Dim Item As Range
For Each Item In Selection
    If Item.HasFormula Then 'Hücre içeriği fomul mü?
[COLOR=red]        If InStr(1, Item.Formula, "ROUND", vbTextCompare) <> 2 Then
[/COLOR]            Item.FormulaR1C1 = "=ROUND((" & Right(Item.FormulaR1C1, Len(Item.FormulaR1C1) - 1) & "),0)"
[COLOR=green]            ' Baştaki eşittir kaldırılır ve Yuvarla formulu işlenir[/COLOR]
[COLOR=red]        End If[/COLOR]
    End If
Next
End Sub

 

[Leoncio]

Teşekkürler, sağolun. Yapmak istediğim buydu

 

[waytooraider]

Fomülsüz sayı ise onuda bu şekilde yuvarlayabilirmiyiz.

İstediğim şey random seçili hücrelerdeki sayıları yuvarlama yapacak bir makro.

Saygılarımla.