Tüm Sütuna Formül Uygulama

[muratozmenler]

Sub uygula()
On Error Resume Next
Dim s1 As Worksheet, Last_Row As Long, Avg_Formula As String
Set s1 = Sheets("Rapor")
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Range("bg2:bj1048576").Clear
Last_Row = s1.Cells(s1.Rows.Count, "ba").End(3).Row
Avg_Formula = "=IF(ISERROR(INDEX(Yıl!b:b,MATCH(Rapor!ba2&Rapor!bb2-1,Yıl!a:a&Yıl!c:c,0))),""0"",INDEX(Yıl!b:b,MATCH(Rapor!ba2&Rapor!bb2-1,Yıl!a:a&Yıl!c:c,0)))"
Avg_Formula = Replace(Avg_Formula, 1048576, Last_Row)

s1.Range("Bg2").FormulaArray = Avg_Formula
s1.Range("BG2:BG" & Last_Row).FillDown
s1.Range("BG2:BG" & Last_Row).Value = s1.Range("BG2:BG" & Last_Row).Value

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Merhaba;

Şöyle bir sorunum var. Satırda birden fazla veri varsa sorunsuz şekilde sonuçlar gelmektedir ama tek bir veri varsa sonuca üst satırın sadece başlığını getiriyor sonuç gelmiyor. Sorunumun olduğu alanı belirttim. Bu kısmı düzenleyemedim.

Kırmızıyla belirttiğim yere bu kodu yazınca da tüm sütuna ilk sütundaki değeri veriyor

With s2.Range("bg2:bg" & Last_Row)
.FormulaArray = Avg_Formula
.Value = .Value
End With

Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Dosyanızı görüp üzerinde çözmek gerek.
Dosyanızı dosya.tc gibi bir siteye yükleyebilirsiniz.