Soru VBA hata veriyor nerede hata yaptığım konusunda yardımcı olacak arkadaş var mı?

[ikgunfar]

Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
Işçi_Devir_Sozlesmesi = "C:\Users\WİN10\Desktop\İ.K. Yönetimi\İşten Çıkış Dokümanları Örnekleri\Devir Sözleşmeleri\Işçi_Devir_Sozlesmesi.doc"

For i = 2 To 99
Set doc = wordapp.Documents.Open(Işçi_Devir_Sozlesmesi)
doc.Bookmarks("SigortalıTCKimlikNumarası").Range.InsertAfter Cells(i, 1)
doc.Bookmarks("SigortalıAdıveSoyadı").Range.InsertAfter Cells(i, 2)
doc.Bookmarks("Görevi").Range.InsertAfter Cells(i, 3)
doc.Bookmarks("İlkİşeGirişTarihi").Range.InsertAfter Cells(i, 4)
doc.Bookmarks("İştenÇıkışTarihi").Range.InsertAfter Cells(i, 5)
doc.Bookmarks("İşeGirişTarihi").Range.InsertAfter Cells(i, 6)
doc.Bookmarks("İlkİşyeriUnvanBilgisi").Range.InsertAfter Cells(i, 7)
doc.Bookmarks("İlkİşyeriAdresBilgisi").Range.InsertAfter Cells(i, 8)
doc.Bookmarks("İkinciİşyeriUnvanBilgisi").Range.InsertAfter Cells(i, 9)
doc.Bookmarks("İkinciİşyeriAdresBilgisi").Range.InsertAfter Cells(i, 10)

doc.SaveAs2 "C:\Users\WİN10\Desktop\İ.K. Yönetimi\İşten Çıkış Dokümanları Örnekleri\Devir Sözleşmeleri\" & Cells(i, 1).Text

End If

End Sub

 

[Korhan Ayhan]

Merhaba,

Öncelikle profilinizde yazan Excel Vers. ve Dili Türkçe ifadesindeki kırmızı bölüme kullandığınız ofis sürümünü ve dilini yazmanızı rica edeceğim. Bizlerin profilini örnek alarak doldurabilirsiniz.

Kullandığınız kod da aşağıdaki satırı For ile başlayan satırın üstüne almanız gerekiyor.

Set doc = wordapp.Documents.Open(Işçi_Devir_Sozlesmesi)

Sizin yazdığınız şekilde döngü devam ettikçe dosyayı yeniden açmaya çalışıyor. Bu da büyük ihtimalle hataya sebep oluyordur.

 

[ikgunfar]

Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
Işçi_Devir_Sozlesmesi = "C:\Users\WİN10\Desktop\İ.K. Yönetimi\İşten Çıkış Dokümanları Örnekleri\Devir Sözleşmeleri\Işçi_Devir_Sozlesmesi.doc"

Set doc = wordapp.Documents.Open(Işçi_Devir_Sozlesmesi)

For i = 2 To 99

doc.Bookmarks("SigortalıTCKimlikNumarası").Range.InsertAfter Cells(i, 1)
doc.Bookmarks("SigortalıAdıveSoyadı").Range.InsertAfter Cells(i, 2)
doc.Bookmarks("Görevi").Range.InsertAfter Cells(i, 3)
doc.Bookmarks("İlkİşeGirişTarihi").Range.InsertAfter Cells(i, 4)
doc.Bookmarks("İştenÇıkışTarihi").Range.InsertAfter Cells(i, 5)
doc.Bookmarks("İşeGirişTarihi").Range.InsertAfter Cells(i, 6)
doc.Bookmarks("İlkİşyeriUnvanBilgisi").Range.InsertAfter Cells(i, 7)
doc.Bookmarks("İlkİşyeriAdresBilgisi").Range.InsertAfter Cells(i, 8)
doc.Bookmarks("İkinciİşyeriUnvanBilgisi").Range.InsertAfter Cells(i, 9)
doc.Bookmarks("İkinciİşyeriAdresBilgisi").Range.InsertAfter Cells(i, 10)

doc.SaveAs2 "C:\Users\WİN10\Desktop\İ.K. Yönetimi\İşten Çıkış Dokümanları Örnekleri\Devir Sözleşmeleri\" & Cells(i, 1).Text

End Sub

şeklinde düzelttim yine aynı hata devam ediyor
Microsoft Office Ev ve İş 2016

 

[Korhan Ayhan]

Hatayı hangi satırda veriyor.. Ve mümkünse örnek dosya paylaşırsanız deneme şansımız olacaktır.

 

[ikgunfar]

Hatayı hangi satırda veriyor.. Ve mümkünse örnek dosya paylaşırsanız deneme şansımız olacaktır.

altın üye olmadığım için dosya yükleyemiyorum

 

[ikgunfar]

Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
Işçi_Devir_Sozlesmesi = "C:\Users\WİN10\Desktop\İ.K. Yönetimi\İşten Çıkış Dokümanları Örnekleri\Devir Sözleşmeleri\Işçi_Devir_Sozlesmesi.doc"

Set doc = wordapp.Documents.Open(Işçi_Devir_Sozlesmesi)
For i = 2 To 99
doc.Bookmarks("SigortalıTCKimlikNumarası").Range.InsertAfter Cells(i, 1)
doc.Bookmarks("SigortalıAdıveSoyadı").Range.InsertAfter Cells(i, 2)
doc.Bookmarks("Görevi").Range.InsertAfter Cells(i, 3)
doc.Bookmarks("İlkİşeGirişTarihi").Range.InsertAfter Cells(i, 4)
doc.Bookmarks("İştenÇıkışTarihi").Range.InsertAfter Cells(i, 5)
doc.Bookmarks("İşeGirişTarihi").Range.InsertAfter Cells(i, 6)
doc.Bookmarks("İlkİşyeriUnvanBilgisi").Range.InsertAfter Cells(i, 7)
doc.Bookmarks("İlkİşyeriAdresBilgisi").Range.InsertAfter Cells(i, 8)
doc.Bookmarks("İkinciİşyeriUnvanBilgisi").Range.InsertAfter Cells(i, 9)
doc.Bookmarks("İkinciİşyeriAdresBilgisi").Range.InsertAfter Cells(i, 10)

doc.SaveAs2 "C:\Users\WİN10\Desktop\İ.K. Yönetimi\İşten Çıkış Dokümanları Örnekleri\Devir Sözleşmeleri\" & Cells(i, 1).Text

End Sub

Button sarıya çevriliyor

 

[Korhan Ayhan]

Verdiği hata mesajı nedir?

 

[ikgunfar]

Compile error:
For without Next

 

[Necdet]

Compile error:
For without Next

Hata gayet açık, For döngüsünün bitiminde Next i yok
End Sub satırından önce Next i yazın

 

[ikgunfar]

Çok teşekkür ederim. Düzeldi