metin çoğaltma

[sevensuleyman]

excell sayfasında yaklaşık 15 adet barkod bulunmaktadır. buton ile -888 olarak ekleyim barkod sonuna ekleerek çoğaltmak istiyorum.paylaşmış oldugum excellde -888 eklenmiş hali gözükmektedir. yardımcı olursanız sevinirim.

 

[hamitcan]

Seçtiğiniz alanın sonuna -888 ekler.

Private Sub CommandButton4_Click()
    For Each hcr In Selection
        hcr.Value = CStr(hcr) & "-888"
    Next
End Sub

 

[sevensuleyman]

Seçtiğiniz alanın sonuna -888 ekler.

Private Sub CommandButton4_Click()
    For Each hcr In Selection
        hcr.Value = CStr(hcr) & "-888"
    Next
End Sub

olayı eksik anlattım galiba kusura bakmayın
normalde asıl verimiz -888 yazmayanlar - yapmak istediğim -888 yazmayanlara -888 ekleyip asıl verilerimin altına birleştirmek.
asıl veriler üst tarafta - asıl verilerden sonra -888 eldiğim kopyalanmış stoklar olmasını istiyorum. yeni paylaştığım excell daha detaylı anlattım. şimdiden teşekkkürler

 

[hamitcan]

Private Sub CommandButton4_Click()
x = [a65536].End(3).Row
    For i = 2 To [a65536].End(3).Row
    x = x + 1
        Cells(x, 1) = Cells(i, 1) & "-888"
        Cells(x, 2) = Cells(i, 2)
        Cells(x, 3) = Cells(i, 3)
    Next
End Sub

 

[sevensuleyman]

Private Sub CommandButton4_Click()
x = [a65536].End(3).Row
    For i = 2 To [a65536].End(3).Row
    x = x + 1
        Cells(x, 1) = Cells(i, 1) & "-888"
        Cells(x, 2) = Cells(i, 2)
        Cells(x, 3) = Cells(i, 3)
    Next
End Sub

TAM istediğim gibi teşekkürler