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.)
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.
(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.
Sn:axikral senin istediğini cevaplar sanırım
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.
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