ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[brksmngn]

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.

[okutkan]

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

[okutkan]

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.

[brksmngn]

Çok teşekkür ederim.

Saygılar

[brksmngn]

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

Yardımcı olabilirseniz sevinirim.

Saygılar

[okutkan]

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.

[okutkan]

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


[okutkan]

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

[brksmngn]

Sayın okutkan,

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

Saygılar

[okutkan]

Sayın okutkan,

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

Saygılar

Rica ederim. İyi çalışmalar.