formul oluşturma

[senerozun]

ekteki örneğin: BU SOLDAKİ ÖRNEKTE C SUTUNUNDA FORMÜLLÜ HÜCRELERİN YANINDAKİ D SUTUNUNA "1" YAZDIRMAK İSTİYORUM. BUNUN İÇİN NASIL BİR FORMUL OLUŞTURMAK GEREKİR.

 

[Necdet]

Merhaba,

Kullanıcı tanımlı fonksiyon ile yapılmış dosyayı inceleyebilirsiniz.

Function Formulmu(Dizi As Range)
If Dizi.HasFormula = True Then
    Formulmu = 1
Else
    Formulmu = ""
End If
End Function