Barkod ile ilgili yardım

[excel5252]

Çok değerli Üstadlarım ekteki barkodla ilgili sorum şu ben ismi belirtilen barkoda nasıl yazdıra bilirim. Sütun E deki barkoda üstüne veya altın barkoda etki etmeden nasıl isim yazdıra bilirim. Şimdiden yardımlarınız için çok teşekkür ederim.

 

[airborne]

s.a.

Sub BarkodVeIsim()
    Dim i As Long
    Dim barkod As String, isim As String
   
    For i = 2 To Cells(Rows.Count, "E").End(xlUp).Row
        barkod = Cells(i, "E").Value
        isim = Cells(i, "F").Value ' Ürün isimleri F sütununda olsun
        Cells(i, "E").Value = barkod & vbNewLine & isim
        Cells(i, "E").WrapText = True
    Next i
End Sub

E sütununda barkod var.
F sütununda isim var.
Makro, E sütununa barkod + isim alt alta yazar.

Barkod fontunu ilk satıra elle uygularsan, isim normal fontta kalır.

 

[excel5252]

s.a.

Sub BarkodVeIsim()
    Dim i As Long
    Dim barkod As String, isim As String
  
    For i = 2 To Cells(Rows.Count, "E").End(xlUp).Row
        barkod = Cells(i, "E").Value
        isim = Cells(i, "F").Value ' Ürün isimleri F sütununda olsun
        Cells(i, "E").Value = barkod & vbNewLine & isim
        Cells(i, "E").WrapText = True
    Next i
End Sub

E sütununda barkod var.
F sütununda isim var.
Makro, E sütununa barkod + isim alt alta yazar.

Barkod fontunu ilk satıra elle uygularsan, isim normal fontta kalır.

sana zahmet olmaz ise bana makrolu şekilde verirmisin şimdiden teşekkür ederim.

 

[airborne]

s.a.

Altın üyelik yok bende dosyanı indiremiyorum.

 

[excel5252]

s.a.

Altın üyelik yok bende dosyanı indiremiyorum.

teşekkür ederim

 

[nihatkr]

sana zahmet olmaz ise bana makrolu şekilde verirmisin şimdiden teşekkür ederim.

Ben ekledim.

 

[airborne]

Ben ekledim.

Harici siteye ekle