Soru formül sonrası komutları macro ile otomatik silme

[incsoft]

Aşağıdaki gibi formüle benzer formüller formumda bulunan D151,D152,D153,D154,D155,D156,E151,E152,E153,E154,E155,E156,E158 hücrelerinde mevcuttur ancak bazı durumlarda ister istemez sonuna -1500+500 ya da +1500+1250 vb.. eklentiler yapabilmekteyim. Bunu macrolarla otomatik olarak bu hücrelerdeki formüllerin sonunda bulunan işlemleri nasıl temizletebilirim arkadaşlar?

Mesela aşağıdaki

=TOPLA.ÇARPIM((L3:L12=A151)*(M3:M12))+TOPLA.ÇARPIM((L44:L72=A151)*(M44:M72))+TOPLA.ÇARPIM((L83:L138=A151)*(M83:M138))-1500+500 formülünü

=TOPLA.ÇARPIM((L3:L12=A151)*(M3:M12))+TOPLA.ÇARPIM((L44:L72=A151)*(M44:M72))+TOPLA.ÇARPIM((L83:L138=A151)*(M83:M138)) yapacak

ya da

=TOPLA.ÇARPIM((L3:L12=A151)*(M3:M12))+TOPLA.ÇARPIM((L44:L72=A151)*(M44:M72))+TOPLA.ÇARPIM((L83:L138=A151)*(M83:M138))+1500+1250 formülünü

=TOPLA.ÇARPIM((L3:L12=A151)*(M3:M12))+TOPLA.ÇARPIM((L44:L72=A151)*(M44:M72))+TOPLA.ÇARPIM((L83:L138=A151)*(M83:M138)) yapacak..

 

[incsoft]

Sub formul_hy()
k = InStrRev(Range("D151,D152,D153,D154,D155,D156,E151,E152,E153,E154,E155,E156,E158").Formula, ")")
al = Mid(Range("D151,D152,D153,D154,D155,D156,E151,E152,E153,E154,E155,E156,E158 ").Formula, 1, k)
Range("D151,D152,D153,D154,D155,D156,E151,E152,E153,E154,E155,E156,E158 ").Formula = al
End Sub


bununla çözüm ancak daha seri bir yöntem varsa öğrenebilirim arkadaşlar..

 

[Korhan Ayhan]

Yıllar önce benzer soruyu bende sormuştum.

Formüllerin son kısmına eklenen manuel rakamları silme

Selam arkadaşlar, Excel de oluşturduğum bir tablom var ve bu tabloda "B36:S61" hücre aralığında aşağıdaki gibi (kırmızı renkle belirtilmiş kısmı silmek istiyorum.) çok uzun formüller var. Benim yapmak istediğim formüllerin sonuna eklenen manuel rakamların hepsini makro ile sildirmek ama...

www.excel.web.tr

Eğer formülleriniz sabit ise bu formülleri görünmeyen bir alana yazıp saklayabilirsiniz. Sonra ihtiyacınız olduğunda kopyala yapıştır yöntemiyle ilgili hücrelere tekrar yazdırabilirsiniz.

Ya da manuel değer ekleme işlemini sıklıkla kullanıyorsanız bu işlemi ayrı bir tabloda takip edebilirsiniz. Bu tablodan da ilgili alandaki formüllerinizin sonuna ek yaparak manuel değerleri yönetebilirsiniz. Bu tabloyu boşalttığınızda formüllü hücrelerinizle uğraşmamış olursunuz.

 

[incsoft]

Yıllar önce benzer soruyu bende sormuştum.

Formüllerin son kısmına eklenen manuel rakamları silme

Selam arkadaşlar, Excel de oluşturduğum bir tablom var ve bu tabloda "B36:S61" hücre aralığında aşağıdaki gibi (kırmızı renkle belirtilmiş kısmı silmek istiyorum.) çok uzun formüller var. Benim yapmak istediğim formüllerin sonuna eklenen manuel rakamların hepsini makro ile sildirmek ama...

www.excel.web.tr

Eğer formülleriniz sabit ise bu formülleri görünmeyen bir alana yazıp saklayabilirsiniz. Sonra ihtiyacınız olduğunda kopyala yapıştır yöntemiyle ilgili hücrelere tekrar yazdırabilirsiniz.

Ya da manuel değer ekleme işlemini sıklıkla kullanıyorsanız bu işlemi ayrı bir tabloda takip edebilirsiniz. Bu tablodan da ilgili alandaki formüllerinizin sonuna ek yaparak manuel değerleri yönetebilirsiniz. Bu tabloyu boşalttığınızda formüllü hücrelerinizle uğraşmamış olursunuz.

Sub formul_hyDz()
Dim Hcr As Range
xAralik = "D151,D152,D153,D154,D155,D156,E151,E152,E153,E154,E155,E156,E157"
Dz = Split(xAralik, ",")
For Each Itm In Dz
Set Hcr = Range(Itm)
k = InStrRev(Hcr.Formula, ")")
al = Mid(Hcr.Formula, 1, k)
Hcr.Formula = al
Next Itm
End Sub



buna benzer bir yöntemle yaptım hocam. Teşekkürler..