Excel sekmesinde Liste Halinde Bulunan Verileri Başka Sekmede İlgili Yerlere Kopyalama

[wahap70]

Ek'de ki dosya da Veri Sayfasında Liste Halinde Sürekli Yeni Bilgiler Eklenecek (yani manuel yazılacak) Teklif Formunda da İlgili yerlere gelecek kısımları (Veri Sayfasında Aynı renge Boyadığım) yerlere makro yardımıyla ile imleci H2 den başlamak üzere getirdiğimde ilgili satırlarına tek sefer de kopyalamasını istiyorum. Örnek : A Firmasından 5 Satır Varsa Teklif Tarihi,Teslim Tarihi ve Firma Adı Formda İlgili Yere Bi Defa Yazılacak. Müşteri Kodu, For Kodu ve Birim Fiyatı da Teklif Formunda İlgili Yere Sıra Sıra 5 Satırın Hepsi Yazılacak. Konu Hakkında Yardım ve Desteğinizi Bekliyorum. Şimdiden Teşekkür Ederim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu örnek dosyanızdaki Veri sayfasının kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Sheets("Veri").Range("H2:H" & Cells(Rows.Count, "D").End(3).Row)) Is Nothing Then Exit Sub
Set s1 = Sheets("Teklif Formu")
Set s2 = Sheets("Veri")
Firma = s2.Cells(ActiveCell.Row, 4)
Sor = MsgBox(Firma & " Firmasının kayıtları aktarılsın mı?", vbQuestion + vbYesNo + vbDefaultButton2, "DİKKAT !")
If Sor = vbYes Then
    sat = 28
    ss = s2.Cells(Rows.Count, "D").End(3).Row
    s1.Range("A28:G37") = ""
        For i = 2 To ss
            If Cells(i, 4) = Firma Then
                s1.Cells(sat, 1) = s2.Cells(i, 5)
                s1.Cells(sat, 3) = s2.Cells(i, 6)
                s1.Cells(sat, 7) = s2.Cells(i, 7)
                s2.Cells(i, 8) = "AKTARILDI"
                sat = sat + 1
            End If
        Next i
Else
    Exit Sub
End If
    MsgBox "Aktarma işlemi Tamamlandı." & vbCrLf & sat - 28 & " Kayıt Teklif Formuna aktarıldı.", vbInformation, "BİLGİ"
End Sub

 

[wahap70]

Üstad Teşekkür Ederim Eline Sağlık Fakat Bazı Eksikler Var,
1.Veri Sayfasındaki "Firma Adı" "Teklif Tarihi" ve "Teslim Tarihi" TEKLİF FORMU'nda İlgili Yerlere Gelmiyor Yani Sırasıyla B15,G13,B41 bu hüclere sadece bitane yazacak.
2.Teklif Formunda A Firmasının Bütün Ürünlerini ve Fiyatlarını Getiriyor Fakat Aşağıya İndiğimizde A Firmasına Yıl İçinde de Başka Teklifler Oluşturacaktır. Öyle Olunca Yıl İçindeki Bütün A Firmasının Ürün ve Fiyatları Geliyor. Araya Başka Bir Firma Girmişse zaten Diğerlerini Almaya Gerek Yok.
3.Teklif Formu Sayfasında Formu Temizle Dediğimizde Forma Aktarılan Herşeyi Silebilsin

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[wahap70]

Çok Teşekkür Ederim Üstad Ellerine Emeğine Sağlık