Teklif Listesi Soru

[an_q_]

merhaba arkadaşlar ekteki dosyada iki sayfa var biri müşteriye göndereceğimiz teklif listesi. ikinci sayfa ise ürün ve fiyat listesi. 2. sayfadaki ürün ve fiyat listesinin yanındaki adet bölümüne sayı girildiğinde o kadar adeti 1. sayfadaki listeye sırayla atsın istiyorum böyle bişey mümkünmüdür.

 

[an_q_]

Yokmu yardımcı olacak kimse

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Sub KOD()
Application.ScreenUpdating = False
Dim sat
Dim ST As Worksheet
Dim SÜ As Worksheet
Set ST = Sheets("TEKLİF LİSTESİ")
Set SÜ = Sheets("ÜRÜNLER")
sat = 17

ST.Range("B17:J65").ClearContents

For i = 2 To SÜ.[D65536].End(3).Row

If sat > 51 Then
MsgBox " Yetersiz Satır Sayısı ", vbCritical
Exit Sub
Else
End If

If SÜ.Cells(i, "D") <> "" Then
ST.Cells(sat, "B") = SÜ.Cells(i, "A")
ST.Cells(sat, "D") = SÜ.Cells(i, "B")
ST.Cells(sat, "H") = SÜ.Cells(i, "C")
ST.Cells(sat, "I") = SÜ.Cells(i, "D")
sat = sat + 1
Else
End If

Next i
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[an_q_]

ya elinize sağlık binlerce kez teşekkür ederim gerçekten benim ve sitedeki bir çok kişinin işine yarayacak