Aynı Gün olanları aktarma

[gozdeyagci]

Arkadaşlar merhaba forum içerisinde de arama yaptım ama bulamadım. Benim sorum gün gün ayrılmış olan iş emirlerini başka bir sayfaya aktarmak istiyorum. Ekte de mevcuttur. Yani daha net ifade edecek olursam: 6 temmuza ait iş emirlerini seçsin (satır olarak) ve diğer sayfaya aktarsın. Aktarılan sayfada iş emirleri yapıldıktan sonra tekrar ilk sayfaya gelsin ve 7 temmuzdaki iş emirlerini seçip aktarsın. Acaba bu tarih olayını nasıl halledebiliriz? Ben bir türlü beceremedim de

 

[Murat OSMA]

Benim sorum gün gün ayrılmış olan iş emirlerini başka bir sayfaya aktarmak istiyorum.

Buraya kadar anladım ama gerisi ve dosyanızdaki sayfalarda bulunan veriler kafamı karıştırdı...

Daha açık anlatabilir misiniz ? :dusun:

 

[gozdeyagci]

İş Emri Tarihi İş Emri No İş Emri Adedi
06.07.2012 2 10
06.07.2012 6 27
07.07.2012 7 63
07.07.2012 8 61
07.07.2012 10 14
08.07.2012 11 42
08.07.2012 12 30
08.07.2012 13 64
08.07.2012 14 9
08.07.2012 15 53
08.07.2012 16 59
09.07.2012 17 10
09.07.2012 18 11
09.07.2012 19 66
09.07.2012 20 61


Bu şekilde 3 tane sütun var 1. sayfada buradan ben 6 temmuz tarihli iş emirlerini alıp 2. sayfaya aktarmak istiyorum. Aktarma yaptıktan sonra burada (2. sayfada iş emirlerini değerlendiriyorum) işlemlerimi hallettikten sonra tekrar 1.sayfaya geliyorum ve 7 temmuzlu iş emirlerini 2. sayfaya aktarıyorum. Bütün sayfadaki verileri bu şekilde değerlnedirmem gerekir. Ben bunu nasıl yapıcam detaylı bilgi isterseniz anlatbilirim. Benim tek derdim aynı tarihli verileri nasıl aktarıcam geri döndüğümde de nasıl ilerlemem gerektiği

bu arada tekrar excel formatını yükleyemedim o yüzden böyle yerleştirmek zorunda kaldım kusuruma bakmayın

 

[Murat OSMA]

■ İş Emri sayfasının kod kısmına şu kodları yazın;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = Range("A65536").End(3).Row To 4 Step -1
        If ActiveCell.Value = Cells(i, 1) Then
            Cells(i, 1).Resize(, 4).Copy Sayfa2.Range("A65556").End(3)(2, 1)
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "..::.. Aktarıldı ..::..", vbInformation + vbMsgBoxRtlReading, "gozdeyagci"
    Cancel = True
End Sub

■ Elleçleme Detayları sayfasının kod kısmına şu kodları yazın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = Range("A65536").End(3).Row To 2 Step -1
        If ActiveCell.Value = Cells(i, 1) Then
            Cells(i, 1).Resize(, 4).Copy Sayfa1.Range("A65556").End(3)(2, 1)
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "..::.. Aktarıldı ..::..", vbInformation + vbMsgBoxRtlReading, "gozdeyagci"
    Cancel = True
End Sub

Not: Aktarmak istediğiniz tarihin en başındaki tarihi çift tıklayın.

 

[gozdeyagci]

emeğinize sağlık gerçekten ya ben ne zaman bu kadar usta olabilcem inşallah ben de size yetişebilirim. Tekrar ellerinize sağlık

 

[Murat OSMA]

Yazdığım koda bakarsanız, birkaç satır birşey, kolay öğrenirsiniz. Yeter ki öğrenmek isteyin...

 

[gozdeyagci]

bu site sayesinde excel formüllerinde dahi sıkıntım olmasına rağmen 1 hafta içerisinde 3 tane makroyu arada çok zorlansam da yazabilir hale geldim ki bence çok da eğlenceliymiş. bilgisayar korkusu olan herkesin çok rahatlıkla burada korkusunu aşacağını düşünüyorum

 

[Murat OSMA]

Yeter ki öğrenmek için bir adım atın. Öğrendikçe ne kadar zevkli bir konu olduğunun farkına varıyorsunuz. Umarım kısa sürede daha da ileri bir seviyeye gelirsiniz...