DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
sayın yurttas
formülü aktif yapıp enter yaptıktan sonra değer 10 iken 1 oluyor. bunun sebebi nedir?
Sorunumu anladım yurttaş bey .formülü ctrl+shift+enter ile çalışacak. peki ben tarihleride formülde vermek istersem. tarih(yıl,ay;gün) diye değiştirirdim formülde ama yanıt alamadım
=TOPLA(EĞER((KAÇINCI(DOLAYLI("D"&KAÇINCI(TARİH(2012;6;1);A4:A100)&""&KAÇINCI(TARİH(2012;6;30);A4:A100));DOLAYLI("D"&KAÇINCI(TARİH(2012;6;1);A4:A100)&"
"&KAÇINCI(TARİH(2012;6;30);A4:A100));0))>=
(SATIR(DOLAYLI("D"&KAÇINCI(TARİH(2012;6;1);A4:A100)&""&KAÇINCI(TARİH(2012;6;30);A4:A100)))-
(MİN(SATIR(DOLAYLI("D"&KAÇINCI(TARİH(2012;6;1);A4:A100)&""&KAÇINCI(TARİH(2012;6;30);A4:A100))))-1))=DOĞRU;1;0))
yok sizin örneğiniz bana son derece uyumlu farkı bile yok. sadece tarihleri formül içinde almak istiyorum
yardımlarınız için minnettarım....
--"01.01.2012"
0+"01.01.2012"
1*"01.01.2012"
niye kimse yardım etmiyor arkadaşlar konum güncel......
Application.ScreenUpdating = False
Columns("C:E").ClearContents
i = 0
Set n = CreateObject("Scripting.Dictionary")
For Each x In Range(Cells(1, 3), Cells(Columns.Count, 3))
i = i + 1
Cells(i, 3).Value = Val(Format(Cells(i, 1).Value, "mm")) & Cells(i, 2).Value
If x.Value <> "" Then
If Not n.exists(x.Value) Then
n.Add x.Value, Nothing
r = r + 1
Cells(r, 4).Value = Cells(x.Row, 1).Value
Cells(r, 5).Value = Cells(x.Row, 2).Value
End If
End If
If i = Cells(Rows.Count, "A").End(3).Row Then
Columns("C").ClearContents
Application.ScreenUpdating = True
MsgBox "işlem tamam"
Exit Sub
End If
Next x
End Sub