[ÇÖZÜLDÜ] Formül İçinde Deger Arama

[Trilenium]

Merhabalar,

Forumda arama yaptım ama FOrmül içinde arama ile birşeye rast gelemedim,yada arama TAG ını yanlış kullandım..

Yapamadıgım şey şu ,

A:A kolonunun tüm satırlarında formüllerim var..Ben şu formülü arıyorum

Deger * A1 bunu buldugu an B kolonundaki ilgili satırına X işareti koysun..

Hangi Formülün icinde A1 geciyorsa bu satıra X koyucak olay bu.

teşekkürler

 

[Trilenium]

Sanırım bu işlemin cevabı bulunmamakta.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub FORMÜL_İÇİNDE_DEĞER_ARA()
    Dim X As Long
    For X = 2 To [A65536].End(3).Row
    If Cells(X, 1).Formula Like "*A1*" Then Cells(X, 2) = "X"
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Yada alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Sub FORMÜL_İÇİNDE_DEĞER_ARA()
    Dim X As Long, Formül As String
    For X = 2 To [A65536].End(3).Row
    Formül = Cells(X, 1).Formula
    If Left(Formül, 4) = "=A1*" Then Cells(X, 2) = "X"
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Ömer]

.....................

 

[Trilenium]

1.Verilen VBA kodu geçerli oldu.Teşekkür ederim.Konuyu Çözümlenenlere gönderebilirsiniz. ( Bu uygulamayı VBTurkte 1 sene önce şahsım adına fikirlerimle ortaklaşa yapmıştık. Buradada aynı uygulamayı görmek çok güzel birşey.Tebrik ederim sizleri.)
herkese kolay gelsin

 

[uzmanamele]

merhaba

1.Verilen VBA kodu geçerli oldu.Teşekkür ederim.Konuyu Çözümlenenlere gönderebilirsiniz. ( Bu uygulamayı VBTurkte 1 sene önce şahsım adına fikirlerimle ortaklaşa yapmıştık. Buradada aynı uygulamayı görmek çok güzel birşey.Tebrik ederim sizleri.)
herkese kolay gelsin

çaktırmadan sınava alınmışız...
neden acaba?

 

[Trilenium]

Estagfurullah..Kimseyi sınava cekmedim...Exceli yeterince bilirim ve kullanırım..Asıl İşim Vb.60 - SQL dir. Burada yeni gördüm Çözümlendi uygulamasınıda..Belkide çok önceleri başlamıştır bilmiyorum. Ben vbturkte 2007 de başlattıgımız uygulamayı aynı sekilde burada görünce tebrik ettim sadece.. kötümü ettim yoksa