Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.)
.rar axikral kasım STOK2009.rar (Dosya Boyutu: 349,93 KB | İndirme Sayısı: 90)
Son Düzenleme: 07/11/2009, 20:58, Düzenleyen: axikral.
Cevapla
Çözüldü #2
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.
.rar KASIM STOK2009.rar (Dosya Boyutu: 350,31 KB | İndirme Sayısı: 43)
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #3
(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.
.rar KASIM STOK2009-2.rar (Dosya Boyutu: 340,33 KB | İndirme Sayısı: 15)
Cevapla
Çözüldü #4
Sn:axikral senin istediğini cevaplar sanırım
.rar Günlük Kasa Takip.rar (Dosya Boyutu: 30,81 KB | İndirme Sayısı: 38)
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
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

Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da