Soru SKT UYGULAMASI

[yasartomurcuk]

Merhaba

Excel üzerinden kontrol edebileceğim bir SKT uygulaması yapıyorum ürün giriş ve çıkışlarda sistem otomatik Analizi yapıyor çıkış kısımlarını hallettim ancak giriş kısmında SKT tablosunun son satırına , ÜRÜN GİRİŞİ yapılan sayfadan verileri alıp getirmesini istiyorum
Not; Ürün giriş sayfasına bir programdan kopyalayıp yapıştırıyorum bu 100 satırda olabilir 200 satırda olabilir , eklenen veri SKT sayfasına geçtikten sonra ürün giriş sayfasından silinebilir.

bu sorunu nasıl çözebilirim makro kaydet yaparak yapamadım yada yanlış bir şeyler yaptım desteklerinizi rica ederim.
ilgili dosyayı iletiyorum

 

[yasartomurcuk]

Değerli forum üyelerinden yardım beklemekteyim.

 

[AdemCan]

Merhaba, örnek kod.
Ürün girişi sayfasındaki Stok ve Temel Birim sütunlarındaki bilgiler SKT sayfası ile uyumlu olmadığı için o bilgileri es geçtim.
Örnek olarak diğer sütunların kopyalanmasını yazdım. Siz diğer bilgiler için düzenleme yaparsınız.

Sub test_urun_aktar()
Dim s1 As Worksheet, s2 As Worksheet, son1 As Long, son2 As Long

Set s1 = Sayfa1: Set s2 = Sayfa15
son1 = s1.Cells(Rows.Count, 2).End(3).Row + 1: son2 = s2.Cells(Rows.Count, 4).End(3).Row

s2.Range("D2:E" & son2).Copy s1.Range("B" & son1) ' Stok Kodu ve Stok Malı sütunları
s2.Range("H2:H" & son2).Copy s1.Range("I" & son1) ' SKT tarih sütunu

s2.Range("D2:H" & son2 + 1).Clear ' D2 ile H sütunu arasındaki hücreleri temizler

End Sub

 

[Korhan Ayhan]

Merhaba,

Anladığım kadarıyla bir kod kurguladım. Siz doğruluğunu kontrol edersiniz.

Option Explicit

Sub Transfer_Data()
    Dim S1 As Worksheet, S2 As Worksheet, Last_Row As Long
   
    Application.ScreenUpdating = False
   
    Set S1 = Sheets("SKT")
    Set S2 = Sheets("ÜRÜN GİRİŞİ")
   
    Last_Row = S1.Cells(S1.Rows.Count, 2).End(3).Row + 1
   
    S2.Range("D2:E" & S2.Cells(S2.Rows.Count, "D").End(3).Row).Copy
    S1.Cells(Last_Row, 2).PasteSpecial xlPasteValues

    S2.Range("AI2:AI" & S2.Cells(S2.Rows.Count, "D").End(3).Row).Copy
    S1.Cells(Last_Row, 5).PasteSpecial xlPasteValues

    S2.Range("K2:K" & S2.Cells(S2.Rows.Count, "D").End(3).Row).Copy
    S1.Cells(Last_Row, 6).PasteSpecial xlPasteValues

    S2.Range("H2:H" & S2.Cells(S2.Rows.Count, "D").End(3).Row).Copy
    S1.Cells(Last_Row, 9).PasteSpecial xlPasteValues
   
    Application.CutCopyMode = False
   
    Set S1 = Nothing
    Set S2 = Nothing
   
    Application.ScreenUpdating = True
   
    MsgBox "Veri aktarımı tamamlanmıştır.", vbInformation
End Sub

 

[yasartomurcuk]

Merhaba,

Anladığım kadarıyla bir kod kurguladım. Siz doğruluğunu kontrol edersiniz.

Option Explicit

Sub Transfer_Data()
    Dim S1 As Worksheet, S2 As Worksheet, Last_Row As Long
  
    Application.ScreenUpdating = False
  
    Set S1 = Sheets("SKT")
    Set S2 = Sheets("ÜRÜN GİRİŞİ")
  
    Last_Row = S1.Cells(S1.Rows.Count, 2).End(3).Row + 1
  
    S2.Range("D2:E" & S2.Cells(S2.Rows.Count, "D").End(3).Row).Copy
    S1.Cells(Last_Row, 2).PasteSpecial xlPasteValues

    S2.Range("AI2:AI" & S2.Cells(S2.Rows.Count, "D").End(3).Row).Copy
    S1.Cells(Last_Row, 5).PasteSpecial xlPasteValues

    S2.Range("K2:K" & S2.Cells(S2.Rows.Count, "D").End(3).Row).Copy
    S1.Cells(Last_Row, 6).PasteSpecial xlPasteValues

    S2.Range("H2:H" & S2.Cells(S2.Rows.Count, "D").End(3).Row).Copy
    S1.Cells(Last_Row, 9).PasteSpecial xlPasteValues
  
    Application.CutCopyMode = False
  
    Set S1 = Nothing
    Set S2 = Nothing
  
    Application.ScreenUpdating = True
  
    MsgBox "Veri aktarımı tamamlanmıştır.", vbInformation
End Sub

Çok teşekkürler emeğinize sağlık

 

[yasartomurcuk]

Merhaba, örnek kod.
Ürün girişi sayfasındaki Stok ve Temel Birim sütunlarındaki bilgiler SKT sayfası ile uyumlu olmadığı için o bilgileri es geçtim.
Örnek olarak diğer sütunların kopyalanmasını yazdım. Siz diğer bilgiler için düzenleme yaparsınız.

Sub test_urun_aktar()
Dim s1 As Worksheet, s2 As Worksheet, son1 As Long, son2 As Long

Set s1 = Sayfa1: Set s2 = Sayfa15
son1 = s1.Cells(Rows.Count, 2).End(3).Row + 1: son2 = s2.Cells(Rows.Count, 4).End(3).Row

s2.Range("D2:E" & son2).Copy s1.Range("B" & son1) ' Stok Kodu ve Stok Malı sütunları
s2.Range("H2:H" & son2).Copy s1.Range("I" & son1) ' SKT tarih sütunu

s2.Range("D2:H" & son2 + 1).Clear ' D2 ile H sütunu arasındaki hücreleri temizler

End Sub

Çok teşekkürler emeğinize sağlık

 

[AdemCan]

Rica ederim.