ilgili aylara veri aktar

[yesilcan]

arkadaşlar ilgili dosyayı ekledim.
yardımcı olursanız çok sevinirim.
saygılarımla

 

[yesilcan]

Soruma 22 kez bakılmış olmasına rağmen henüz bir cevap almış değilim.
değerli hocalarım ve arkadaşlarım zannediyorum biraz yoğunlar,yada soruyu tam olarak anlatamadım zannediyorum.
eğer soruyu dahada açmamı isterseniz seve seve tekrar sorabilirim.
anlayışınız için şimdiden teşekkürler
en derin saygılarımla

 

[Halit TÜRK]

Merhabalar...

Ekli dosyayı kontrol edermisiniz. Doğrumu anlamışız...

 

[yesilcan]

öncelikle ilgi ve alakanız için çok teşekkür ederim.emeğinize sağlık.fakat hocam bir sonraki mesai listesinde eski listeyi siliyoruz.bu verileri bir sayfaya aktarabilirmiyiz.yada bana bu konuda yol gösterebilirmisiniz?
en derin saygılarımla.

 

[Halit TÜRK]

Biraz daha detaylı açıklarsanız. Bu sayfayı niçin silmeniz gerekiyor, zaten aylara göre 2009 yıl sonuna kadar gösteriyor. Listenizin alt satıra doğru devam etmesinde sorun yok gibi görünüyor...
Ya da 50 satır dolduğunda başka bir sayfaya alt alta aktarılabilir.

 

[yesilcan]

hocam mesai sayfasında mesaileri yazıp çıktısını alıyoruz.yani mesai sayfası şablon sayfası olarak düşünebiliriz.

mesai sayfasındaki verileri userform üzerindeki yazdır butonuna ekleyeceğim bir komutlar bu sayfadaki verileri başka bir arşiv sayfasına aktarıp bu sayfa üzerinden verileri çizelge 2008 ve 2009 sayfalarına çeksin.çünki dediğim gibi mesai sayfasındaki yazdığım verileri her seferinde temizleyip yenisi için hazırlıyorum.

dilimin döndüğünce anlatmaya çalıştım.
anlatma kabiliyetimin eksikliğinde ötürü özür dilerim
saygılarımla

 

[Halit TÜRK]

Dosyanız eklidir, kontrol ediniz...

 

[yesilcan]

Hocam dosya kitleniyor.
acaba mesai_sayfasındaki belirlediğim hücreleri mesai_toplam sayfasındaki ilgili yerlere altalta gelecek şeklide aktarabilirmiyiz.bunu yapacak kod varsa çok sevinirim.bunu çözersek dosya hazırdır
saygılarımla.

 

[yesilcan]

hazırladığınız dosya güzel olmuş fakat ben sürekli userfm üzerinde çalışacağım.böylece manuel hataları önlerim diye düşünüyorum.yani sayfa üzerinde seçme şansım yok
saygılarımla.

 

[Halit TÜRK]

Topla.Çarpım formülü 3-1000 aralığında arama yaptığı için bekletiyor. Formülü de makroya çevirdiğinizde sorunsuz çalışır... Bu arada bende çalışıyor.
Aktarma makrosu;

Sub Aktarİş10_Click()
Application.ScreenUpdating = False
Sheets("MESAİ_GİRİŞ").Select
Dim cevap
cevap = MsgBox("Seçili Alanı `MESAİ_TOPLAM´ Sayfasına Göndermek İstediğinizden Eminmisiniz..!", vbYesNo + vbQuestion + vbDefaultcmdsil + vbApplicationModal, "DİKKAT! Sayfa Gönderilecek")
If cevap = vbNo Then
End
End If
Selection.Copy
Sheets("MESAİ_TOPLAM").Select
Range("b3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Sheets("MESAİ_GİRİŞ").Select
Application.CutCopyMode = False
Selection.ClearContents
'Selection.Delete Shift:=xlUp
Range("B3").Select
Application.ScreenUpdating = True
CreateObject("WScript.Shell").Popup _
"Sipariş aktarıldı...", 1, "UYARI", vbInformation
End
End Sub

 

[yesilcan]

hocam çok teşekkür ederim
iyi çalışmalar.

 

[Halit TÜRK]

Rica ederim, fırsat bulabilirsem formülü de makroya çevirip eklerim...

 

[Halit TÜRK]

Dosyanızın son şeklini 7. mesajdan indirebilirsiniz...

 

[yesilcan]

değerli çok çok teşekkür ederim ama son bir soruda daha !
acaba b:3 ile f:50 arasındaki dolu hücreleri otomatik seçse ve aktarsa şansı varmı?
çünki veri girişini usrfomdan yaptığım için sayfa seçme şansım yok

 

[Halit TÜRK]

Sub Aktarİş10_Click()
Application.ScreenUpdating = False
Sheets("MESAİ_GİRİŞ").Select
Dim cevap
cevap = MsgBox("Seçili Alanı `MESAİ_TOPLAM´ Sayfasına Göndermek İstediğinizden Eminmisiniz..!", vbYesNo + vbQuestion + vbDefaultcmdsil + vbApplicationModal, "DİKKAT! Sayfa Gönderilecek")
If cevap = vbNo Then
End
End If
[color=red]Range("B3:F50").Select[/color]
Selection.Copy
Sheets("MESAİ_TOPLAM").Select
Range("b3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Sheets("MESAİ_GİRİŞ").Select
Application.CutCopyMode = False
Selection.ClearContents
'Selection.Delete Shift:=xlUp
Range("B3").Select
Application.ScreenUpdating = True
CreateObject("WScript.Shell").Popup _
"Sipariş aktarıldı...", 1, "UYARI", vbInformation
End
End Sub

 

[yesilcan]

çok değerli hocam,personel sayısı arttıkça dosya çok yavaş çalışıyor.hatta kitlendiğide oluyor.buna bir çözüm bulamazmıyız.