Merhaba Arkadaşlar
Şöyle bir kod da yardıma ihtiyacım var.
Mevcut hazırladığım kodda girilen kiloyu direkt etikete yazdırıyor.
Ben şunu yapmak istiyorum :
Benim standart kg 15 olacak. Kullanıcı 50 yazdıysa ilk etiket 15 kg ikinci etiket 15 kg üçüncü etiket 15 kg dördüncü etiket 5 kg.
Bu döngüyü nasıl kuracağımı bir türlü çözemedim.
Yardımcı olabilecek birisi var mı?
Şöyle bir kod da yardıma ihtiyacım var.
Mevcut hazırladığım kodda girilen kiloyu direkt etikete yazdırıyor.
Ben şunu yapmak istiyorum :
Benim standart kg 15 olacak. Kullanıcı 50 yazdıysa ilk etiket 15 kg ikinci etiket 15 kg üçüncü etiket 15 kg dördüncü etiket 5 kg.
Bu döngüyü nasıl kuracağımı bir türlü çözemedim.
Yardımcı olabilecek birisi var mı?
Kod:
Sub mbetiket()
Dim barkod As String
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim sonsat As Long, makno As String, baz As String, boyaadet As String, boyatur As String
Dim makad As String, bazad As String, tarihad As String, barcevir As String
Dim eat As Long, adlar As Long, mak As Long, bar As Long, bil As Long
Dim y As Long
Set s2 = ThisWorkbook.Sheets("etiketmb")
Set s3 = ThisWorkbook.Sheets("rapor")
Set s1 = ThisWorkbook.Sheets("veri")
s2.Columns("A:G").ClearContents
sonsat = s3.Range("A" & s3.Rows.Count).End(xlUp).Row
makad = "Makina"
bazad = "Masterbatch Adı"
tarihad = "Üretim Tarihi"
makno = s1.Range("B2").Value
baz = s1.Range("H2").Value
boyaadet = s1.Range("D2").Value
boyatur = s1.Range("I2").Value
barkod = s3.Range("A" & sonsat).Value
barcevir = Code128(barkod)
ilksat = 1
boytur = 1
bazlot = 5
mak = 11
zaman = 1
bilgibar = 8
For y = 1 To 1
s2.Cells(ilksat, "A") = "MASTERBATCH TORBA ETIKETI"
s2.Cells(boytur, "B") = "MIKTAR"
s2.Cells(boytur, "C").Value = boyatur
s2.Cells(zaman, "D") = "URETIM ZAMANI"
s2.Cells(zaman, "E").Value = Now
s2.Cells(bazlot, "C").Value = baz
s2.Cells(bazlot, "B").Value = "MASTERBATCH ADI"
s2.Cells(bilgibar, "D") = "BARKOD"
s2.Cells(bilgibar, "E").Value = barcevir
s2.Cells(bilgibar, "F").Value = barkod
s2.Cells(mak, "B") = "MAKINA"
s2.Cells(mak, "C").Value = makno
s2.Cells(ilksat, "G") = "KISISEL KORUYUCU EKIPMAN"
Next y
End Sub