formül içinde makro çalıştırma

[ikikan]

formül içinde makro çalıştırma mümkünmüdür


Varsayılan formül içinde makro çalıştırma
=eğer(a1=gizle;(göster isimli makroyu çalıştır);(gizle isimli makroyu çalıştır)))

 

[accountant80]

Bunu makro ile de yapabilirsiniz.

if range("a1").value="göster" then application.run "göster"
if range("a1").value="gizle" then application.run "gizle"

 

[ikikan]

Bunu makro ile de yapabilirsiniz.

if range("a1").value="göster" then application.run "göster"
if range("a1").value="gizle" then application.run "gizle"

denedim ama yapmak istediğim

iki makro yazıp biri göster ve kenarlık çizgisi koy olcak
digeri gizle ve kenarlıkları sil olcak
fakat sorun şu ben bunu formül ile çalıştırmalı ve ab10:ab1500 satır arasında yapmak zorundayım ?

 

[ikikan]

anlaşılan böyle bir kod yazılamıyor peki arkadaşlar aşadaki kodla gizle yazan hücre satırlarını gizliye biliyorum biliyorum bu koda ilaveten gizle yazan gizlensin göster yazan kenarlık olmasın herikiside yoksa kenarlık olsun diye bir kod yazıla bilirmi ?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Columns(2).EntireRow.Hidden = False
Set aralik = Range("ab10:ad" & [ab1500:ad1500].End(3).Row)
Set Bul = aralik.Find("Gizle", LookIn:=xlValues, lookat:=xlWhole)
If Not Bul Is Nothing Then
Adres = Bul.Address
Do
Set Bul = aralik.FindNext(Bul)
Bul.EntireRow.Hidden = True
Loop While Not Bul Is Nothing And Bul.Address <> Adres
'MsgBox "İŞLEM BİTTİ.", vbInformation, "PEGEM MÜHENDİSLİK"
End If
End Sub