AccessTr.neT

Bul · 07/11/2009, 19:41

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.)

Bul · 09/11/2009, 01:19

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.

Bul · 09/11/2009, 18:21

(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.

Bul · 09/11/2009, 19:29

Sn:axikral senin istediğini cevaplar sanırım

Bul · 09/11/2009, 21:11

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.

Bul · 12/11/2009, 02:03

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

AccessTr.neT

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

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri