Arkadaşlar sorunum kısaca ben tablodaki verilerin tümünü kural arkadaşımın yardımı ile D konumunda bulunan Word1 dosyasına aktarabiliyorum. Ancak ben form üzerinde bulunan sınıflardan birini seçtiğimde sadece o sınıfın bilgisi worde aktarılsın istiyorum. Worde aktarılırken de bazı zamanlarda aktarmıyor ve hata veriyor anlayamadım. Yardımınızı bekliyorum.

Do While Not kseti.EOF

 If kseti("sinif") <> Me.sinif Then GoTo 100 !........... Bu satırı ekleyiniz..........

 Selection.TypeText Text:=kseti("sinif")

 Selection.MoveRight Unit:=wdCell

 Selection.TypeText Text:=UCase(kseti("adi") & " " & kseti("soyadi") & " (TC: " & kseti("tc_no") & " ) : " & kseti("anaadi") & " - " & kseti("babaadi") & " " & kseti("cinsiyet") & ", " & kseti("dogum_yeri") & " " & kseti("dogum_tarihi") & " doğumlu.")

 Selection.MoveRight Unit:=wdCell

100 !........... Bu satırı ekleyiniz..........

 kseti.MoveNext

Loop

Kodda yazdığım satırları ekleyip deneyiniz....

cevabınız için çok teşekkür ederim. denedim ve oldu. bu konunun devamı olarak ben bu verileri word de belirlediğim bir yerde göstermek istiyorum. ancak şuanda sayfadaki yazıların en altına gitmektedir. bununla ilgili bir fikriniz var mı? İlgilenen arkadaşlara teşekkürler