Formülleri makroya çevirme

[mukoli]

Merhabalar ekteki dosyada formüller bulunmaktadır. Makroya çevirmwk isityorum . bu haliyle yavaş çalıştığı için yardımlarınızu bekliyorum. iyi günler dilerim teşekkürler

 

[Korhan Ayhan]

Merhaba,

Belki işinize yarayabilir. İnceleyiniz.

https://www.excel.web.tr/threads/formuelleri-makro-ile-degere-cevirme-uygulamasi.118352/

 

[mukoli]

Hocam az bi çalışma yapsanız örnek dosyam üzerinden bende ona göre ilerlerim belki

 

[Korhan Ayhan]

Paylaştığım link yetersiz gelirse aşağıdaki linkten benzer konulara erişim sağlayabilirsiniz.

Arama Sonuçları

 

[mukoli]

Hocam böyle yaptım ama nasıl kurgulayacagımı bilmiyorum yani yeni kayıt eklerken nasıl olcak sayfaya girip çıkmammı gerekcek verileri görmem için özet sayfasında

Private Sub Worksheet_Activate()

    With Sheets("PERSONEL").Range("O3:AS" & Sheets("PERSONEL").Cells(Sheets("PERSONEL").Rows.Count, 1).End(3).Row)
        .Formula = "=IFERROR(IF(DATE(R2C,MONTH(TODAY()),DAY(TODAY()))>TODAY(),"""",LOOKUP(DATE(R2C,MONTH(TODAY()),DAY(TODAY()))-RC5,{0,364,2189,5475},{0,14,20,26})),"""")"
        .Value = .Value
    End With
    End Sub

 

[mukoli]

Birde hocam bunu yaptıgımda alttaki gibi oluyor baktıgımda hesaplanmış sütun formülü tutarsız gibi uyarı çıkıyor . Yanlışmı yaptım acaba

 

[mukoli]

Yardım edecek varmıdır çözemedim halen

 

[mukoli]

?

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki formülü kullanın.

Sub test()
    With Sheets("PERSONEL").Range("N3:AR" & Sheets("PERSONEL").Cells(Rows.Count, "A").End(3).Row)
        .Formula = "=IFERROR(IF(DATE(N$2,MONTH(TODAY()),DAY(TODAY()))>TODAY(),"""",LOOKUP(DATE(N$2,MONTH(TODAY()),DAY(TODAY()))-$E3,{0,364,2189,5475},{0,14,20,26})),"""")"
        .Value = .Value
    End With
End Sub

Formül A sütunundaki veri sayısı kadar yerde hesaplama yapıyor örnekteki dosyada A sütunu 132. satırda son buluyor ama diğer sütunlarda formüllü veriler var. Oradaki formüller ile koddaki formül birbiri ile uyuşmadığı için böyle bir uyarı veriyor. İsterseniz uyarıyı yok sayabilirsiniz yada A sütunu veri olan son satıra kadar çoğaltın ki tüm satırlara yeni formül eklenmiş olsun.

Örnekte A sütunu 200. satıra kadar devam etmesi gerekiyor.

 

[mukoli]

Teşekkür ederim hocam peki formüller sürekli aktif çalışıyor dosyayı ağrılaştıryor başka çözümü yokmudur

 

[Muzaffer Ali]

Yukarıdaki koddur formül değil.
Kodu çalıştırdığınızda belirtilen alanda sadece formül sonuçları yazar, formüller yazmaz.
Ama sizin başka yerlerde farklı formüller var onlar da kod ile yapılsa hızlanır.

 

[mukoli]

İşte hocam nasıl yapcagmı kurgulayamıyorm

 

[Muzaffer Ali]

Deneyin.

Sub Test()
    Dim SatirSay As Long
    With Sheets("PERSONEL")
        SatirSay = .Cells(Rows.Count, "A").End(3).Row
        .Range("F3:F" & SatirSay).Formula = "=YEAR(TODAY()-E3)-1900&"" YIL ""&MONTH(TODAY()-E3)&"" AY ""&DAY(TODAY()-E3)&"" GÜN """
        .Range("G3:G" & SatirSay).Formula = "=HLOOKUP(yılno,PERSONEL!$N$1:$AR$200,ROWS($F$1:F3),FALSE)"
        .Range("H3:H" & SatirSay).Formula = "=SUM(N3:AR3)"
        .Range("I3:I" & SatirSay).Formula = "=IFERROR(SUMPRODUCT((kayıtsicil=$B3)*(kayıttür=""YILLIK İZİN"")*(kayıtgün)),""0"")"
        .Range("J3:J" & SatirSay).Formula = "=IFERROR(SUMPRODUCT((kayıtsicil=$B3)*(kayıttür=""Borçlandırma"")*(kayıtgün)),""0"")"
        .Range("K3:K" & SatirSay).Formula = "=IFERROR(SUMPRODUCT((kayıtsicil=$B3)*(kayıttür=""Borçtan Düşme"")*(kayıtgün)),""0"")"
        .Range("L3:L" & SatirSay).Formula = "=[@[Toplam" & Chr(10) & "Borç]]-[@[Borçtan" & Chr(10) & "Düşen]]"
        .Range("M3:M" & SatirSay).Formula = "=H3-I3-[@[Borçtan" & Chr(10) & "Düşen]]"
        .Range("N3:AR" & SatirSay).Formula = "=IFERROR(IF(DATE(N$2,MONTH(TODAY()),DAY(TODAY()))>TODAY(),"""",LOOKUP(DATE(N$2,MONTH(TODAY()),DAY(TODAY()))-$E3,{0,364,2189,5475},{0,14,20,26})),"""")"
        .Range("F3:AR" & SatirSay).Value = .Value
    End With
    MsgBox "Tamamlandı."
End Sub

 

[mukoli]

Teşekkürler hocam deniyorum

 

[mukoli]

istediğim gibi oldu hocam çokk teşekkür ederim . İyi akşamlar dilerim

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[mukoli]

Merhaba muzaffer hocam kodun .Range("F3:AR" & SatirSay).Value = .Value bölümünde hata vermektedir. sebebi nedir acaba ilk denediğimde sıkıntı yoktu ama

 

[Muzaffer Ali]

Merhaba.
Yanlışlıkla kodlarda bir değişiklik yapmış olabilir misiniz?
Yukarıdaki kodları yeniden kopyalayıp deneyin.
Yine hata verirse ne hatası verdiğini de söyleyin.

 

[Ziynettin]

Formuller, ad tanımlar ve koşullu biçimler olmadan yapılan çalışma.

 

[mukoli]

Formuller, ad tanımlar ve koşullu biçimler olmadan yapılan çalışma.

Hocam bu mükemmel olmuş gerçekten cok farklı bir çalışma . Orjianl dosyama uyarlama şansınız varmıdır acaba ben yapamam bunu çünkü. Userform üzerinden yeni personel kayıt yapıyorum . Yeni izin girişinide userform üzerinden izin kayıt üzerinden yapıyorum . Eğer bu yaptgınız çalışma bu dosya üzerinden mükemmel olucak