Eger ya da makro ile ilgili soru?

[blueman]

Merhaba arkadaslar ekte gönderdigim dosyada bir hucredeki tarihe göre baska bir topladan deger alinmasi ile ilgili bir sorum var. Yardimlariniz icin simdiden tesekkurler.

 

[HIDROKINON]

eğer yanlış anlamadıysam

=ETOPLA(K14:K24;G21;L14:L24)

 

[blueman]

Cevabiniz icin tesekkurler ama yanlis anlasilma olmus sanirim söyle söyleyim örnegin A5 deki tarih c5 ile ayni ise d5 yi yaz eger c6 ya esitse d6 yi yaz. bu sekilde ben =EÐER(G21=K14;L14;EÐER(G21=K15;L15)) yaptim ama bu formul belli bi sayidan sonra sanirim islevini yerine getirmiyor.

 

[HIDROKINON]

O zaman ARA fonksiyonu ile kriterinize göre K21:K24 aralığında uyan varsa karşı sütundan(L14:L24) bir değer vermesi için;

=ARA(G21;K14:K24;L14:L24) formülünü kullanın.

ETOPLA ile ARA fonksiyonu arasındaki fark, önceki kriterinize uyan değerleri toplayarak, ikincisi kriterinize uyan bulduğu ilk değeri verir.

 

[blueman]

O zaman ARA fonksiyonu ile kriterinize göre K21:K24 aralığında uyan varsa karşı sütundan(L14:L24) bir değer vermesi için;

=ARA(G21;K14:K24;L14:L24) formülünü kullanın.

ETOPLA ile ARA fonksiyonu arasındaki fark, önceki kriterinize uyan değerleri toplayarak, ikincisi kriterinize uyan bulduğu ilk değeri verir.

Tesekkur ederim. Sorunum cözuldu.

 

[muzaffer605]

Function DUSEYARASAYFALAR(Look_Value As Variant, Tble_Array As Range, _
Col_num As Integer, Optional Range_look As Boolean)
Dim wSheet As Worksheet
Dim vFound

On Error Resume Next

For Each wSheet In ActiveWorkbook.Worksheets
With wSheet
Set Tble_Array = .Range(Tble_Array.Address)
vFound = WorksheetFunction.VLookup _
(Look_Value, Tble_Array, _
Col_num, Range_look)
End With
If Not IsEmpty(vFound) Then Exit For
Next wSheet

Set Tble_Array = Nothing
DUSEYARASAYFALAR = vFound

End Function