Otomatik verileri aktarıp,hücreleri silme

[bmiletli]

Merhabalar;

ekteki excel dosyasında makina duruşlarını takip etmek istiyoruz. duruş kodları girldiğinde o anki zaman ve duruş bitirme sütünuna herhangi bişey yazıldığında duruş bitiş saati şu anda otomatik gelmektedir.
üretim ve duruşlar sürekli devam edeceği için ekteki C,D,E ve F sütunları veri ile dolduğunda B,C,D,E ve F hücreleri otomatik veriler sayfasına atılabilir mi? bu işlem düğme ekleyerek de olabilir.ancak makina adı sütnunda her bir makina birbirinden bağımsız olarak verilerin aktarılması gerekmektedir. veri aktarma işleminden sonra ilgili C,D,E,F ve G hücrelerininde otomatik silinmesi ile ilgili bir kod eklenebilir mi?
belki çok uzun ve saçma birşey istiyorum ancak yardımcı olabilecek birileri varsa çok sevinirim...

teşekkürler,

 

[Husgvarna]

Merhabalar;

ekteki excel dosyasında makina duruşlarını takip etmek istiyoruz. duruş kodları girldiğinde o anki zaman ve duruş bitirme sütünuna herhangi bişey yazıldığında duruş bitiş saati şu anda otomatik gelmektedir.
üretim ve duruşlar sürekli devam edeceği için ekteki C,D,E ve F sütunları veri ile dolduğunda B,C,D,E ve F hücreleri otomatik veriler sayfasına atılabilir mi? bu işlem düğme ekleyerek de olabilir.ancak makina adı sütnunda her bir makina birbirinden bağımsız olarak verilerin aktarılması gerekmektedir. veri aktarma işleminden sonra ilgili C,D,E,F ve G hücrelerininde otomatik silinmesi ile ilgili bir kod eklenebilir mi?
belki çok uzun ve saçma birşey istiyorum ancak yardımcı olabilecek birileri varsa çok sevinirim...

Merhaba.

Aşağıdaki kodu "Duruş Formu" adlı sayfanın; kod sayfasındaki makronun yerine
yazın. g3:g16 aralığında boşluk kalmadığında verileri gönderecektir.
Eğer isterseniz kırmızı bölümleri ayırıp bir düğmeye atayabilirsiniz.Mavi bölümleride silersiniz

 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F1:F65536]) Is Nothing Then Cells(Target.Row, "C") = Format(Now, "dd.mm.yyyy hh:mm")
If Not Intersect(Target, [G1:G65536]) Is Nothing Then Cells(Target.Row, "D") = Format(Now, "dd.mm.yyyy hh:mm")
'.............................................................................................

[COLOR="Blue"]If Intersect(Target, [g3:g16]) Is Nothing Then Exit Sub
For a = 3 To 16
If Cells(a, 7) = "" Then Exit Sub
Next[/COLOR]
[COLOR="#ff0000"]sor = MsgBox("VERİLER AKTARILSINMI", vbYesNo)
If sor = vbYes Then
If Sheets("Veriler").Cells(1, 1) = "" Then Sheets("Veriler").Range("a1:f1").Value = Range("b2:g2").Value
b = Sheets("Veriler").Cells(65000, 1).End(xlUp).Row + 1
Sheets("Veriler").Range("a" & b & ":e" & 13 + b).Value = Range("b3:f16").Value
[/COLOR][COLOR="#0000ff"]Application.EnableEvents = False[/COLOR]
[COLOR="Red"][c3:D16] = Empty
[F3:G16] = Empty[/COLOR]
[COLOR="#0000ff"]Application.EnableEvents = True[/COLOR]
[COLOR="#ff0000"]End If[/COLOR]
End Sub