CommandButton ile sayfalar arası veri aktarımı

[voleclub]

Selam,
Sayfa 1deki a2-a31 deki verileri CommandButton'a basarak tablo sayfasının a10-a39 alanına  verileri eklemesini istiyorum. Şimdiden teşekkürler.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Hüseyin Çoban]

Selam,
Sayfa 1deki a2-a31 deki verileri CommandButton'a basarak tablo sayfasının a10-a39 alanına  verileri eklemesini istiyorum. Şimdiden teşekkürler.

Merhaba,
CommanButton olması konusunda kesin bir şart var mı ? Öyde değil ise aşağıdaki kodları deneyiniz.

Kod: [Seç]

Sub ekle()
    Range("A2:A31").Select
    Selection.Copy
    Sheets("TABLO").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[Hüseyin Çoban]

İllaki CommanButton derseniz kodlar aşağıda   

Kod: [Seç]

Private Sub CommandButton1_Click()
    Range("A2:A31").Select
    Selection.Copy
    Sheets("TABLO").Select
    Sheets("TABLO").Range("A10").Select
    ActiveWindow.SmallScroll Down:=-9
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

[voleclub]

Teşekkür ederim.

[Hüseyin Çoban]

Rica ederim, iyi çalışmalar.

[hamza.02]

hocam kolay gelsin yazdığınız CommandButton kodlarını şarta bağlı nasıl yaparız

ürün listesi Sayfa1 B sütunu seri no, L sütunu marka

örneğin; arçelik, beko, bosch vs...

sayfa2 B sütununa arçelik olanların seri nosunu, C sütununa diğerlerinin seri nosunu listelesin istiyorum. yardımcı olurmusun.