Final ödevi exel e yazdıramıyorum

[GökhanKaan]

Aranıza yeni katılmış bulunmaktayım.Mekatronik öğrencisiyim,visual de kodları ve programı yazdım.herşey çalışıyor.şimdi bunu exel e yazdırmam lazım.yazdıramıyorum.1 gün sonra ödevi teslim etmem lazım.
5 değişken var.bunların sırasıyla exel e yazılcak.Şimdiden teşekkürler.

 

[harun53aydin]

biraz daha açıklayıcı olman lazım

 

[GökhanKaan]

şöyle söyliyim.listbox a yazdırdığım 5 tane değişken var.buton 2 ye bastığım zaman listbox içindeki bu 5 değişkeni exel e yazdırmam lazım.eğer isterseniz proje linkini atabilirim.

 

[harun53aydin]

Private Sub CommandButton21_Click()

Dim i As Integer
Dim item_sayisi As Integer

item_sayisi = ListBox21.ListCount

For i = 1 To item_sayisi

Sayfa1.Cells(i, 1).Value = ListBox21.List(i - 1)

Next i


End Sub

sayfa1 in a1 hücresinden başlayarak aşağıya doğru listboxdaki tüm veriyi yazdırı

 

[GökhanKaan]

çok teşekkür ederim ama olması gereken şuydu. listbox 1 e yazılan yazıyı A 1 e.listbox 2 dekini B 1 e,3 tekini c 1 e,4 tekini d 1 e,5 tekini de e 1'e yazdırmam lazım.exeldeki sütunlara göre yaptım sıralamayı.umarım anlatabilmişimdir.cidden çok sağolun..

 

[harun53aydin]

çok teşekkür ederim ama olması gereken şuydu. listbox 1 e yazılan yazıyı A 1 e.listbox 2 dekini B 1 e,3 tekini c 1 e,4 tekini d 1 e,5 tekini de e 1'e yazdırmam lazım.exeldeki sütunlara göre yaptım sıralamayı.umarım anlatabilmişimdir.cidden çok sağolun..

Sayfa1.Cells(1, i).Value = ListBox21.List(i - 1)

şeklinde değiştir.

 

[GökhanKaan]

çok sağolun ama beceremedim bir türlü.size göndersem proje dosyasını siz düzeltip bana yollayabilirmisiniz acaba?Final için yarına vermem lazım da..