çalışma programı hazırama

[2008model]

Merhaba arkadaşlar.ben yukarıda tabloda görüldüğü gibi bir çalışma programı yapıyorum."a1"mesaiye kalacak personeli simgelemekte."eğersay" formülü ile toplama yaparak kaç mesai olduğunu akşam görebiliyorum ancak sayısal anlamda sadece.çalışma programında "a1" ler karışık olacağında birde toplamda altalta 95 kişi olacağından dolayı mesaiye kalacaklar için ayrı bir tabloda gün gün isinleri ni görmek istiyorum.bu nasıl mümkün olur yardımcı olursanız çok memnun olurum.

 

[Ali]

Örnek dosya ektedir.

 

[Necdet]

Merhaba,

Bende makroyla yapmıştım. Seçenek olsun.

Option Compare Text
Sub MesaiyeKalacaklariListele()
Dim i, SonSat As Long
Dim j, k As Integer
Application.ScreenUpdating = False
Range("K7:Q65000").ClearContents
For i = 8 To [A65536].End(3).Row
    For j = 2 To 8
        k = j + 9
        If Cells(i, j) = "a1" Then
            SonSat = Cells(65536, k).End(3).Row + 1
            Cells(SonSat, k) = Cells(i, "A")
        End If
    Next j
Next i
Application.ScreenUpdating = True
MsgBox "Liste Tamam, İyi Çalışmalar", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[2008model]

sn: ali bey ve necde bey

yardımlarınız için çooook çooook teşekkür ediyorum.allah razı olsun işimi görüyor fazlasıyala.ben formülün ve makronun mantığını çözmeğe çalışıyorum.tüm sayfada kullanmak için .elinize sağlık .

 

[Necdet]

Güle güle kullanınız.

 

[aalakus]

merhaba,

ben sitenin yeni üyelerindenim..amacım;excel'i en iyi sekilde ögrenmek..daha uzun bir yolum var..hem siteden hemde Temel Korkmaz Hoca'nın kitaplarından faydalanıyorum..
Yukarıdaki dosyanızı inceledim..Benim anlamadıgım dizi formulü..Ne zaman dizi formulü kullanacagımızı ben anlamıyorum bu tabloyu dizi formul kullanmadan yapma sansımız varmı?
sitede Sayın yuttas'ındı sanırım, dizi formul ile ilgili bir dosyası vardı, inceledim ama malesef ben anlyamadım ben bir işe bakıp, evet burada dizi formul kullanmalıyım diye anlamıyorum..ayrıca bu dosyada kullanılan formulüde anlamadım (
eger her iki konuyuda bana acıklarsanız cok sevinirim..
çok tesekkür ederim.
iyi çalışmalar,