• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro ile düşeyara yapabilmek !!!

  • Konbuyu başlatan Konbuyu başlatan CHARICH
  • Başlangıç tarihi Başlangıç tarihi
Yani olay bu mudur?
ÜRETİM TABLOSU.xlsx
Dosyasına siz verileri giriyorsunuz.Sonra diğer pcdeki kullanıcılar bu dosyadaki verilere göre
FİŞ KODU nu girip
İPTAL DURUMU İŞLEM ZAMANI CARİ MODEL RENK SİP. NO LOT KLİŞE KUTU NOTLAR
Sütunlarındaki verileri getirtmek istiyorlar?
 
Aynen öyle.. Sıkıntıysa her hücrede formul olmak zorunda olması ve bunun dosyalara ciddi yük getirmesi.
 
:mutlu: işte BUDUR ! peki bunu tüm sütunlar için yapabilecek miyiz ? ben kodlardan anlamadığım için öyle bakıyorum kod ekranına sadece..
 
fiş kodunu giriyorum, sadece renk - klişe- kutu- notlar sütunları geliyor. Diğerlerinde ( müşteri - stok - sipariş no - lot no vs.. ) bir hareket yok ?
 
İlk atttığım mesajda da demştim.
Sütünlar aranan sayfada neyse aradğınız sayfada da aynı olması gerekir.

Yok Mesela birinde "lot" birinde "lot no" yazması gerkiyorsa kodları güncellemek gerkir
 
Tamamdır hocam.. Ben o detayı kaçırmışım, düzeldi şimdi :) :) :) Emeğine sağlık.. Bilsen beni ne büyük uğraştan kurtardığını.. :):)
 
Rica ederim
Hayırlı çalışmalar.
 
Arkadaşlar size bir sorum daha olacak.. Excel dosyasında kullandığım bir makro var. A sütunundaki herhangi bir hücreye herhangi bir değer girdiğim zaman B sütununa o anın tarih ve saatini atıyor. Bu ürün takibinde işime yarayan bir özellik. Hangi sipariş ne zaman ne aşamadan geçmiş görebiliyorum. Bu makroyu nasıl genişletebilirim ? Diğer sütunlarda da bu özellik olabilir mi ? Yani D sütununa veri girdiğim de E sütununa da tarih attırabilir miyim ? Örnek dosya ektedir, inceleyebilirsiniz..
 

Ekli dosyalar

Sorduğunuz sütunlarla dosyadaki sütunların yerleri farklı gibi ?
 
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [[COLOR="Red"]C:C,F:F[/COLOR]]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = Now
son:
End Sub

Kırmızı yazan sütün isimlerini değer gireceğiniz sütünlarla değiştirebilirsiniz.
Dosyanıza göre bu sütunlarda işlem yapıyorsunuz
 
Burda gördüğünüz gibi olmalı, kesim-montaj üretim-temizleme bölümlerinde veri girişi yapılınca işlem tarihi yazan kısımlara tarih atmalı
 

Ekli dosyalar

  • EK.PNG
    EK.PNG
    6.6 KB · Görüntüleme: 5
Yani C sütununa girince Bir sonraki sütun D ye
F sütununa girince Bir sonraki sütun F ye
tarih atacak değil mi?
Eğer öyleyse kodlar yukarıda :)
 
arkadaşlar merhaba, excelde mevcut bir kod aktifken başka bir kod ekleyemiyor muyuz ? Nereden ekleniyor bu yeni kod. Şu anda sayfamda mevcut olan kodum aşağıdaki gibi;
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim s2 As Worksheet
Set s2 = Sheets("sayfa2")
son = s2.Cells(Rows.Count, "A").End(3).Row
If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
If WorksheetFunction.CountIf(s2.Range("A2:A" & son), Target.Value) <> 0 Then
Set bul = s2.Range("A2:A" & son).Find(Target.Value)
k = bul.Row
For baslk2 = 2 To 29
For baslk1 = 2 To 11
If Cells(1, baslk1) = s2.Cells(1, baslk2) Then

Cells(Target.Row, baslk1) = s2.Cells(k, baslk2)
End If
Next
Next
End If
End Sub

ben bir de şu kodu eklemek istiyorum;
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Cells(Target.Row, "c") = Now
son:
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

bu kodu nasıl ekleyip çalıştıracağım ? yeni bir kod sayfası nasıl açılıyor ? Devamına filan mı yazılıyor..
 
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim s2 As Worksheet
Set s2 = Sheets("sayfa2")
son = s2.Cells(Rows.Count, "A").End(3).Row
If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
If WorksheetFunction.CountIf(s2.Range("A2:A" & son), Target.Value) <> 0 Then
Cells(Target.Row, "c") = Now
 Set bul = s2.Range("A2:A" & son).Find(Target.Value)
k = bul.Row
For baslk2 = 2 To 29
For baslk1 = 2 To 11
If Cells(1, baslk1) = s2.Cells(1, baslk2) Then

Cells(Target.Row, baslk1) = s2.Cells(k, baslk2)
End If
Next
Next
End If
End sub
 
Eyvallah üstad..
Dünden beri malum, uğraşıyorum. Access le de beceremedim gitti. Şu ekte verdiğim dosyayı baz alırsak; böyle bir ana veri dosyamız var. Hiç dallandırıp budaklandırmadan, bu dosyaya aynı anda diğer cihazların da erişimini nasıl sağlarız ? Ya da şöyle söyleyeyim, dosyada da gördüğün gibi, siparişlerin başında bir fiş kodu sütunu var. Bu sütunu, üretime işemri vereceğim zaman ben dolduruyorum. Bir kod verip bununla bir işemri oluşturuyorum. Mesela verdiğim işemri kesimci arkadaşa geldiği zaman, onun önünde de bendeki dosyanın aynısı olsa, fiş kodunun karşısındaki kesim alanına o da aynı fiş kodunu yazsa ? daha sonra montaj ve temizleme de de aynı uygulama oalbilir mi ? Yani bir tek dosya üzerinden tüm bölümleri entegre edebilir miyiz ? Excelde salt okuma sorununa takılıyoruz. Bunun başka bir yolu var mıdır acep ? Ben üretim tablomu önüme açtığımda, kesimde şu an ne var, montajdan az önce ne geçmiş, bunları tek noktadan izleyebilir miyim acep ? Bir beyin fırtınası yapsak bu konuda ?
 
bu işi bir halledebilirsek dile benden ne dilersen.. :dua2:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst