Listboxtaki listeyi sayfaya gönderme

[alipinar]

Arkadaşlar daha önce siteye sayın basridogan'ın yazdığı bir soru vardı Onun sorusu ve cevabı benim kullanacağım bir dosyaya göre. Ama benim için eksiklik var. Dosyayı incelerseniz göreceksiniz. Teşekkürler

 

[alipinar]

Değerli ustalar, değerli yardımlarınızı bekliyorum. Teşekkürler

 

[alipinar]

:agla:

 

[alipinar]

:yardim: :kafa:

 

[orcunerkek54]

istediğini formülle yapmaya çalıştım ama istediğin bumu bilmiyorum eki incelersin.

 

[alipinar]

Sayın orcunerkek54 ilginize teşekkür ederim. Benim istediğim böyle bir şey. Bunu VB kodları ile yapmak istiyorum. Çünkü formül kullandığım zaman pek çok hücreye formül yazmak gerekiyor. Eminim bunun makro kodları vardır. Ustalardan yardım bekliyorum. İlginize tekrar teşekkür ederim. :hey:

 

[orcunerkek54]

bunuda siteden bir arkadaşımız bana vermişti kendisine teşekkür ediyorum ancak ismini hatırlayamadım.bu heralde sizin işinizi görür biraz değiştirirsiniz.sizin örneğiniz değil ama kusura bakmayın elimden bu geliyor ancak bu kadar yardımcı olabilirim

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:9efea459e2]Private Sub CommandButton5_Click()
Sheets("Sayfa2").Range("A2:C200").ClearContents
For j = 1 To ListBox3.ListCount
Sheets("Sayfa2").Cells(j + 1, 1) = j
Sheets("Sayfa2").Cells(j + 1, 2) = ListBox3.List(j - 1)
sat = Range("b1:b65536").Find(ListBox3.List(j - 1)).Row
Sheets("Sayfa2").Cells(j + 1, 3) = Cells(sat, "c")
Next
MsgBox "VERİLER SAYFA2 YE YAZILDI"
End Sub[/vb:1:9efea459e2]

 

[alipinar]

Leventm usta çok teşekkür ederim. İstediğim buydu. :mutlu: :dua: