Mesaiye kalacakların listesi.

[spawnemre]

Merhabalar, hepinize kolay gelsin. Bir liste hazırladım, bu listede mesaiye kalacakların yanına "x" isareti koyuyorum. Ve en sağdaki hücrede o bölümden kaç kişinin mesaiye kalacağı otomatik sayılıyor. Benim yapmak istediğim bu sayma işleminden sonra mesela bir düğmeye basarak o gün hangi bölümden hangi kişilerin mesaiye kalacağını bir word dosyasına ya da excel de başka bir tabloya aktarmak.

Yardımlarınızı bekliyorum.
İyi çalışmalar.
:yardim:

 

[Seyit Tiken]

Aşağıdaki kodu kendinize uyarlayınız. Mesaiye kalmayan satırları gizliyor.

Sub Düğme1_Tıklat()
[C4:C18].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.[a1:d10000].Clear
For i = 1 To s1.[c65536].End(3).Row
If s1.Range("c" & i) = "x" Then
Range(s1.Range("c" & i).Offset(0, 0), s1.Range("c" & i).Offset(0, -2)).Copy
s = s + 1
s2.Range("a" & s).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[veyselemre]

Sub Dene()
    Sheets("Sayfa1").Copy before:=Sheets(1)
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Mesai").Delete
    ActiveSheet.Name = "Mesai"
    For x = [a65536].End(3).Row To 3 Step -1
        If Cells(x, 2) <> "" And Cells(x, 3) = "" Then Rows(x).Delete
    Next x
End Sub

 

[AS3434]

Bir örnek de ben vereyim.

Anlık görüntü, Günlük Sayfa , Toplam Sayfa.

 

[spawnemre]

tesekkürler