• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Puantaj Tablosu - Listeleme

  • Konbuyu başlatan Konbuyu başlatan iylis
  • Başlangıç tarihi Başlangıç tarihi
Katılım
3 Mart 2008
Mesajlar
29
Excel Vers. ve Dili
2010-TR
Merhaba,
Ekli dosyada da belirttiğim gibi bir sayfada tarihlerin ve isimlerin yer aldığı bir puantaj tablo var.
Başka bir sayfada sadece günü girerek o gün gelen bütün işçilerin isimlerini alt alta listelemek istiyorum.

Yardımlarınız için şimdiden teşekkürler.
 

Ekli dosyalar

Dosyanız ektedir.:cool:
Kod:
Sub listele59()
Dim sh As Worksheet, sonsat As Long, sat As Long, i As Long
Dim sut As Byte
Set sh = Sheets("Sayfa2")
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
sat = 2
Sheets("Sayfa1").Select
Range("B2:B" & Rows.Count).ClearContents
sut = Range("G1").Value + 2
Application.ScreenUpdating = False
For i = 2 To sonsat
     If sh.Cells(i, sut).Value = "X" Then
        Cells(sat, "B").Value = sh.Cells(i, "B").Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı" & vbLf & "evrengizlen@hotmail.com"
End Sub
 

Ekli dosyalar

Sayın Orion1,
Hızlı Cevabınız için teşekkürler.
Bunu formülle yapmak mümkün müdür acaba?
 
Sayın Orion1,
Hızlı Cevabınız için teşekkürler.
Bunu formülle yapmak mümkün müdür acaba?

Formülle yaptırmak için sorunuzu Fonksiyonlar bölümüne sorunuz.
Formül konusunda iyi olan arkadaşlar sorunuza yanıt verecektir sanırım.
 
Geri
Üst