Makro Kayıt ile oluşan formülleri gizleme

[walabi]

Üstadlar ve forum sakinleri merhaba,

Şöylesi bir sorum olacak.

Makro kayıt yöntemi ile vba da oluşturduğumuz kodları nasıl gizleyebiliriz

Örneğin,

=SAYIYAÇEVİR(SOLDAN(A2;3))
şeklindeki bir formül makro kayıt ile şunu vermekte,

Range("M2").Select
ActiveCell.FormulaR1C1 = "=VALUE(LEFT(RC[-12],3))"

Ben de burdan çıkan sonucu görmek istiyorum sadece, formülün görünmesini istemiyorum, nasıl yapabilirim.

 

[Mustafa MUTLU]

ActiveCell.FormulaR1C1 = "=VALUE(LEFT(RC[-12],3))"
Formülün altına
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1
Bu kodu ekleyin. Formülü değil sonucu görürsünüz.

 

[walabi]

Mustafa Bey cevap için teşekkürler,

yalnız benim aradığım değil, denedim ama sonuç alamadım, daha önce yine forumdan şöylesi bir durum hatırlamaktayım.

VBA tarafında ilgili kodun öncesine ve sonrasına bir standart bir uzantı yazılmaktaydı. Ancak konuya tam hakim olmadığım çıkaramadım.

örneğin with ... end with gibi bir yazım diyebilirim.

 

[Emir Hüseyin Çoban]

. . .

Range("M2").Select
ActiveCell.FormulaR1C1 = "=VALUE(LEFT(RC[-12],3))"
[COLOR="DarkRed"]ActiveCell.Value = ActiveCell.Value[/COLOR]

Bkz: http://www.excel.web.tr/f60/formulleri-makro-ile-deoere-cevirme-uygulamasy-t118352.html
. . .

 

[walabi]

Hüseyin Bey cevabınız için teşekkürler,

Farklı konu açmak istemedim basit bir uygulama gerekli, bu sebeple burdan yazmak istedim.

Örneğin A-M sütunları arasında sayısı belli olmayan satırlarım var, M sütunun başlık satırı hariç hücreleri ise formülden gelen "Sil" ya da "" içermekte. Sil olarak görünen hücreleri makro ile nasıl sildirebilirim. Sil içeren hücrelerin olduğu satırlar silinecek yani.

Bir uygulama buldum ama uzun çalışmakta,

Teşekkürler,

 

[Emir Hüseyin Çoban]

Hüseyin Bey cevabınız için teşekkürler,

Farklı konu açmak istemedim basit bir uygulama gerekli, bu sebeple burdan yazmak istedim.

Örneğin A-M sütunları arasında sayısı belli olmayan satırlarım var, M sütunun başlık satırı hariç hücreleri ise formülden gelen "Sil" ya da "" içermekte. Sil olarak görünen hücreleri makro ile nasıl sildirebilirim. Sil içeren hücrelerin olduğu satırlar silinecek yani.

Bir uygulama buldum ama uzun çalışmakta,

Teşekkürler,

. . .

Forumda benzer örnekler var...

Sub kod()
    son = Cells(Rows.Count, "M").End(3).Row
    For i = son To 2 Step -1
        If Cells(i, "M") = "Sil" Then Rows(i).Delete Shift:=xlUp
    Next i
End Sub

. . .