Makro veri alma

[onurbeyaz]

Merhaba Arkadaşlar ekli Excel de mal girişi ve mal girişi raporu var, Mal girişleri yapıldıkça Mal girişi raporuna akıyor amatörce yapmaya çalıştım tabi amacım Mal girişi raporuna kayıt olanları makro yardımıyla siparişle mal girişi muhasebe sekmesindeki ilgili yerlere getirmek bu konuda destek rica ederim

 

[AdemCan]

Merhaba, örnek kod.

Sub test()
Dim s1 As Worksheet, s2 As Worksheet, son1 As Long, son2 As Long
Set s1 = Sayfa2 ' Mal Giriş Raporu Sayfası, Set s1 = Sheets("Mal Giriş Raporu") şeklinde de kullabılabilir.
Set s2 = Sayfa5 ' Siparişli Mal Girişi Muhasebe Sayfası
son1 = s1.Cells(Rows.Count, 1).End(3).Row
son2 = 2
    For i = 2 To son1
        s2.Cells(son2, 1) = s1.Cells(i, 1) 'Tarih
        s2.Cells(son2, 2) = s1.Cells(i, 2) 'Ürün Kodu
        s2.Cells(son2, 3) = s1.Cells(i, 3) 'Hammadde Adı
        s2.Cells(son2, 8) = s1.Cells(i, 4) 'Geldiği Yer
        s2.Cells(son2, 4) = s1.Cells(i, 7) 'Brüt Miktar
        s2.Cells(son2, 6) = s1.Cells(i, 8) 'Net Kilo
        s2.Cells(son2, 5) = s1.Cells(i, 9) 'Brüt Birim Fiyat
    son2 = son2 + 1
    Next i
End Sub

 

[onurbeyaz]

Merhaba, örnek kod.

Sub test()
Dim s1 As Worksheet, s2 As Worksheet, son1 As Long, son2 As Long
Set s1 = Sayfa2 ' Mal Giriş Raporu Sayfası, Set s1 = Sheets("Mal Giriş Raporu") şeklinde de kullabılabilir.
Set s2 = Sayfa5 ' Siparişli Mal Girişi Muhasebe Sayfası
son1 = s1.Cells(Rows.Count, 1).End(3).Row
son2 = 2
    For i = 2 To son1
        s2.Cells(son2, 1) = s1.Cells(i, 1) 'Tarih
        s2.Cells(son2, 2) = s1.Cells(i, 2) 'Ürün Kodu
        s2.Cells(son2, 3) = s1.Cells(i, 3) 'Hammadde Adı
        s2.Cells(son2, 8) = s1.Cells(i, 4) 'Geldiği Yer
        s2.Cells(son2, 4) = s1.Cells(i, 7) 'Brüt Miktar
        s2.Cells(son2, 6) = s1.Cells(i, 8) 'Net Kilo
        s2.Cells(son2, 5) = s1.Cells(i, 9) 'Brüt Birim Fiyat
    son2 = son2 + 1
    Next i
End Sub

Hocam Eline koluna sağlık gerçekten çok güzel olmuş,

 

[AdemCan]

Rica ederim.

 

[onurbeyaz]

Merhaba, örnek kod.

Sub test()
Dim s1 As Worksheet, s2 As Worksheet, son1 As Long, son2 As Long
Set s1 = Sayfa2 ' Mal Giriş Raporu Sayfası, Set s1 = Sheets("Mal Giriş Raporu") şeklinde de kullabılabilir.
Set s2 = Sayfa5 ' Siparişli Mal Girişi Muhasebe Sayfası
son1 = s1.Cells(Rows.Count, 1).End(3).Row
son2 = 2
    For i = 2 To son1
        s2.Cells(son2, 1) = s1.Cells(i, 1) 'Tarih
        s2.Cells(son2, 2) = s1.Cells(i, 2) 'Ürün Kodu
        s2.Cells(son2, 3) = s1.Cells(i, 3) 'Hammadde Adı
        s2.Cells(son2, 8) = s1.Cells(i, 4) 'Geldiği Yer
        s2.Cells(son2, 4) = s1.Cells(i, 7) 'Brüt Miktar
        s2.Cells(son2, 6) = s1.Cells(i, 8) 'Net Kilo
        s2.Cells(son2, 5) = s1.Cells(i, 9) 'Brüt Birim Fiyat
    son2 = son2 + 1
    Next i
End Sub

Hocam birde ben Mal girişi ekranında ürün kodunu ürün adı yazınca gelsin diye düşeyara mantığı ile yaptım böle olunca mal girişi raporuna aktarırken formül oraya geçmediğinden formül bozuk hatası veriyor burası için sizce ne yapabilirim?

 

[AdemCan]

Yapıştırma kodunda xlPasteAll bölümünü xlValues olarak değiştirdiğiniz zaman sadece değerleri aktarır.

 

[onurbeyaz]

Yapıştırma kodunda xlPasteAll bölümünü xlValues olarak değiştirdiğiniz zaman sadece değerleri aktarır.

Çok ama Çok teşekkür ederim oldu