Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: [Çözüldü] Kriteregöre Veri Aktarımı  (Okunma sayısı 5717 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı unalh

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Hamdi Ünal
  • Mesleğiniz: Muhasebe ( Tekstil )
[Çözüldü] Kriteregöre Veri Aktarımı
« : 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.]
« Son Düzenleme: 11 Aralık 2010, 11:18:52 Gönderen: Bülent Öztürk »

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Kriteregöre Veri Aktarımı
« Yanıtla #1 : 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
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı unalh

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Hamdi Ünal
  • Mesleğiniz: Muhasebe ( Tekstil )
Ynt: Kriteregöre Veri Aktarımı
« Yanıtla #2 : 19 Ekim 2010, 09:39:13 »
Bülent bey ilginize teşekkür ederim

Kod istediğimgibi.

Hayırlı işler.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Kriteregöre Veri Aktarımı
« Yanıtla #3 : 19 Ekim 2010, 09:53:35 »
Rica ederim.

Çalışmalarınızda başarılar.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı Puletin

  • Excelce Onbaşı
  • **
  • İleti: 29
  • Puan +1/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ferruh
  • İl / İlçe: EDİRNE
Ynt: Kriteregöre Veri Aktarımı
« Yanıtla #4 : 23 Ekim 2010, 21:10:24 »
Bülent bey teşekkürler