Fonksiyon formülünün makro ile yazılması

[M.ACAR]

İyi akşamlar;
Ekli dosyada J sütununda bulunan =EĞER($B8="","",ALTTOPLAM(9,$H$8:H8)-ALTTOPLAM(9,$I$8:I8))
Formülünün B sütununa veri girildikçe altalta yazılmasını nasıl bir kod ile yapabilirim.

 

[Merhum İdris SERDAR]

İyi akşamlar;
Ekli dosyada J sütununda bulunan =EĞER($B8="","",ALTTOPLAM(9,$H$8:H8)-ALTTOPLAM(9,$I$8:I8))
Formülünün B sütununa veri girildikçe altalta yazılmasını nasıl bir kod ile yapabilirim.

.

Dosyanız ekte.

Konu için bakınız:


Data/List-Veri/Listele

.

 

[M.ACAR]

Sayın:Yurttaş hocam öncelikle verdiğiniz yanıt ve konu açıklaması için teşekkür ederim,Fakat
benim istediğim b sütunu boş ise J sütununda formül olmayacak,B sütununa firma ismini yazdığım zaman kod çalışacak =EĞER($B8="","",ALTTOPLAM(9,$H$8:H8)-ALTTOPLAM(9,$I$8:I8)) Bu formülü yazıcak,

 

[İhsan Tank]

Sayın:Yurttaş hocam öncelikle verdiğiniz yanıt ve konu açıklaması için teşekkür ederim,Fakat
benim istediğim b sütunu boş ise J sütununda formül olmayacak,B sütununa firma ismini yazdığım zaman kod çalışacak =EĞER($B8="","",ALTTOPLAM(9,$H$8:H8)-ALTTOPLAM(9,$I$8:I8)) Bu formülü yazıcak,

merhaba
alternatif olsun. Yurttaş Hocam'a Teşekkür ederim gene bizi aydınlatıcı bilgilerini paylaşmış
bir module bu kodu yazarak dener misiniz

Dim sat As Long
Sub formülcükler()
sat = Cells(65536, "B").End(xlUp).Row
Range("J8:J" & sat).ClearContents
Range("B8").Select
Range("J8:J" & sat) = "=IF(B8="""","""",SUBTOTAL(9,$H$8:H8)-SUBTOTAL(9,$I$8:I8))"
MsgBox "Formüller Eklendi", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("B8:B65536")) Is Nothing Then Exit Sub
    If Target = "" Then
        Cells(Target, "J") = ""
    Else
        Cells(Target, "J") = "=IF(RC2="""","""",SUBTOTAL(9,R8C8:RC[-2])-SUBTOTAL(9,R8C9:RC[-1]))"
    End If
Son:
End Sub

 

[M.ACAR]

Sayın : Korhan bey ve İhsan bey çok teşekkür ederim,fakat ben kodu çalıştıramadım,dosyayı ekledim,dosya üzerinde uygulayabilirseniz çok iyi olacak

 

[İhsan Tank]

Sayın : Korhan bey ve İhsan bey çok teşekkür ederim,fakat ben kodu çalıştıramadım,dosyayı ekledim,dosya üzerinde uygulayabilirseniz çok iyi olacak

ekleri inceler misiniz