Malzemeve Maliyet Sayfasindan, Siparis Istek Formu Hazirlamak

[alexsah10]

Herkese Selamlar,

Yapmak istedigim Formu Örnek olarak acikladim.
Yardimlariniz icin simdiden Tessekkürler.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sub Aktar()
Set s1 = Sheets("MALZEME ve MALIYET LISTESI")
For k = 4 To 5
For i = 3 To 13
    If s1.Cells(i, k).Value <> "" Then
        Set syf = IIf(k = 4, Sheets("A FIRMASI SIPARIS ISTEK FORMU"), Sheets("B FIRMASI SIPARIS ISTEK FORMU"))
        ss = syf.[B65536].End(3).Row + 1
        syf.Cells(ss, 2).Value = s1.Cells(i, 1).Value
        syf.Cells(ss, 3).Value = s1.Cells(i, k).Value
    End If
Next
Next
MsgBox "Aktarma işlemi tamamlanmıştır.", vbInformation
End Sub

 

[alexsah10]

Cevabiniz icin önce tessekkür ederim.
Makrolari cok fazla bilmiyorum dEdE
Bunu Excel formülleri ile yapmak mümkün olur mu?
Saygilar.

 

[dEdE]

Merhaba,
Ben de formüller konusunda pek iyi sayılmam.
Makrolu dosyanızı ekte gönderiyorum. Paket adetlerini girdikten sonra Aktar butonuna basmanız yeterlidir.
Hoşçakalın.

 

[alexsah10]

Ugraslariniz icin tessekkürler dEdE
Ben bunu kullanamiyorum.