Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: unalh - 07 Ekim 2010, 11:00:20

Başlık: [Çözüldü] Kriteregöre Veri Aktarımı
Gönderen: unalh - 07 Ekim 2010, 11:00:20

Ekli dosyada yapmak istediğim Paketleme dosyasında aktar dediğim zaman çıkış tarihi yazılı olan verileri Biten işler klasörü içersinde biten işler dosyasına silerek aktarması.
Yani tarih yazılmışsa bu dosyadan aktarıcak ve silecek.

Yardımlarınız için şimdiden teşekkür ederim.

Hayırlı işler.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: Kriteregöre Veri Aktarımı
Gönderen: Bülent Öztürk - 17 Ekim 2010, 12:19:28

Hamdi Bey, geç cevap için kusura bakmayın, işler biraz yoğun...

Aşağıdaki kodu dener misiniz?

Kod: [Seç]

Sub Excelce_Biten_Kayit_Aktar()
Dim excelce As Long, say As Long, dolusay As Long
Dim biten As Workbook
Set biten = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "Biten İşler" & Application.PathSeparator & "Biten İşler.xls")
For excelce = ThisWorkbook.Worksheets("Sayfa1").Range("A65530").End(3).Row To 2 Step -1
    If ThisWorkbook.Worksheets("Sayfa1").Range("G" & excelce) <> Empty Then
        say = say + 1
        dolusay = biten.Worksheets("Sayfa1").Range("A65530").End(3).Row + 1
        ThisWorkbook.Worksheets("Sayfa1").Range("G" & excelce).EntireRow.Cut Destination:=biten.Worksheets("Sayfa1").Range("A" & dolusay)
        ThisWorkbook.Worksheets("Sayfa1").Range("G" & excelce).EntireRow.Delete
    End If
Next excelce
If say > 0 Then
    MsgBox say & " adet kayıt aktarıldı.", vbInformation, "İşlem Tamam"
Else
    MsgBox "Aktarılacak kayıt bulunamadı!", vbExclamation, "İşlem Tamam"
End If
biten.Close True
End Sub

Başlık: Ynt: Kriteregöre Veri Aktarımı
Gönderen: unalh - 19 Ekim 2010, 09:39:13

Bülent bey ilginize teşekkür ederim

Kod istediğimgibi.

Hayırlı işler.

Başlık: Ynt: Kriteregöre Veri Aktarımı
Gönderen: Bülent Öztürk - 19 Ekim 2010, 09:53:35

Rica ederim.

Çalışmalarınızda başarılar.

Başlık: Ynt: Kriteregöre Veri Aktarımı
Gönderen: Puletin - 23 Ekim 2010, 21:10:24

Bülent bey teşekkürler