Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
07/11/2009 19:41
Konu Sahibi
axikral
Yorumlar
17
Okunma
5376
Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 4/5 - 1 oy
Kullanici Avatari

axikral

Üye
Üye
 34
 28
 3
 22/10/2009
0
 Bursa
 
 Ofis 2003
 09/05/2010,13:33
Çözüldü 
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.)


Ek Dosyalar
.rar   axikral kasım STOK2009.rar(Dosya Boyutu: 349,93 KB / İndirme Sayısı: 89)
axikral, 22-10-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ogulcan92

Aktif Üye
Aktif Üye
 54
 1.159
 154
 06/05/2009
480
 İzmir
 
 Ofis 2003
 07/08/2015,11:50
Çözüldü 
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.


Ek Dosyalar
.rar   KASIM STOK2009.rar(Dosya Boyutu: 350,31 KB / İndirme Sayısı: 41)

Kullanici Avatari

axikral

Üye
Üye
 34
 28
 3
 22/10/2009
0
 Bursa
 
 Ofis 2003
 09/05/2010,13:33
Çözüldü 
(07/11/2009 19:41)axikral Adlı Kullanıcıdan Alıntı: 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.


Ek Dosyalar
.rar   KASIM STOK2009-2.rar(Dosya Boyutu: 340,33 KB / İndirme Sayısı: 13)
axikral, 22-10-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ogulcan92

Aktif Üye
Aktif Üye
 54
 1.159
 154
 06/05/2009
480
 İzmir
 
 Ofis 2003
 07/08/2015,11:50
Çözüldü 
Sn:axikral senin istediğini cevaplar sanırım


Ek Dosyalar
.rar   Günlük Kasa Takip.rar(Dosya Boyutu: 30,81 KB / İndirme Sayısı: 34)

Kullanici Avatari

axikral

Üye
Üye
 34
 28
 3
 22/10/2009
0
 Bursa
 
 Ofis 2003
 09/05/2010,13:33
Çözüldü 
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.


axikral, 22-10-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

maytas

Onursal Üye
Onursal Üye
 52
 545
 25
 21/12/2008
178
 Bursa
 
 Ofis 2010 32 Bit
 28/07/2018,14:42
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
resim


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü yardım excel açılış ve kapanışda uyarı rmznaydemr 5 1.076 13/05/2017, 12:19
Son Yorum: atoz112
Çözüldü Alış Stok Listesinde Mükerrer kayıt uyarı versin kenevir47 15 1.800 04/01/2017, 12:45
Son Yorum: kenevir47
Çözüldü Data Filtreleyerek, Excel'e Export Etme - Yardım - Rıdvan Üçok 2 766 28/11/2016, 14:34
Son Yorum: atoz112
Çözüldü Excel dosyamda takıldığım noktaya yardım lütfen aslanbey41 6 1.143 01/08/2016, 18:59
Son Yorum: atoz112
Çözüldü Renk Ayarları ve Grafik Yardım yuko.tuko 6 1.285 24/05/2016, 18:34
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.