Bütün Formüller Makroya Dönüştürülebilir mi?

[Korhan Ayhan]

Bir görsel paylaşmıştım. O listedeki ikinci seçeneği deneyiniz.

 

[izcik]

Bir görsel paylaşmıştım. O listedeki ikinci seçeneği deneyiniz.

İkinci seçenek, anlaşılmıştır uzmanım. Yapamazsam size arz edeceğim.

 

[izcik]

Bir görsel paylaşmıştım. O listedeki ikinci seçeneği deneyiniz.

Uzmanım saatlerdir uğraşıyorum
FormulaArray yapıp dizi formülünü yapıştırdım. Çift tırnakları iki katına çıkardım. Noktalı virgülleri virgül yaptım. Formülü döküyor ama netice yok. Demek ki bir uzman eli değmesi gerekiyor.
Rica etsem örneklerden birisini çalışır dizili hale getirir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Sub Formulu_Makro_Ile_Hucreye_Yaz()
    Dim Son As Long
    Son = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
    With Sheets("Sayfa1").Range("B2")
        .FormulaArray = "=INDEX($A$2:$A$2000,MATCH(0,COUNTIF($B$1:B1,$A$2:$A$2000),0),0)"
        .Resize(Son - 1).FillDown
        '.Value = .Value 'Bu satırı aktif yaparsanız formüller değere dönüşür. Böylece dosyanız daha hızlı tepki verir.
    End With
End Sub

 

[izcik]

Deneyiniz.

Sub Formulu_Makro_Ile_Hucreye_Yaz()
    Dim Son As Long
    Son = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
    With Sheets("Sayfa1").Range("B2")
        .FormulaArray = "=INDEX($A$2:$A$2000,MATCH(0,COUNTIF($B$1:B1,$A$2:$A$2000),0),0)"
        .Resize(Son - 1).FillDown
        '.Value = .Value 'Bu satırı aktif yaparsanız formüller değere dönüşür. Böylece dosyanız daha hızlı tepki verir.
    End With
End Sub

Korhan uzmanım merhaba
Value satırını aktif hale getirince sadece en üst (B2) hücresi değere dönüştürüyor
diğerleri yine formül olarak aktarılıyor.
Tamamını değere dönüşmesini sağlayacak şekilde düzeltebilir misiniz

 

[Korhan Ayhan]

Deneyiniz.

Sub Formulu_Makro_Ile_Hucreye_Yaz()
    Dim Son As Long
    Son = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
    With Sheets("Sayfa1").Range("B2")
        .FormulaArray = "=INDEX($A$2:$A$2000,MATCH(0,COUNTIF($B$1:B1,$A$2:$A$2000),0),0)"
        .Resize(Son - 1).FillDown
        .Resize(Son - 1).Value = .Resize(Son - 1).Value 'Bu satırı aktif yaparsanız formüller değere dönüşür. Böylece dosyanız daha hızlı tepki verir.
    End With
End Sub

 

[zaruri]

Değerli üstatlarım, Uzun bir ayrılıktan sonra sizlerden bir ricam olacak.
Nokta vuruşlu yazıcıdan, sürekli formlardan çıkıp A5 e senet yazdırmayı düşünüyoruz.
Yıllar önce yaptığım şablonda bazı hatalar gördüm ve sizlerden yardım istemekteyim.

Örnek çalışmada; 4'cü satır B,C,D ye girdiğim veriler Formüllerle düzenleniyor, elemanlar kullanacağı için bu formüller zarar görebilir bunları nasıl makro olarak kullanabiliriz.

Ayrıca ; Bir numaralı ödeme ile ödeme vadesini aynı tarih yapamadım.

Yani; Yazılan "Ödeme vadesi" 1. taksit olsun istiyoruz, bir ay sonrasını yazmasın.

İlginize şimdiden teşekkür eder, İlgi ve alakalarınızı beklerim.