userforma üzerindeki listbooka excel sayfasından veri aktarmak

[Hüseyin Çoban]

Başka bir bilgisayarda indirme imkanınız varsa, birde öyle deneyin.

[voleclub]

şimdi başka bilgisayardada denedim oda olmadı.

[voleclub]

Hüseyin Bey verileri ekledim ,ama onu nasıl excl sayfasına aktaracam.

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

[Black Lord]

Merhaba
#9 numaralı mesajdaki dosyayı indirerek denedin ve bende çalışıyor.
Seçilen verilen sayfaya aktarılıyor.

[Hüseyin Çoban]

Hüseyin Bey verileri ekledim ,ama onu nasıl excl sayfasına aktaracam.

Userformun kod bölümüne aşağıdaki kodları yapıştırın.

Kod: [Seç]

Private Sub CommandButton1_Click()
'sayfaya ekle
Dim i As Long, sat As Long
sat = 2
Range("A2:A62").ClearContents
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Cells(sat, "A").Value = ListBox1.Column(0, i)
        sat = sat + 1
    End If
Next
MsgBox "İşlem Tamamlandı" & vbLf & "MAHMUT ÖZDEMİR", vbOKOnly + vbInformation, "ZİÇEV"
End Sub



[voleclub]

Hüseyin bey çok teşkkür ederim.Sonunda oldu.

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

[Hüseyin Çoban]

Rica ederim Mahmut Bey, iyi çalışmalar.

[voleclub]

Selamlar tekrar bir sorum olacak,
listbok tan a sutununa veri ekliyoruz oluyor. Ancak a ve b sutunları birleşik olursa hata veriyor yani listboktan birleşik hücrelere nasıl veri ekleriz.

[Hüseyin Çoban]

Range("A2:A62").ClearContents

satırındaki kırmızı ile işaretli kısmı B olarak değiştirerek deneyiniz.

Kod: [Seç]

Private Sub CommandButton1_Click()
'sayfaya ekle
Dim i As Long, sat As Long
sat = 2
Range("A2:B62").ClearContents
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Cells(sat, "A").Value = ListBox1.Column(0, i)
        sat = sat + 1
    End If
Next
MsgBox "İşlem Tamamlandı" & vbLf & "MAHMUT ÖZDEMİR", vbOKOnly + vbInformation, "ZİÇEV"
End Sub



[voleclub]

Teşekkürler ellerinize sağlık...