Performans/Stok/Üretim ölçümü için yardım

1 2 3
07/11/2009, 19:41

axikral

Axikral Stok Takip

Ekteki dosyada Personel performans sayfasındaki
Örnek:
b sutununda 07.11.2009 tarihindeki üretim mikratları gün sonunda J sutununa yerleştirecek.bir sonraki gün K sutununa L,M,N..... SUTUNLARINA otomatik şekilde nasıl veri aktaracak.(Askerde Şafak programı yapmıştım.Hergün 460 Günlük alandan o gün renk değiştiriyordu.Bunu burada kullanmak istiyorum fakat kodlar elimde yok.)
09/11/2009, 01:19

ogulcan92

Sn:axikral ilk önce formül hatalarını düzelterek başlıyalım Açılış Listesi Hazırlama sayfasında C5 ve D5 teki örnekler gibi düzelleyiniz formüllerde başvuru hataları var sırası ile düzeltelim örnek ektedir.
09/11/2009, 18:21

axikral

(07/11/2009, 19:41)axikral yazdı: Axikral Stok Takip

Ekteki dosyada Personel performans sayfasındaki
Örnek:
b sutununda 07.11.2009 tarihindeki üretim mikratları gün sonunda J sutununa yerleştirecek.bir sonraki gün K sutununa L,M,N..... SUTUNLARINA otomatik şekilde nasıl veri aktaracak.(Askerde Şafak programı yapmıştım.Hergün 460 Günlük alandan o gün renk değiştiriyordu.Bunu burada kullanmak istiyorum fakat kodlar elimde yok.)

acil listesindeki hata düzeltildi .Asıl konuyla alakalı kısımla ilgili cevaplarınızı bekliyorum.
09/11/2009, 19:29

ogulcan92

Sn:axikral senin istediğini cevaplar sanırım
09/11/2009, 21:11

axikral

ilgilendiğin için teşekkürler örnek te çok güzel bir çalışma olmuş
fakat benim yapmak istediğim şeyi anlatamıyorum galiba.
Mesela bugun 9 kasım 2009 .bügün yapılna üretimmiktarı 24:00 dan sonra tabloda ki yerine otomatik kopyalayacak .yarınki üretim ertes, güne.. böyle art atda gidecek.
Verdiğin örnekte hergün için bir sayfa var benim çalışmamda tüm veriler tek bir yerden alınıyor.
12/11/2009, 02:03

maytas

Merhaba.
Sayın axikral, alttaki kodları bir deneyin bakalım sitediğinize cevap verecek mi.
PERSONEL PERFORMANS sayfasında B4 hücresine yazdığınız tarihi D4:AH4 aralığında arıyor ve bulunca alttaki 6 satıra B4 hücresinin aştındaki 6 satırı değerlerini ekliyor.
Yanılmıyorsam istediğiniz buydu.
Kodları bir butona atayın ve hergün yeni değerleri girdiğinizde düğmeye tıklamanız yeterli olacak.

Kod:
Sub Aktar()
    Dim Alan As Range, Hucre As Range, Gunun_Tarihi As Range, Tarih As Date, Satir As Integer
    With Worksheets("PERSONEL PERFORMANS")
        Set Gunun_Tarihi = .Range("B4")
        Tarih = DateSerial(Year(Gunun_Tarihi), Month(Gunun_Tarihi), Day(Gunun_Tarihi))
        Set Alan = .Range("D4:AH4")
        For Each Hucre In Alan.Cells
            If CDate(Hucre.Value) = Tarih Then
                For Satir = 1 To 6
                    Hucre(1 + Satir, 1) = Hucre(1 + Satir, 1) + Gunun_Tarihi(1 + Satir, 1)
                Next
                Exit For
            End If
        Next
    End With
End Sub
1 2 3