Listbox verileri sayfaya yazma işleminde 1 sütun atlatma.

[beza]

Merhaba,
Listbox1 içerisindeki satırları;

Sheets("Kayit").Select
Dim c As Long, k As Long, u As Long, m As Long
u = Sayfa2.Range("a65536").End(3).Row
For c = 1 To 6
For k = 0 To ListBox1.ListCount - 1
Sayfa2.Cells(u + k + 1, c).Value = ListBox1.List(k, c - 1)

Sayfada A,B,C,D,E,F Sütunlarındaki satırlara yazdırıyorum. Yapmak istediğim sayfada G sütunu atlayıp H sütununda aynı satıra textbox3.value de bulunan
veriyi yazdırmak istiyorum. Komut dizine şu şekilde eklediğimde;

Sayfa2.Cells(u + k + 1, c + 2).Value = TextBox5.Value

Sayfada G ve H sütunlarının ikisine de textbox3.value değerini yazıyor. Bu kodları Sayfada G sütunu atlayıp H sütuna textbox3 değerini yazdıracak şekilde düzenlemek mümkün müdür?

 

[Muzaffer Ali]

Merhaba.

For c = 1 To 6 satırındaki6 yı 8 yapın For c = 1 To 8
Bir alt satırına şu satırı ekleyin if c = 7 then c=8

Eğer olmazsa dosyanızı ekleyin yada buradaki kodların tamamını tekleyin

 

[beza]

Muzaffer Ali Bey Merhaba,
if c = 6 then c=8
şeklinde yazıp sayfada 7. sütunu atlayınca sorun düzeldi.
Ayırdığınız zaman ve emeğiniz için teşekkür ederim.