araç giriş saatleri...

[karakayalı]

belirtilen aralıkta araçların önce yada sonra giriş yaptığını bulmak istiyorum....dosya ektedir...kolay gelsin

 

[mustafaine1]

D15 icin olan kodu yaziyorum asagi yukari suruklersiniz.

=IF(COUNTIF(A:A,A15)=1,"",IF(AND(COUNTIF($A$1:A14,A15)>0,COUNTIF(A16:$A$65536,A15)>0),"ALTUST",IF(COUNTIF($A$1:A14,A15)>0,"USTTE",IF(COUNTIF(A16:$A$65536,A15)>0,"ALTTA",""))))

 

[karakayalı]

arkadaşlar yazılan kodu çalııştıramadım...bunu makro ile yapmamız mümkün mü....kolay gelsin...

 

[İhsan Tank]

arkadaşlar yazılan kodu çalııştıramadım...bunu makro ile yapmamız mümkün mü....kolay gelsin...

ben sorunuzu anlamadım ama Syn: Mustafaine Arkadaşımızın verdiği formülü Türkçe'ye çevirdim.

=EĞER(EĞERSAY($A:$A;$A15)=1;"";EĞER(VE(EĞERSAY($A$1:$A$14;$A15)>0;
EĞERSAY($A$16:$A$65536;$A15)>0);"ALTUST";EĞER(EĞERSAY($A$1:$A$14;$A15)>0;"USTTE"
;EĞER(EĞERSAY($A16:$A$65536;$A15)>0;"ALTTA";""))))

 

[karakayalı]

tşk.ler ihsan tank bey...yazdığınız formülüm makrosu...yardımcı olacak arkadaşlara tşk.ler

 

[İhsan Tank]

tşk.ler ihsan tank bey...yazdığınız formülüm makrosu...yardımcı olacak arkadaşlara tşk.ler

merhaba
boş bir module kopyalarak deneyiniz

Option Explicit
Sub açıklamarı_yaz()
Dim ts, kaplan
kaplan = MsgBox("Bilgileri Çıkartıyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Range("D:D").ClearContents
For ts = 15 To Cells(65536, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A:A"), Cells(ts, "A")) = 1 Then
Cells(ts, "D") = ""
ElseIf WorksheetFunction.CountIf(Range("A1:A14"), Cells(ts, "A")) > 0 _
And WorksheetFunction.CountIf(Range("A16:A65536"), Cells(ts, "A")) > 0 Then
Cells(ts, "D") = "Alt-Üst"
ElseIf WorksheetFunction.CountIf(Range("A1:A14"), Cells(ts, "A")) > 0 Then
Cells(ts, "D") = "Üstte"
ElseIf WorksheetFunction.CountIf(Range("A16:A65536"), Cells(ts, "A")) > 0 Then
Cells(ts, "D") = "Altta"
Else
Cells(ts, "D") = ""
End If
Next
MsgBox "Bilgiler Çıkartıldı", vbInformation, "Bitiş"
End Sub

 

[karakayalı]

syn ihsan tank bey emeğiniz için tşk.ler...elinize sağlık...

 

[İhsan Tank]

syn ihsan tank bey emeğiniz için tşk.ler...elinize sağlık...

rica ederim
:yazici: