• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro veri alma

O

onurbeyaz

Altın Üye
Katılım
12 Ekim 2019
Mesajlar
62
Excel Vers. ve Dili
excel2010
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
 

Ekli dosyalar

Merhaba, örnek kod.
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
 
AdemCan' Alıntı:
Merhaba, örnek kod.
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
Genişletmek için tıkla ...


Hocam Eline koluna sağlık gerçekten çok güzel olmuş,
 
AdemCan' Alıntı:
Merhaba, örnek kod.
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
Genişletmek için tıkla ...
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?
 
Yapıştırma kodunda xlPasteAll bölümünü xlValues olarak değiştirdiğiniz zaman sadece değerleri aktarır.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst