Satır Kodu Ve Barkod Oluşturma

[ywzyilmaz]

Merhaba
Şöyle bir kod ile barkod oluşturma sayfasına kayıt yaptırıyorum.

'Barkod oluşturma sayfasına kayıt yaptırdım.
Sayfa1.Select
Range("A2,B2,C2,D2").Select
Selection.Copy
Sheets("rapor").Select
Cells(Rows.Count, 1).End(3)(2, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Bu kodlar sayfa 1 den kopyaladığı veriyi rapor sayfasının son dolu satırına inip b sütunundan başlayıp yapıştırıyor. Bunu yaptıktan sonra F sütununa satır kodu yazsın ve a sütununa ise barkod oluşturmak için kullandığım "B2+D2+E2+F2" formülünü toplasın ve yazsın. A sütununun yazı biçimini code128 yaptığım için otomatik barkoda dönüşeceğini düşünüyorum.

Yardımcı olan olursa çok sevinirim?

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sayfa1.Range("A2,B2,C2,D2").Copy
With Sheets("rapor")
    .Cells(Rows.Count, 1).End(3)(2, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    s = .Cells(Rows.Count, 1).End(3)(2, 1).Row
    .Cells(s, "F").Formula = "=ROW()"
    .Cells(s, "A").Formula = "=B" & s & "+D" & s & "+E" & s & "+F" & s
    .Cells(s, "A").Font.Name = "code128"
End With