Excel VBA .Net

Arkadaşlar merhaba,

Veri girişi yaptığım Sayfa1` deki aylık veri formundaki personel ad-soyad ve kaç saat mesai yaptığını, Sayfa2`de sadece tarihi değiştirerek; istediğim bilgileri günlük forma otomatik yazdırmasını istiyorum.

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

Sayfa1 de sadece isim , meslek ve tarihler yazılı. Hangi bilgileri nereye çekmek istediğinize dair örnek verirseniz daha anlaşılır olur.

Açıklamayı sayfa2 deki h3 hücresinin açıklamasına yerleştirmek yerine buradan paylaşsanız daha açıklayıcı olurdu

Sayfa1 deki buton yardımıyla işleminizi gerçekleştirebilirsiniz.
Dosya ektedir.

Çok teşekkür ederim.

Saygılar

Merhaba, eğer mesai yapılmamış ise personel ismini listeye yazmasın istiyorum.

Yardımcı olabilirseniz sevinirim.

Saygılar

brksmngn yazdı:Merhaba, eğer mesai yapılmamış ise personel ismini listeye yazmasın istiyorum.

Yardımcı olabilirseniz sevinirim.

Saygılar

Daha önce yardım gelmezse, müsait olduğumda yardımcı olmaya çalışacağım. Konuyu takip edin.

Dosya ekte.

Kod: Tümünü seç

Sub veri()
Dim syfBir, syfiki As Worksheet
Dim alan As Range
Set syfBir = Sheets("sayfa1")
Set syfiki = Sheets("sayfa2")
son = Sheets("sayfa1").Cells(Rows.Count, "a").End(xlUp).Row
syfiki.Range("b5:I29").ClearContents
a = 5
For i = 2 To son

Set alan = syfBir.Range("D1:I1").Find(syfiki.Cells(3, "h"))
On Error GoTo hata

    If alan.Offset(i - 1, 0).Value > "" Then
    syfiki.Cells(a, "f").Value = alan.Offset(i - 1, 0).Value
    syfiki.Cells(a, "b") = syfBir.Cells(i, "b")
    a = a + 1
    End If

Next i

Exit Sub
hata:
MsgBox "Girilen tarih D1:I1 hücre aralığında bulunamadı."
End Sub


Örnek olması amacıyla "gün +1/-1" spin buton ekledim. Belki işinize yarayabilir.

Sayın okutkan,

Çok teşekkürler, inanılmaz derecede rahatlatıcı oldu.

Saygılar

brksmngn yazdı:Sayın okutkan,

Çok teşekkürler, inanılmaz derecede rahatlatıcı oldu.

Saygılar

Rica ederim. İyi çalışmalar.