1 sayfadan 1. sayfa

AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTOMATİK VERİ

İletiTarih: 14 Oca 2021 15:34
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.

Cevap: AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTOMATİK V

İletiTarih: 14 Oca 2021 16:55
okutkan
Sayfa1 de sadece isim , meslek ve tarihler yazılı. Hangi bilgileri nereye çekmek istediğinize dair örnek verirseniz daha anlaşılır olur.

Cevap: AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTOMATİK V

İletiTarih: 14 Oca 2021 23:21
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.

Cevap: AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTOMATİK V

İletiTarih: 15 Oca 2021 08:23
brksmngn
Çok teşekkür ederim.

Saygılar

Cevap: AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTOMATİK V

İletiTarih: 15 Oca 2021 10:21
brksmngn
Merhaba, eğer mesai yapılmamış ise personel ismini listeye yazmasın istiyorum.

Yardımcı olabilirseniz sevinirim.

Saygılar

Cevap: Cevap: AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTO

İletiTarih: 15 Oca 2021 14:40
okutkan
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.

Cevap: AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTOMATİK V

İletiTarih: 15 Oca 2021 15:45
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

Cevap: AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTOMATİK V

İletiTarih: 15 Oca 2021 16:32
okutkan
Örnek olması amacıyla "gün +1/-1" spin buton ekledim. Belki işinize yarayabilir.

Cevap: AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTOMATİK V

İletiTarih: 16 Oca 2021 10:45
brksmngn
Sayın okutkan,

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

Saygılar

Cevap: Cevap: AYLIK VERİ GİRİŞİ TABLOSUNDAN GÜNLÜK FORMA OTO

İletiTarih: 16 Oca 2021 10:59
okutkan
brksmngn yazdı:Sayın okutkan,

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

Saygılar

Rica ederim. İyi çalışmalar.