Aylık döküm almak

[SERKANYAMAN]

Arkadaşlar ekli dosyada aylık detay almak istiyorum

hangi sürücü hangi tarihte nereye gitmiş.

Bir türlü formül yazamandım

yardımcı olabilirmisiniz.

şimdiden teşekkür ederim

 

[asi_kral]

Arkadaşlar ekli dosyada aylık detay almak istiyorum

hangi sürücü hangi tarihte nereye gitmiş.

Bir türlü formül yazamandım

yardımcı olabilirmisiniz.

şimdiden teşekkür ederim

Merhaba
B2 hücresine

=EĞER(EHATALIYSA(İNDİS(Sayfa1!$E$2:$E$100;TOPLA.ÇARPIM(KAÇINCI($A2&B$1;
Sayfa1!$C$2:$C$100&Sayfa1!$A$2:$A$100;0));1));"";İNDİS(Sayfa1!$E$2:$E$100;
TOPLA.ÇARPIM(KAÇINCI($A2&B$1;Sayfa1!$C$2:$C$100&Sayfa1!$A$2:$A$100;0));1))

Bu formülü yazın aşağıya ve sağ'a doğru çoğaltın.
Dosyanız Ekte.

 

[SERKANYAMAN]

Emeğine sağlık kardeş ellerin dert görmesin

 

[SERKANYAMAN]

Yanlız bir aksilik var sürücü 2 olarak gittikleri görünmüyor

 

[Ömer]

Yanlız bir aksilik var sürücü 2 olarak gittikleri görünmüyor

Merhaba,

B2 hücresine yazıp dizi formülüne (girişini ctrl shift enter tuş kombinasyonu ile yapın ) çevirdikten sonra yana ve alt hücrelere kopyalayın.

=EĞER(TOPLA((Sayfa1!$A$2:$A$10=B$1)*(Sayfa1!$C$2:$D$10=$A2))=0;""
 ;İNDİS(Sayfa1!$E$2:$E$10;KAÇINCI(1;DÇARP((Sayfa1!$A$2:$A$10=B$1)*(Sayfa1!$C$2
  :$D$10=$A2);{1\1});0)))

.

 

[ZorBey_]

Aylık döküm almak1.part1

Merhaba Serkan Bey

Yaptığım Çalışma Umarım İşinize Yarar

 

[ZorBey_]

Aylık döküm almak1.part2

İkinci Parça

 

[ZorBey_]

Resimleri Unutmuşum

 

[SERKANYAMAN]

Sanırım Sorunu Çözdüm Yardımcı olan arkadaşlara çok teşekkürler ederim. elleriniz dert görmesin

 

[mcetinkaya65]

Sayın asi kral;
Daha önce gönderdiğim soruya bir nebze çözüm bulduk.Ama aynı isimli personele 2. 3. 4 . .... kez izin verilirse işlem gerçekleş miyor.Yukardaki formüller le olabilir mi bilemiyorum.
Saygılarımla..

 

[asi_kral]

Sayın asi kral;
Daha önce gönderdiğim soruya bir nebze çözüm bulduk.Ama aynı isimli personele 2. 3. 4 . .... kez izin verilirse işlem gerçekleş miyor.Yukardaki formüller le olabilir mi bilemiyorum.
Saygılarımla..

Merhaba
Ben kod ile çözdüm umarım işinize yarar.
Boş bir module

Option Explicit
Sub İzinli_günleri_işaretle_1967()
'Konu       :   İzinli Günleri İşaretle
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Long, bul As Long, _
a As Range, b As New Collection, c As Variant
Set asi = Sheets("İzin")
Application.ScreenUpdating = False
Range("B3:AF" & Rows.Count).ClearContents
For kral = 3 To Cells(Rows.Count, "A").End(xlUp).Row
Set a = asi.Range("A:A").Find(Cells(kral, "A"), , , xlWhole)
If Not a Is Nothing Then
c = a.Address
Do
For bul = 2 To 32
If Cells(2, bul) >= asi.Cells(a.Row, "C") And _
Cells(2, bul) <= asi.Cells(a.Row, "D") Then
Cells(kral, bul) = "X"
End If: Next
Set a = asi.Range("A:A").FindNext(a)
Loop While Not a Is Nothing And a.Address <> c
End If: Next
Application.ScreenUpdating = True
MsgBox "<>İşlem Tamamlandı<>", vbInformation, Application.UserName & " asi_kral_1967"
End Sub

Bu Kodu kopyalayın ve deneyin.
Dosyanız Ekte.

 

[mcetinkaya65]

Çok teşekkür ederim,ilginiz için.

 

[asi_kral]

Çok teşekkür ederim,ilginiz için.

Kolay Gelsin.