- Katılım
- 9 Ocak 2009
- Mesajlar
- 557
- Excel Vers. ve Dili
-
2002 TÜRKÇE
2007 TÜRKÇE
2010 TÜRKÇE
2019 TÜRKÇE
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.
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.